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.