Ejemplo 1.
Este es el
ejercicio 1. Al ponerlo en el compilador sale 7. Porque se da el
valor el valor 4 y 3 a “a” y “b”, respectivamente, y se hace
la suma de las dos variables. La suma de “a” y “b” dará
“c”=7
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.
Ejemplo
2.
Se
introducen 2 variables: x=10 e y=2. A continuación se establecen las
operaciones que debe realizar el pograma: suma, resta (rest),
multiplicación (mult) y división (divi). Entonces el programa
realiza las operaciones y escribe los resultados por ese orden: 12,
8, 10 y 5.
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.
Ejemplo
3.
Se
introducen las medidas de los lados de un rectángulo, 3 y 4 (que son
las variables). Al compilarlo, como el programa conoce la fórmula,
realiza la operación y da el resultado que es 12.
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.
