Ejercicios Pascal
- 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.
- 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.
- 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.
- 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.
- 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.