Víctor sánchez -- programación en 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 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} VARa,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; USESCRT; {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 END. ('SUMA:'); ('RESTA:');('MULTIPLICACION:'); ('DIVISION:'); WRITELN (suma); WRITELN (rest); WRITELN (mult); WRITE (divi);
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:=xdivi:=x ClrScr; WRITE WRITE WRITE WRITE END. ('SUMA:'); ('RESTA:'); ('MULTIPLICACION:'); ('DIVISION:'); WRITELN (suma:3:0); WRITELN (rest:3:0); WRITELN (mult:3:0); WRITE (divi:5:2); + * / y; y; y; y;
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:'); END. WRITELN(suma); WRITELN(rest); WRITELN(mult); WRITELN(divi);
☺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 valorespara las variables} lado1:=3; lado2:=4; area:=lado1*lado2; {Calculamos el area} ClrScr; WRITE ('AREA DEL RECTANGULO: '); END. WRITE (area); {Lo mostramos en pantalla}
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:'); END. WRITE (area:5:2);
☺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 formatode 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;...
Regístrate para leer el documento completo.