¡Descarga Ejemplos de Delphy y más Ejercicios en PDF de Fundamentos de la Informática solo en Docsity!
METODOLOGÕA DE LA PROGRAMACI”N. ProgramaciÛn en Pascal
Victor Sanchez
www.victorsanchez2.net
El objetivo de este documento es proveer de una gran baterÌa de ejercicios resueltos en
Pascal que parten del nivel m·s b·sico hasta llegar a estructuras de datos m·s complejas.
Al final podrÈis ir encontrando las pr·cticas que voy realizando en mi universidad.
Gracias a todos por vuestra confianza.
☺Escribir un programa en Pascal que sume dos n˙meros:
a = 4 b = 3
PROGRAM EJER01;
var a,b,c:INTEGER;
BEGIN
{Empezamos con lo básico, 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; {Lo usamos para poder borrar la pantalla} VAR a,b,c:INTEGER;
BEGIN ClrScr; {Limpiamos la pantalla}
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.
☺Escribir un programa en Pascal que sume, reste, multiplique y divida dos n˙meros:
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 + y; rest:=x - y; mult:=x * y; divi:=x div y;
{Con estas 4 variables realizamos las cuatro operaciones aritméticas fundamentales: suma, resta, multiplicación y división}
ClrScr; {Limpia la pantalla}
WRITE ('SUMA:'); WRITELN (suma); WRITE ('RESTA:'); WRITELN (rest); WRITE ('MULTIPLICACION:'); WRITELN (mult); WRITE ('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 + y; rest:=x - y; mult:=x * y; divi:=x / y;
ClrScr;
WRITE ('SUMA:'); WRITELN (suma:3:0); WRITE ('RESTA:'); WRITELN (rest:3:0); WRITE ('MULTIPLICACION:'); WRITELN (mult:3:0); WRITE ('DIVISION:'); WRITE (divi:5:2);
END.
PROGRAM EJER02;
USES CRT;
VAR x,y:INTEGER; VAR suma,rest,mult,divi:INTEGER; BEGIN x:=10; y:=2;
suma:=x + y; rest:=x - y; mult:=x * y;
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 (area:5:2); {: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 (area:5:2); END.
☺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 * radio
PROGRAM EJER05;
USES CRT;
VAR radio:REAL; VAR longitud,area:REAL;
BEGIN radio:=4; longitud:=23.1416radio;
area:=3.1416radioradio;
ClrScr;
WRITE ('LONGITUD DE LA CIRCUNFERENCIA:'); WRITELN (longitud:5:2); WRITE ('AREA DE LA CIRCUNFERENCIA:'); WRITE (area:5:2); END.
☺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:=(espacio1000)/(tiempo60);
ClrScr;
WRITE ('VELOCIDAD DEL PROYECTIL:'); WRITE (velocidad:5:2); 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 (velocidad:5:2); 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 (velocidad2:5:2); WRITE (' Km/h '); END.
PROGRAM EJER06;
USES CRT;
VAR espacio,tiempo:REAL; VAR velocidad:REAL;
BEGIN espacio:=2; tiempo:=5;
velocidad:=(espacio1000)/(tiempo60);
ClrScr;
WRITE('VELOCIDAD DEL PROYECTIL:'); WRITE(velocidad:5:2); WRITE(' m/s'); END.
resultado:=(a+7c)/(b+2-a)+2b;
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+7c)/(b+2-a)+2b'); WRITELN (' '); WRITE ('Introduzca a: '); READLN (a); WRITE ('Introduzca b: '); READLN (b); WRITE ('Introduzca c: '); READLN (c);
resultado:=(a+7c)/(b+2-a)+2b; WRITELN (' '); WRITE ('RESULTADO: '); WRITE (resultado:5:2);
END.
PROGRAM EJER08;
USES CRT;
VAR a,b,c:REAL; VAR resultado:REAL; BEGIN a:=3; b:=6; c:=4;
resultado:=(a+7c)/(b+2-a)+2b;
ClrScr;
WRITE('RESULTADO: '); WRITE(resultado:5); END.
☺Escribir un programa en Pascal que eval˙e la siguiente expresiÛn:
(a+5) * 3 / 2 * b - b a = 3,b = 6
PROGRAM EJER09;
USES CRT;
VAR a,b:REAL; VAR resultado:REAL;
BEGIN a:=3; b:=6;
resultado:=((a+5)3) / (2b-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) / (2b-b)'); WRITELN (' '); WRITE ('Escriba a: '); READ (a); WRITE ('Escriba b: '); READ (b); WRITELN (' ');
resultado:=((a+5)3) / (2b-b);
WRITE ('RESULTADO: '); WRITE(resultado:5:2); END.
☺Escribir un programa en Pascal que eval˙e la siguiente expresiÛn:
(-b + √(b
-4ac)/(2*a)
(es la soluciÛn positiva de una ecuaciÛn 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) - 4ac))/(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: '); READLN (a); WRITE ('Escriba b; '); READLN (b); WRITE ('Escriba c; '); READLN (c); WRITELN (' ');
resultado:=(-b +sqrt(sqr (b) - 4ac))/(2*a);
v:=(3.1416sqr(2))h;
ClrScr;
WRITE('AREA DEL CILINDRO: '); WRITELN(a:5:2); WRITE('VOLUMEN DEL CILINDRO: '); WRITELN(v:5:2); END.
☺Escribir un programa en Pascal que calcule el ·rea y el volumen de un hexaedro
A = (l*l) * 6
V = l
PROGRAM EJER12;
USES CRT;
VAR lado:REAL; VAR area,volumen:REAL;
BEGIN lado:=4;
area:= (lado * lado) * 6; volumen:= sqr(lado) * lado;
ClrScr;
WRITE ('AREA DEL HEXAEDRO:'); WRITE (area); WRITELN (' m2'); WRITE ('VOLUMEN DEL HEXAEDRO:'); WRITE (volumen); WRITE (' m3');
END.
PROGRAM EJER12B;
USES CRT;
VAR lado:REAL; VAR area,volumen:REAL;
BEGIN ClrScr;
WRITE ('INTRODUCE EL LADO DEL HEXAEDRO: ');
READLN (lado); WRITELN (' ');
area:= (lado * lado) * 6; volumen:= sqr(lado) * lado;
WRITE ('AREA DEL HEXAEDRO: '); WRITE (area:5:2); WRITELN (' m2'); WRITE ('VOLUMEN DEL HEXAEDRO: '); WRITE (volumen:5:2); WRITE (' m3');
END.
☺Escribir un programa en Pascal que calcule el ·rea y el volumen de un prisma
A = (2 (l1 * l2)) + (2 * (l1 * l3)) + (2(l2 * l3))
V = l1 * l2 * l
PROGRAM EJER13;
USES CRT;
VAR l1,l2,l3:REAL; VAR area,volumen:REAL;
BEGIN
l1:=3; l2:=6; l3:=4;
area:=2 * (l1 * l2)+(2 * (l1 * l3)) + (2* (l2 * l3)); volumen:= l1 * l2 * l3;
ClrScr;
WRITE ('AREA DEL PRISMA:'); WRITELN(area); WRITE ('VOLUMEN DEL PRISMA:'); WRITE (volumen); END.
PROGRAM EJER13B;
USES CRT;
VAR l1,l2,l3:REAL; VAR area,volumen:REAL;
BEGIN {Calcula el area y volumen de un prisma}
ClrScr;
WRITELN ('PARA CALCULAR EL AREA Y EL VOLUMEN DEL PRISMA, ESCRIBA: '); WRITELN (' '); WRITE ('Lado1: '); READLN (l1); WRITE ('Lado2: '); READLN (l2); WRITE ('Lado3: '); READLN (l3); WRITELN (' ');
area:=2 * (l1 * l2)+(2 * (l1 * l3)) + (2* (l2 * l3)); volumen:= l1 * l2 * l3;
WRITE ('AREA DEL PRISMA: '); WRITELN (area:5:2); WRITE ('VOLUMEN DEL PRISMA: '); WRITE (volumen:5:2);
END.
☺Escribir un programa en Pascal que calcule el ·rea y el volumen de un tetraedro
A = a
raÌzcuadrada(3)
V = (a
/12) * raÌzcuadrada (2)
PROGRAM EJER14;
USES CRT;
VAR arista:REAL; VAR area, volumen:REAL;
BEGIN
arista:=5;
area:= sqr(arista) * sqrt(3); volumen:= ((sqr(arista) * arista) / 12) * sqrt(2);
WRITE ('AREA DEL TETRAEDRO: '); WRITELN (area); WRITE ('VOLUMEN DEL TETRAEDRO: '); WRITE (volumen); END.
PROGRAM EJER14B;
USES CRT;
VAR arista:REAL; VAR area, volumen:REAL;
V = (PI * r
* h)/
PROGRAM EJER16;
USES CRT;
VAR radio,lado,altura:REAL; VAR area,volumen:REAL;
BEGIN
radio:=6; lado:=3; altura:=8;
area:= (3.1416 * radio * lado) + (3.1416 * sqr(radio)); volumen:= (3.1416 * sqr(radio) * altura) / 3;
WRITE ('AREA DEL CONO: '); WRITELN (area); WRITE ('VOLUMEN DEL CONO: '); WRITE (volumen); END.
PROGRAM EJER16B;
USES CRT;
VAR radio,lado,altura:REAL; VAR area,volumen:REAL;
BEGIN {Se utiliza para calcular el area y volumen de un cono}
WRITELN ('Para calcular el area y el volumen de un cono: '); WRITELN (' '); WRITE ('Escriba el valor del radio: '); READLN (radio); WRITE ('Escriba el valor del lado: '); READLN (lado); WRITE ('Escriba el valor de la altura: '); READLN (altura); WRITELN (' ');
area:= (3.1416 * radio * lado) + (3.1416 * sqr(radio)); volumen:= (3.1416 * sqr(radio) * altura) / 3;
WRITE ('AREA DEL CONO: '); WRITELN (area:5:2); WRITE ('VOLUMEN DEL CONO: '); WRITE (volumen:5:2);
END.
☺Escribir un programa en Pascal que calcule el volumen de un elipsoide
V = (4/3) * PI * a * b *c
PROGRAM EJER17;
USES CRT;
VAR a,b,c:REAL; VAR volumen:REAL;
BEGIN
a:=3; b:=5; c:=4;
volumen:= (4/3) * 3.1416 * a * b * c;
WRITE ('VOLUMEN DEL ELIPSOIDE:'); WRITE (volumen); END.
PROGRAM EJER17B;
USES CRT;
VAR a,b,c:REAL;
VAR volumen:REAL;
BEGIN {Calcula el volumen de un elipsoide}
ClrScr;
WRITELN ('PARA CALCULAR EL VOLUMEN DE UN ELIPSOIDE ESCRIBA: '); WRITELN (' ');
WRITE ('A: '); READLN (a); WRITE ('B: '); READLN (b); WRITE ('C: '); READLN (c);
volumen:= (4/3) * 3.1416 * a * b * c;
WRITE ('VOLUMEN DEL ELIPSOIDE: '); WRITE (volumen:5:2); END.
☺Escribir un programa en Pascal que calcule las raÌces de una ecuaciÛn de 2∫ grado
PROGRAM EJER18;
USES CRT;
VAR a,b,c:REAL; VAR x1,x2:REAL;
BEGIN
a:=6; b:=6; c:=1;
x1:= (-b + sqrt(sqr(b) - (4 * a * c))) / 2 * a; x2:= (-b - sqrt(sqr(b) - (4 * a * c))) / 2 * a;
WRITE ('SOLUCION 1:'); WRITELN (x1); WRITE ('SOLUCION 2:'); WRITE (x2); END.
PROGRAM EJER18B;
USES CRT;
VAR a,b,c:REAL; VAR resultado1,resultado2:REAL;
BEGIN
{Calcula ecuaciones de segundo grado}
ClrScr;
WRITE ('ESTE PROGRAMA SIRVE PARA CALCULAR ECUACIONES '); WRITELN ('DE SEGUNDO GRADO'); WRITELN (' '); WRITELN ('Introduzca: a, b y c: '); WRITELN (' '); READLN (a); READLN (b); READLN (c);
resultado1:=(-b + sqrt(sqr(b) - 4ac)) / (2a); resultado2:=(-b - sqrt(sqr(b) - 4ac)) / (2a); WRITELN ('RESULTADO DE LA EXPRESION: '); WRITE ('VALOR 1: '); WRITELN (resultado1:5:2); WRITE ('VALOR 2; '); WRITE (resultado2:5:2); END.
ClrScr;
WRITE ('HIPOTENUSA DEL TRIANGULO: '); WRITE (hipotenusa:5:2); WRITE (' cm');
END.
PROGRAM EJER20B;
USES CRT;
VAR cateto1,cateto2:REAL; VAR hipotenusa:REAL;
BEGIN {Con este programa podremos calcular la hipotenusa de un triangulo}
ClrScr;
WRITE ('PARA CALCULAR LA HIPOTENUSA DEL TRIANGULO '); WRITELN ('ESCRIBA LOS CATETOS: '); WRITELN (' '); WRITE ('Cateto1: '); READLN (cateto1); WRITE ('Cateto2: '); READLN (cateto2); WRITELN (' ');
hipotenusa:= sqrt(sqr(cateto1) + sqr(cateto2));
WRITE ('HIPOTENUSA DEL TRIANGULO: '); WRITE (hipotenusa:5:2);
END.
PROGRAM EJER20;
USES CRT;
VAR c1,c2,h:REAL;
BEGIN ClrScr;
WRITE('Introduzca cateto_1: '); READLN (c1); WRITE('Introduzca cateto_2: '); READLN (c2);
h:=sqrt(sqr(c1)+sqr(c2));
WRITE('Cateto_1 ------> '); WRITELN (c1:5:2); WRITE('Cateto_2 ------> '); WRITELN (c2:5:2); WRITE('Hipotenusa ----> '); WRITELN (h:5:2); END.
☺Escribir un programa en Pascal que calcula el equivalente en grados Fahrenheit o Celsius
de las siguientes temperaturas.
Temperatura 1 = 32∫ Fahrenheit
Temperatura 2 = 10 ∫ Celsius
{Regla de 3: Celsius / 5 = (Fahrenheit ñ 32) 9}
PROGRAM EJER21;
USES CRT;
VAR T1,T2:REAL;
VAR T1C,T2F:REAL;
BEGIN
T1:=32;
T2:=10;
T1C:=T1 - 32;
T2F:=T2 + 32;
ClrScr;
WRITE ('TEMPERATURA EQUIVALENTE: '); WRITE (T1:3:0); WRITE ('º Fahrenheit - '); WRITE (T1C:3:0); WRITELN ('º Celsius');
WRITE ('TEMPERATURA EQUIVALENTE: '); WRITE (T2:3:0); WRITE ('º Celsius - '); WRITE (T2F:3:0); WRITE ('º Fahrenheit'); END.
PROGRAM EJER21B;
USES CRT;
VAR Fahrenheit, Celsius:REAL; VAR T1C,T2F:REAL; VAR respuesta:CHAR; BEGIN ClrScr;
REPEAT BEGIN WRITE ('¿DESEA PASARLO A FAHRENHEIT O CELSIUS? F/C: '); READLN (respuesta); WRITELN (''); END; UNTIL (respuesta='C') OR (respuesta='F') OR (respuesta='c') OR (respuesta='f');
IF UPCASE(respuesta)='F' THEN BEGIN WRITELN ('Introduzca los grados para pasar a Fahrenheit: '); WRITE ('Celsius: '); READLN (Celsius);
Fahrenheit:= ((9 * Celsius) / 5) + 32;
WRITE (Fahrenheit:5:2,' grados Fahrenheit.'); WRITELN (' '); END
ELSE IF UPCASE (respuesta)='C' THEN BEGIN WRITELN ('Introduzca los grados para pasar a Celsius: '); WRITE ('Fahrenheit: '); READLN (Fahrenheit);
Celsius:= ((Fahrenheit - 32) / 9) * 5;
WRITE (Celsius:5:2,' grados Celsius.'); END; END.
PROGRAM EJER21;
USES CRT;
VAR t_C,t_F:REAL; BEGIN
ClrScr;
WRITE('Introduzca temperatura: (ºCelsius): '); READLN(t_C);
t_F:=((t_C*9)/5)+32;
PROGRAM EJER22B;
USES CRT;
VAR horas, minutos, segundos:INTEGER; VAR cantidad:INTEGER;
BEGIN ClrScr;
WRITE ('Escriba los segundos para transformarlo a horas,'); WRITELN (' minutos y segundos'); READLN (cantidad); {Es el numero de segundos que se introducen} WRITELN ('');
horas:= cantidad div 3600; minutos:= (cantidad mod 3600) div 60; segundos:= (cantidad mod 3600) - (minutos * 60); {Los segundos son: las horas - los minutos pasados a segundos}
WRITELN ('EN ' ,cantidad, ' SEGUNDOS HAY: '); WRITE (horas,' horas ',minutos,' minutos ',segundos,' segundos'); END.
PROGRAM EJER22;
USES CRT;
VAR h,m,s1,s2:INTEGER; BEGIN
ClrScr;
WRITE('Introduzca segundos: '); READLN(s1);
h:=s1 div 3600; s2:=s1 mod 3600;
m:=s2 div 60; s2:=s2 mod 60;
ClrScr;
WRITE(s1); WRITE(' segundos son -----> '); WRITE(h); WRITE(' horas '); WRITE(m); WRITE(' minutos '); WRITE(s2); WRITE( 'segundos '); END.
☺Escribir un programa en Pascal que calcule el capital producido por un capital de
1.000.000 de pesetas, al cabo de un aÒo depositado a un interÈs del 2%.
PROGRAM EJER23;
USES CRT;
VAR capital,tiempo,interes:REAL; VAR capitalproducido:REAL;
BEGIN capital:=1000000; tiempo:=1; interes:=2;
capitalproducido:= capital * 0.02;
ClrScr;
WRITE ('En un año se producira un capital de ');
WRITE (capitalproducido:5:2); WRITE (' pesetas'); END.
PROGRAM EJER23B;
USES CRT;
VAR capital,tiempo,interes:REAL; VAR capitalproducido:REAL;
BEGIN
ClrScr;
WRITELN ('PARA CALCULAR EL CAPITAL PRODUCIDO INTRODUZCA ');
WRITELN ('');
WRITE ('Capital: '); READLN (capital); WRITE ('Tiempo: '); READLN (tiempo); WRITE ('Interes:'); READLN (interes);
WRITELN ('');
capitalproducido:= (capital * (interes/100) * tiempo);
WRITE ('En estos años se producira un capital de '); WRITE (capitalproducido:5:2); WRITE (' pesetas.'); END.
PROGRAM EJER23;
USES CRT;
VAR capital,interes,intereses:REAL; BEGIN
ClrScr;
WRITE('Capital: '); READLN(capital); WRITE('Intefes: '); READLN(interes);
intereses:=capital*(interes/100);
ClrScr;
WRITE('Capital: '); WRITELN(capital:5:2); WRITE('Interes: '); WRITELN(interes:5:2); WRITE('Intereses: '); WRITELN(intereses:5:2); END.
☺Escribir un programa en Pascal que calcula la siguiente expresiÛn trigonomÈtrica para un
valor angular de 90∫
(sen x * cos x)/(tan x)
PROGRAM EJER24B;
USES CRT;
VAR resultado, resultado2, x:REAL;
BEGIN
WRITE ('PARA CALCULAR LA EXPRESION: (sin(x) * cos(x)) / tan(x)'); WRITELN (' INTRODUZCA EL VALOR DE X EN RADIANES: '); READLN (x);
WRITELN ('');
resultado:=(sin(x) * cos(x)) / (sin(x) / cos(x));
