PASCAL EJERCICIO

PROGRAM PROYECTO;

USES CRT;

CONST

N=3;

TYPE

SOLICITANT=RECORD

NOMBRE:STRING[20];

CI:STRING[15];

SEXO:CHAR;

EDAD:INTEGER;

FN:STRING[10];

HIJOS:INTEGER;

NOMBRE_H:ARRAY [1..N,1..100] OF STRING [20];

CI_H:ARRAY [1..N,1..100] OF STRING [15] ;

EDAD_H:ARRAY [1..N,1..100] OF INTEGER;

SEXO_H:ARRAY [1..N,1..100] OF CHAR;

ESTCIVIL:CHAR;

CONDICV:CHAR;

MUNICIPIO:CHAR;

END;

SOLICITANTE=ARRAY [1..N] OF SOLICITANT;

END;}

VAR

SOLICITANTES:SOLICITANTE;

MHIJOS:INTEGER;

UNHIJO:INTEGER;

NHIJOS:INTEGER;

I,J:INTEGER;

SOLIC_CON_HIJOS2, SOLIC_CON_HIJOS,SOLIC_SIN_HIJOS:INTEGER;

RANCHOS,ALQUILADO,TERRENO,ARRIMADO:INTEGER;

PRANCHOS,PALQUILADO,PTERRENO,PARRIMADO:REAL;

HOMBRES,MUJERES:INTEGER;

PHOMBRES,PMUJERES:REAL;

COMANDO:INTEGER;

EDADES_A,EDADES_B,EDADES_C,EDADES_D:INTEGER;

TCASADOS,TSOLTEROS,TDIVORCIADOS,TVIUDOS:INTEGER;

PCASADOS,PSOLTEROS,PDIVORCIADOS,PVIUDOS:REAL;

PROCEDURE LEER_SOLICITANTES;

BEGIN

FOR I:=1 TO N DO

BEGIN

CLRSCR;

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(7) ;WRITELN(' INTRODUZCA EL NOMBRE DEL SOLICITANTE NUMERO: ',I);

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

READLN(SOLICITANTES[I].NOMBRE);

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(7); WRITELN(' INTRODUZCA SU CEDULA DE IDENTIDAD');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

READLN(SOLICITANTES[I].CI);

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(7); WRITELN(' INTRODUZCA SU SEXO');

TEXTCOLOR(2); WRITELN(' F:FEMENINO');

TEXTCOLOR(2); WRITELN(' M:MASCULIMO');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

READLN(SOLICITANTES[I].SEXO);

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(7); WRITELN(' INTRODUZCA SU EDAD');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

READLN(SOLICITANTES[I].EDAD);

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(7) ; WRITELN('INTRODUZCA SU FECHA DE NACIMIENTO (FORMATO DIA/MES/A¥O)');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

READLN(SOLICITANTES[I].FN);

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(7) ; WRITELN(' INTRODUZCA SU CANTIDAD DE HIJOS');

TEXTCOLOR(4); WRITELN('=======================================================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

READLN(SOLICITANTES[I].HIJOS);

FOR J:=1 TO SOLICITANTES[I].HIJOS DO

BEGIN

IF SOLICITANTES[I].HIJOS >0 THEN

BEGIN

clrscr;

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('==============================');

TEXTCOLOR(5); WRITELN('INTODUSCA NOMBRE DEL HIJO: ',J);

TEXTCOLOR(4); WRITELN('==============================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

READLN( SOLICITANTES[I].NOMBRE_H[I,J]);

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

TEXTCOLOR(4); WRITELN('==============================');

TEXTCOLOR(5) ;WRITELN(' INTRODUZCA SU EDAD');

TEXTCOLOR(4); WRITELN('==============================');

TEXTCOLOR(4); WRITELN('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

...