PASCAL EJERCICIO
Enviado por kevinTheDuran • 30 de Noviembre de 2013 • 4.368 Palabras (18 Páginas) • 246 Visitas
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('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
...