Ejercicios Pascal

 

  1. Desarrolle un programa en Pascal que sume dos números

PROGRAM numeros;

USES CRT;

VAR a,b,c:INTEGER;

 

BEGIN

        ClrScr;

 

        WRITELN ('Este programa suma dos numeros:');

        WRITELN (' ');

        WRITE ('Introduzca un numero: ');      

        READLN (a);

        WRITE ('Introduzca otro numero: ' );   

        READLN (b);

        WRITELN (' ');

        c:=a+b;

        WRITE ('EL RESULTADO ES: ');

        WRITE (c);

 

END.

 

  1. Desarrolle un programa en pascal que permita calcular el promedio de tres calificaciones.

Program Promedio

{programa que calcula el promedio de dos calificaciones} < --“ojo esto es un comentario”

Uses crt;

Var

c1,c2,c3,p:real;

Begin

Clrscr;

Writeln(`Introduzca  la primera calificación:');

Readln(c1);

Writeln(`Introduzca  la segunda calificación:');

Readln(c2);

Writeln(`Introduzca  la tercera calificación:');

Readln(c3);

 

P:=(c1+c2+c3)/3;

Writeln(`tu promedio es :',p:7:0);

Readln;

End.

 

 

  1. Desarrolle un programa en Pascal que dada una calificación en valor alfabético (A,B,C,D ó E) indique su equivalente en valor numérico (20,18,15,12,10).

PROGRAM califica;

 USES CRT;

 VAR cal:CHAR;

BEGIN

 ClrScr;

 WRITE('Introduzca una calificacion (A-E):');

 READLN(cal);

 CASE cal OF

 'A': WriteLn('Calificacion numerica --> 20');

 'B': WriteLn('Calificacion numerica --> 18');

 'C': WriteLn('Calificacion numerica --> 15');

 'D': WriteLn('Calificacion numerica --> 12');

 'E': WriteLn('Calificacion numerica --> 10');

 ELSE

 WriteLn('Calificacion incorrecta');

 END;

END.

 

  1. Desarrolle un programa en pascal que permita calcular el área de un triángulo 

 

PROGRAM area_triangulo;

VAR Altura, Area, Base : Real;

BEGIN

ClrScr;

WRITE( 'Introduzca base: ' );

READLN( Base );

WRITE( 'Introduzca altura: ' );

READLN( Altura );

Area := Base * Altura / 2;

WRITE( 'El area del triangulo es: ', Area:0:2 );

END.

 

  1. Desarrolle un programa en pascal que permita calcular el área y el volumen de un cilindro

PROGRAM area_cilindro;

USES CRT;

VAR radio, altura:REAL;

VAR area, volumen:REAL;

BEGIN

ClrScr;

radio:=3;

altura:=4;

area:= 2 * (3.1416 * sqr(radio)) + ((2 * 3.1416 * radio) * altura);

volumen:= (3.1416 * sqr(radio)) * altura;

WRITE ('EL AREA DEL CILINDRO ES: '); WRITELN (area:6:2);

WRITE ('EL VOLUMEN ES: '); WRITE (volumen:6:2);

END.