pascal
Victor Sanchez2
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 vuestraconfianza.
☺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 borrarla 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
1
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 aritméticas fundamentales: suma,
resta, multiplicación y división}
ClrScr; {Limpia la pantalla}WRITE
WRITE
WRITE
WRITE
('SUMA:');
('RESTA:');
('MULTIPLICACION:');
('DIVISION:');
WRITELN (suma);
WRITELN (rest);
WRITELN (mult);
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 dosnumeros 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 (suma:3:0);
WRITELN (rest:3:0);
WRITELN (mult:3:0);
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;
2
divi:=x div y;
ClrScr;
WRITE('SUMA:');
WRITE('RESTA:');
WRITE('MULTIPLICACION:');
WRITE('DIVISION:');
WRITELN(suma);
WRITELN(rest);
WRITELN(mult);
WRITELN(divi);
END.
☺Escribir un programa en Pascal que calcule el área de un rectángulo:
lado1 = 3 lado2 = 4
área del rectángulo=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 rectángulo}
{Damos valores para las variables}
lado1:=3;
lado2:=4;
area:=lado1*lado2; {Calculamos el area}
ClrScr;
WRITE ('AREA DEL RECTANGULO: ');
WRITE (area); {Lo mostramos en pantalla}
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 (area:5:2);
END.
☺Escribir un programa en Pascal que calcule el área de un triángulo:
base = 7
altura = 4
área del triángulo = (base * altura)/2
3
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}...
Regístrate para leer el documento completo.