Ejercicios Pascal

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 dosnumeros:');
        WRITELN (' ');
        WRITE ('Introduzca un numero: ');      
        READLN (a);
        WRITE ('Introduzca otro numero: ' );   
        READLN (b);
        WRITELN (' ');
       c:=a+b;
        WRITE ('EL RESULTADO ES: ');
READLN;
        WRITE LN(c);
READLN;
 
END.
 
1 Desarrolle un programa en pascal que permita calcular el promedio de tres calificaciones.
ProgramPromedio
{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.
 
 
1Desarrolle 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 programaen 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...