Algoritmo

Algoritmo Tubies;
Declaración
Tipo
Registro = registro
Representante , Nino , Direccion : cadena;
Cedula: Entero ;
Anos , Meses , Dias: Entero;
TipoEmfermedad: Cadena;
Telefono: Cadena;
Fin;Datos = Archivo de Registro;
Hoy = Archivo de Registro;
Variables
D: Datos;
R: Registro;
H: Hoy;
NA , NB: Entero;
CN1Y5: Entero;
CNM: Entero;
CA1Y8: Entero;
CB1Y5: Entero;
Opcion:Entero;

Procedimiento Cargar( D: Datos; CNM: Entero);
Variable
CLE , Codigo: Entero;
Otro: Caracter;
Inicio
Repetir
Conectar (D , 'C:\Hopsital.Dat');
Escribir “Registro niños hospitalTubies.”;
Escribir;
Escribir “Ingrese (1) si desea crear o rescribir archivo.”;
Escribir “Ingrese (2) si desea leer o escribir en el archivo.”;
Leer CLE;
Hasta (CLE > 0) Y (CLE < 3) ;
CasoCLE
1: Clear (D);
2: Begin
Abrir (D);
Encuentra (D , Tamaño (D));
Fin;
Fin;
Conectar (H , 'C:\Hoy.Dat');
Crear (H);

Repetir
Escribir “Registro niños hospital Tubies.”;
EscribirEscribir “Nombre de representante:”;
Leer R.Representante;
Escribir;
Escribir “Cedula:”;
Leer R.Cedula;

Escribir;
Escribir “Dirección:”;
Leer R.Direccion;
Escribir;
Escribir “Telefono:”;
LeerR.Telefono;
Escrbir “Registro niños hospital Tubies.”;
Escribir;
Escribir “Nombre niño:”;
Leer R.Nino;
Escribir;
Repetir
Escribir “Edad del Niño(0-12):”;
Leer R.Anos;
Hasta R.Anos < 12;
Si R.Anos = 0 Entonces
Inicio
Repetir
Escribir “Meses de Nacido (1-11):”;
Leer R.Meses
Hasta R.Meses < 12;
Si R.Meses = 0 Entonces
Inicio
Repetir
Escribir “Días de Nacido (0-30):”;Leer R.Dias;
Hasta R.Dias < 31;

Fin;
Si R.Meses > 0 Entonces
CNM CNM + 1;
Fin;

Repetir
Escribir;
Escribir “Enfermedad que padece el niño.”;
Escribir;
Escribir “Ingrese (01)si presenta asma.”;
Escribir “Ingrese (02) si presenta bronquitis.”;
Escribir “Ingrese (03) si presenta lechina.”;
Escribir “Ingrese (04) si presenta fiebre.”;
Escribir “Ingrese (05) si presenta...