Ejercicios
Ejercicio N° 1: Este Programa Permite Leer Estaturas de Alumnos del P2T1, Muestra Promedio, Mas Alto y Menor Estatura.
PROGRAM mayor_menor;
USES CRT;
VAR i,NA,X,T: INTEGER;
Mas,Menos,N:STRING;
A1,A2,suma,promd:REAL;
BEGIN
suma:=0;A1:=0;A2:=0;X:=0;
TEXTBACKGROUND (Blue);
TEXTCOLOR (yellow);
WRITELN (' Este Programa Permite Leer Estaturas de Alumnos del P2T1' );
WRITELN (' Muestra Promedio, Mas Alto y Menor Estatura' );
WRITELN;
WRITELN (' Cuantos Alumnos Son? ' );
READLN (NA);
FOR i:=1 TO NA DO
BEGIN
X:=X+1;
WRITELN ('Nombre del Alumno: '); READLN (N);
WRITELN ('Escribir estatura: '); READLN (T);
suma:=suma+T; promd:=suma/NA;
IF (X=1) THEN
BEGIN A1:=T; mas:=N; A2:=T; menos:=N;
END;
IF (T
BEGIN A1:=T; Mas:=N;
END ELSE
BEGIN A2:=T; Menos:=N;
END;
END;
TEXTBACKGROUND (white);
TEXTCOLOR (black);
WRITELN;
WRITELN ('Presione Alguna tecla para ver el resultado...');
READKEY;
WRITELN ('Promedio: ' ,promd:2:2,' Centimetros');
WRITELN ('Mayor estatura: ',A2:2:2, ' CM',' del Alumno:',Menos);
WRITELN ('Menor estatura: ',A1:2:2, ' CM',' del Alumno:',Mas);
READKEY;
END.
Ejercicio N° 2: Este programa determina según el peso introducido: los Obesos, Ligeramente Obesos y Delgados
PROGRAM peso;
USES CRT;
VAR D,O,Lo,P: INTEGER;
Rep: STRING;
BEGIN
CLRSCR;
D:=0;Lo:=0;O:=0;
REPEAT
TEXTBACKGROUND (blue);
TEXTCOLOR (Yellow);
WRITELN ('Este programa determina segun el peso introducido: ');
WRITELN (' Obesos, Ligeramente Obesos y Delgados ');
WRITELN;
WRITE ('Ingrese el peso del Alumno: '); READLN (P);
IF (p>120) THEN O:=O+1;
IF (P<=50) THEN D:=D+1;
IF (p>=80) AND (P<=120) THEN Lo:=Lo+1;
TEXTBACKGROUND (yellow);
TEXTCOLOR (black);
WRITE ('Desea continuar? Si: 1 No: 2 ');
READLN (rep);
UNTIL rep='2';
TEXTBACKGROUND (white);
TEXTCOLOR (black);
WRITELN;
WRITELN (' Hay : ');
WRITELN ('',O, ' Alumno(s) Obeso (s)');
WRITELN ('',Lo, ' Alumno(s) Ligeramente Obeso (s)');
WRITELN ('',D, ' Alumno(s)Delgado (s)');
READKEY;
END.
Ejercicio N° 3: Este Programa Lee N cantidad de Números y muestra su cuadrado.
PROGRAM Cuadra2;
USES CRT;
VAR N, C:REAL;
resp:STRING;
BEGIN
CLRSCR;
resp:='S';
TEXTCOLOR (Yellow);
WRITELN ('Este Programa Lee N cantidad de Números y muestra su cuadrado');
WRITELN ('presione una Tecla para Iniciar...');
READKEY ();
WRITELN ();
WHILE UPCASE (resp) = 'S' DO
BEGIN
TEXTCOLOR (Yellow);
WRITE (' Escriba un número para hacer su cuadrado: '); READLN (N);
C:= sqr(N);
WRITELN ('');
TEXTCOLOR (White);
WRITELN ('El cuadrado es: ',C:5:2);
WRITELN ('');
TEXTCOLOR (green);
WRITE('Desea continuar (S/N)? '); READLN(resp);
WRITELN ('');
IF UPCASE(resp) = 'S' THEN
END;
READKEY ();
END.
Escritos por: Carlos Cedeño
Estudiante de Sistemas e Informatica
Email: thepolice_3011@hotmail.com