Otros Ejerc Pascal
6. Desarrolle un programa en Pascal que determine si un número leído es par o impar.
PROGRAM nume;
USES CRT;
VAR num:INTEGER;
BEGIN
ClrScr;
WRITE ('Introduzca un numero: '); READLN (num);
IF num = 0 THEN
WRITE ('El numero introducido no es par ni impar, es 0')
ELSE IF ((num mod 2 = 0)) THEN
WRITE ('El numero introducido es par')
ELSE
WRITE ('El numero introducido es impar')
END.
7. Desarrolle un programa en pascal que calcule cual es el mayor número de 3 valores y lo muestre.
PROGRAM mayor;
USES Crt;
VAR A, B,C : Integer;
BEGIN
ClrScr;
WRITE( 'Introduzca primer numero (entero): ' );
READLN( A );
WRITE( 'Introduzca segundo numero (entero): ' );
READLN( B );
WRITE( 'Introduzca tercer numero (entero): ' );
READLN( C );
IF ( A > B ) and ( A > C ) then
WRITELN(A, 'El Primer Número es el Mayor de Todos');
ELSE { Inicio del anidamiento }
( B > A ) and ( B > C ) then
WRITELN(B, 'El Segundo Número es el Mayor de Todos');
ELSE
WRITELN(C, 'El Tercer Número es el Mayor de Todos');
{ Fin del anidamiento }
End.
8. Sean 10 estudiantes de la sección 03-IMC/IST-D01 y dadas 5 notas por alumno de la materia
Programación. Calcular y mostrar:
· El promedio de la materia por alumno.
· El promedio de la sección.
PROGRAM Notas;
USES crt;
VAR alumnos,materia,notas: integer;
promedioalumno,promedioseccion,sumaseccion,suma,nota: Real;
nombre:string[30];
BEGIN
alumnos:=1;
sumaseccion:=0;
WHILE alumnos <=10 do
writeln('Introduzca el nombre del Estudiante: ');
readln(nombre);
suma:=0;
notas:=1;
WHILE notas <=5 do
writeln('Introduzca las 5 notas: ');
readln(nota);
suma:=suma+nota;
notas:=notas+1;
END;
promedioalumno:=suma/5;
sumaseccion:=sumaseccion+promedioalumno;
alumnos:=alumnos+1;
WRITELN('El nombre del Estudiante es:', nombre);
WRITELN('El promedio del Estudiante es:', promedioalumno:2:2);
WRITELN;
promedioseccion:=sumaseccion/2;
WRITELN('El Promedio de la seccion es: ',promedioseccion:2:2);
READKEY
END.