Programación

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.

Para comenzar, tenemos que decir que este programa ha sido creado para realizar la suma de dos números. Para crearlo, primero tenemos que ponerle nombre. Esto se logra introduciendo el nombre que le asignaremos al programa tras la palabra PROGRAM. En este caso le llamaremos EJER1B. A continuación, introducimos CRT en USES para borrar la pantalla para poder realizar otra suma diferente. Además creamos tres variables a, b y c, a los que más tarde le asignaremos valores, e indicaremos su formato, en este caso, INTEGER. Con estos datos empezamos a ejecutar el programa. Para ello introducimos BEGIN. Después usamos clrScr para limpiar la pantalla. Esto pues, será lo primero que haga el programa tras ser ejecutado. A continuación, usamos WRITELN para ordenar que escriba la frase 'Este programa suma dos números' para indicar al usuario la función del programa. Después, con la misma opción, ordenamos al programa que escriba “introduzca un número” y el número que sea introducido por el usuario lo guardamos en la variable “a” usando READLN. Tras ello realizamos la misma operación para que el usuario introduzco otro número y guardar su valor en la variable “b”. Por último asignamos el valor de “c” a la suma de “a” y “b” e indicamos que escriba el valor de “c” con WRITE. Con esto el programa habrá realizado su función. Por último, utilizamos END para finalizar el programa.

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;

WRITE('SUMA:'); WRITELN(suma);

WRITE('RESTA:'); WRITELN(rest);

WRITE('MULTIPLICACION:'); WRITELN(mult);

WRITE('DIVISION:'); WRITELN(divi);

END.

Para comenzar ponemos nombre al programa utilizando PROGRAM. En este caso lo llamaremos EJERO. Tras esto utilizamos CRT para borrar la pantalla. A continuación introducimos las variable que utilizaremos durante la ejecución del programa asignándole ”x” e “y” al valor de los números con lo que realizaremos las operaciones y las variables “suma” “rest” “mult” “divi” a las cuatro operaciones que queremos que realice el programa.

Tras estos requisitos empezamos a ejecutarse el programa. Lo primero que deberá hacer es asignarle es valor 10 a x y 2 a y. Tras esto asignamos a las cuatro variables de operaciones su valor. Por ejemplo, la suma será x+y. Así con las cuatro operaciones que queremos realizar. Después limpiamos la pantalla utilizando clrScr. Con la pantalla limpia ya podemos ordenarle al programa que escriba las palabras SUMA RESTA... y a continuación de estas el valor de las variables que creamos anteriormente. Así mostrará el resultado de estas operaciones. Para indicar que el programa a finalizado utilizamos 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.

Este programa lo queremos utilizar para calcular el área. Para empezar ponemos nombre al programa (EJER3B). Utilizamos CRT para limpiar la pantalla y creamos las variables lado1 y lado2 que serán la base y la altura del rectángulo y la variable área que será el valor del área dependiendo del valor de las otras dos variables.

Con todo ello, utilizamos BEGIN para indicar las tareas que deberá realizar el programa tras ser ejecutado. Utilizamos ClrScr para limpiar la pantalla. Con la pantalla limpia indicamos al programa que escriba “Escriba los lados del rectángulo” con WRITELN y a continuación pedimos al usuario que introduzca dos valores para los lados utilizando Read. Asignamos a la variable “area” el valor de la multiplicación de base por altura para calcular dicho área. Por último indicamos al programa que escriba “ÁREA DEL RECTÁNGULO” y el área, que es el valor de dicha multiplicación. Para determinar el fin del programa utilizamos END.