Ejemplos de compilación

EJEMPLO 1

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.

 

El primer ejercicio consiste en asignarle un valor a las variables a y b, a=4 y b=3. A continuación se indica la suma de estas dos variables con su valor correspondiente, y como resultado el programa realiza esta suma y obtenemos su valor, suma=7.

EJEMPLO 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.

Este ejemplo consiste en asignarle un valor a las variables x e y. Una vez asignados sus valores, x=10 e y=2, se indica la suma, resta, multiplicación y división de ambas variables. Finalmente, el programa realiza estas operaciones y obtenemos los cuatro resultados: suma=12, resta= 8, multiplicación= 20 y división= 5.

EJEMPLO 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.

En este ejemplo podemos calcular el área de un triángulo. En el programa se introducen las variables “base” y “altura”, con un valor correspondiente, base=7 y altura= 4. A continuación, se establece la relación entre ambas variables que sería : (base * altura) /2 , y finalmente el programa se encarga de realizar la operación para obtener el valor de el área del triángulo, área= 14.