Programa Pascal

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;

END.

WRITE (c); {Muestra en pantalla el valor de la suma}

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;

divi:=x div y;

ClrScr;

END.

WRITE('SUMA:'); WRITELN(suma); WRITE('RESTA:'); WRITELN(rest); WRITE('MULTIPLICACION:'); WRITELN(mult); WRITE('DIVISION:'); 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 valores para las variables}

lado1:=3;

lado2:=4;

area:=lado1*lado2; {Calculamos el area} ClrScr;

END.

WRITE ('AREA DEL RECTANGULO: '); WRITE (area); {Lo mostramos en pantalla}

PROGRAM EJER3B; USES CRT;

VAR lado1,lado2:REAL; VAR area:REAL;

BEGIN

END.

{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);

☺Escribir un programa en Pascal que calcule el área de un triángulo:

base = 7 altura = 4 área del triángulo = (base * altura)/2

PROGRAM EJER04; USES CRT;

VAR base,altura:REAL; VAR area:REAL;

BEGIN

END.

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}

PROGRAM EJER4B; USES CRT;

VAR base,altura:REAL;

VAR area:REAL;

BEGIN

END.

{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

...