Gua Prctica de ejercicios en Pascal.
1.- Escribir un programa en Pascal que sume dos nmeros:
a = 4
b = 3
PROGRAM EJER01;
var a,b,c:INTEGER;
BEGIN
{Empezamos con lo bsico, un programa que escribe la suma de 2 numeros
en pantalla}
a:=4;
b:=3;
{Se asigna un valor cualquiera a las variables "a" y "b"}
c:=a+b;
WRITE (c); {Muestra en pantalla el valor de la suma}
END.
PROGRAM EJER1B;
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.
2.- Escribir un programa en Pascal que sume, reste, multiplique y divida
dos nmeros:
x = 10
y = 2
PROGRAM EJER02;
USES CRT; {Nos va a permitir limpiar la pantalla junto con
ClrScr}
VAR x,y:INTEGER;
VAR suma,rest,mult,divi:INTEGER;
BEGIN
x:=10;
y:=2;
suma:=x
rest:=x
mult:=x
divi:=x
+ y;
- y;
* y;
div y;
{Con estas 4 variables realizamos las cuatro operaciones aritmticas
fundamentales:
suma, resta, multiplicacin y divisin}
ClrScr; {Limpia la pantalla}
WRITE
WRITE
WRITE
WRITE
('SUMA:');
WRITELN (suma);
('RESTA:');
WRITELN (rest);
('MULTIPLICACION:'); WRITELN (mult);
('DIVISION:');
WRITE (divi);
END.
PROGRAM EJER2B;
USES CRT;
VAR x,y:REAL;
VAR suma,rest,mult:REAL;
VAR divi:REAL;
{suma, resta, multiplica y divide 2 numeros reales}
BEGIN
WRITELN ('Este programa suma,resta,multiplica y divide:');
WRITELN ('Escriba dos numeros reales');
WRITELN (' ');
READ (x);
READ (y);
suma:=x
rest:=x
mult:=x
divi:=x
+
*
/
y;
y;
y;
y;
ClrScr;
WRITE
WRITE
WRITE
WRITE
('SUMA:');
('RESTA:');
('MULTIPLICACION:');
('DIVISION:');
WRITELN (sum[Link]);
WRITELN (rest:3:0);
WRITELN (mult:3:0);
WRITE (divi:5:2);
END.
3.- Escribir un programa en Pascal que calcule el rea de un
rectngulo:
lado1 = 3
lado2 = 4
rea del rectngulo=lado1 * lado2
PROGRAM EJER03;
USES CRT;
VAR lado1,lado2:INTEGER;
VAR area:INTEGER;
BEGIN
{Este programa nos va a servir para calcular el area de un rectngulo}
lado1:=3;
lado2:=4;
{Damos valores para las variables}
area:=lado1*lado2; {Calculamos el area}
ClrScr;
WRITE ('AREA DEL RECTANGULO: ');
en pantalla}
WRITE (area); {Lo mostramos
END.
PROGRAM EJER3B;
USES CRT;
VAR lado1,lado2:REAL;
VAR area:REAL;
BEGIN
{Este programa calcula el area de un rectangulo}
ClrScr;
WRITELN ('Escriba los lados del rectangulo');
READ (lado1);
READ (lado2);
WRITELN (' ');
area:=lado1*lado2;
WRITE ('AREA DEL RECTANGULO:');
WRITE (ar[Link]);
END.
4.- Escribir un programa en Pascal que calcule el rea de un
tringulo:
base = 7
altura = 4
rea del tringulo = (base * altura)/2
PROGRAM EJER04;
USES CRT;
VAR base,altura:REAL;
VAR area:REAL;
BEGIN
base:=7;
altura:=4;
area:=(base * altura) / 2;
ClrScr;
WRITE ('AREA DEL TRIANGULO: '); WRITE (ar[Link]);
{:5:2 sirve para dar el formato de salida al numero, 5
posiciones y 2 decimales}
END.
PROGRAM EJER4B;
USES CRT;
VAR base,altura:REAL;
VAR area:REAL;
BEGIN
{Este programa sirve para calcular el area de un triangulo}
ClrScr;
WRITELN ('PARA CALCULAR EL AREA DE UN TRIANGULO:');
WRITELN (' ');
WRITE ('ESCRIBE LA BASE: ');
READLN (base);
WRITE ('ESCRIBE LA ALTURA: ');
READLN (altura);
WRITELN (' ');
area:=(base * altura) / 2;
WRITE ('EL AREA DEL TRIANGULO ES: ');
WRITE (ar[Link]);
END.
5.- Escribir un programa que calcule la longitud y el rea de una
circunferencia:
radio = 4
longitud de la circunferencia = 2 * PI * radio
rea de la circunferencia = PI * radio2
PROGRAM EJER05;
USES CRT;
VAR radio:REAL;
VAR longitud,area:REAL;
BEGIN
radio:=4;
longitud:=2*3.1416*radio;
area:=3.1416*radio*radio;
ClrScr;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN
(longitu[Link]);
WRITE ('AREA DE LA CIRCUNFERENCIA:');
WRITE (ar[Link]);
END.
PROGRAM EJER5B;
USES CRT;
VAR radio:REAL;
VAR longitud,area:REAL;
BEGIN
{Este programa calcula la longitud y el area de una
circunferencia}
ClrScr;
WRITELN ('LONGITUD Y AREA DE UNA CIRCUNFERENCIA');
WRITELN (' ');
WRITE ('Escriba el radio: ');
READLN (radio);
WRITELN (' ');
longitud:=2*3.1416*radio;
area:=3.1416*radio*radio;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA: '); WRITELN
(longitu[Link]);
WRITE ('AREA DE LA CIRCUNFERENCIA: ');
WRITE (ar[Link]);
END.
6.- Escribir un programa en Pascal que calcule la velocidad de un
proyectil
que recorre 2 Km en 5 minutos. Expresar el resultado en metros/segundo.
Velocidad = espacio/tiempo
PROGRAM EJER06;
USES CRT;
VAR espacio,tiempo:REAL;
VAR velocidad:REAL;
BEGIN
espacio:=2;
tiempo:=5;
velocidad:=(espacio*1000)/(tiempo*60);
ClrScr;
WRITE ('VELOCIDAD DEL PROYECTIL:');
WRITE (veloci[Link]); WRITE ('m/s');
END.
PROGRAM EJER6B;
USES CRT;
VAR espacio,tiempo,espacio2,tiempo2:REAL;
VAR velocidad,velocidad2:REAL;
BEGIN
{Este programa calcula la velocidad de un cuerpo}
ClrScr;
WRITE ('Para calcular la velocidad debe escribirlo en
unidades ');
WRITE ('del sistema internacional');
WRITELN (' ');
WRITE ('Escriba el espacio recorrido: ');
READLN (espacio);
WRITE ('Escriba el tiempo transcurrido: ');
READLN (tiempo);
WRITELN (' ');
velocidad:=(espacio)/(tiempo);
WRITE ('VELOCIDAD DEL PROYECTIL: ');
WRITE (veloci[Link]); WRITELN (' m/s');
WRITELN (' ');
WRITELN ('Si lo desea en Km/h introduzca los datos: ');
WRITELN (' ');
WRITE ('Escriba el espacio recorrido: ');
READLN (espacio2);
WRITE ('Escriba el tiempo transcurrido: ');
READLN (tiempo2);
WRITELN (' ');
velocidad2:=(espacio2)/(tiempo2);
WRITE (veloci[Link]); WRITE (' Km/h ');
END.
7.- Escribir un programa en Pascal que calcule el volumen de una esfera:
radio = 3
volumen de la esfera = 4/3 * PI * radio3
PROGRAM EJER07;
USES CRT;
VAR radio:REAL;
VAR volumen:REAL;
BEGIN
radio:=3;
volumen:=(4/3)*3.1416*(radio*radio*radio);
ClrScr;
WRITE ('VOLUMEN DE LA ESFERA:');
WRITE(volumen);
END.
PROGRAM EJER7B;
USES CRT;
VAR radio:REAL;
VAR volumen:REAL;
BEGIN
{Este programa calcula el volumen de una esfera}
ClrScr;
WRITELN ('PARA CALCULAR EL VOLUMEN DE LA ESFERA ESCRIBA EL
RADIO: ');
READLN (radio);
volumen:=(4/3)*3.1416*(radio*radio*radio);
WRITE ('VOLUMEN DE LA ESFERA: ');
WRITE(volumen:5:2);
END.
8.- Escribir un programa en Pascal que evale la siguiente expresin:
(a+7*c)/(b+2-a)+2*b
a = 3,b = 6,c = 4
PROGRAM EJER08;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;
BEGIN
a:=3;
b:=6;
c:=4;
resultado:=(a+7*c)/(b+2-a)+2*b;
ClrScr;
WRITE ('RESULTADO:');
WRITE (resultado:5);
END.
PROGRAM EJER8B;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;
BEGIN
{Este programa calcula una expresion algebraica}
ClrScr;
WRITELN ('Este programa sirve para calcular la siguiente
expresion:');
WRITELN ('(a+7*c)/(b+2-a)+2*b');
WRITELN (' ');
WRITE ('Introduzca a: ');
READLN (a);
WRITE ('Introduzca b: ');
READLN (b);
WRITE ('Introduzca c: ');
READLN (c);
resultado:=(a+7*c)/(b+2-a)+2*b;
WRITELN (' ');
WRITE ('RESULTADO: ');
WRITE (resultado:5:2);
END.
9.- Escribir un programa en
(a+5) * 3 / 2 * b - b
Pascal que evale la siguiente expresin:
a = 3,b = 6
PROGRAM EJER09;
USES CRT;
VAR a,b:REAL;
VAR resultado:REAL;
BEGIN
a:=3;
b:=6;
resultado:=((a+5)*3) / (2*b-b);
ClrScr;
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
END.
PROGRAM EJER9B;
USES CRT;
VAR a,b:REAL;
VAR resultado:REAL;
BEGIN
{Este programa calcula el resultado de una expresion algebraica}
ClrScr;
WRITE ('PARA CALCULAR LA SIGUIENTE EXPRESION: ');
WRITELN ('((a+5)*3) / (2*b-b)');
WRITELN (' ');
WRITE ('Escriba a: '); READ (a);
WRITE ('Escriba b: '); READ (b);
WRITELN (' ');
resultado:=((a+5)*3) / (2*b-b);
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
END.
10.- Escribir un programa en Pascal que evale la siguiente expresin:
(-b + razcuadrada(b2-4*a*c)/(2*a)
(es la solucin positiva de una ecuacin de 2 grado)
PROGRAM EJER10;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;
BEGIN
a:=6;
b:=6;
c:=1;
resultado:=(-b+sqrt(sqr (b) - 4*a*c))/(2*a);
ClrScr;
WRITE ('RESULTADO:');
WRITE(resultado:5:2);
END.
PROGRAM EJER10B;
USES CRT;
VAR a,b,c:REAL;
VAR resultado:REAL;
BEGIN
{Calcula la incognita positiva de una ecuacion de 2 grado}
ClrScr;
WRITE ('Para calcular la incognita positiva de una ecuacion');
WRITE (' de segundo grado escriba todas las variables:');
WRITELN (' ');
WRITELN (' ');
WRITE ('Escriba a: ');
WRITE ('Escriba b; ');
WRITE ('Escriba c; ');
WRITELN (' ');
READLN (a);
READLN (b);
READLN (c);
resultado:=(-b +sqrt(sqr (b) - 4*a*c))/(2*a);
WRITE ('RESULTADO: ');
WRITE(resultado:5:2);
END.
