Ejercicios de programación
EJERCICIO1
PROGRAM
EJER01;
var
a,b,c:INTEGER;
BEGIN
{Empezamos
con lo básico, un programa que escribe la suma de 2 números 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}
VAR
a,b,c:INTEGER;
BEGIN
ClrScr;
{Limpiamos la pantalla}
WRITELN
('Este programa suma dos números:');
WRITELN
(' ');
WRITE
('Introduzca un numero: '); READLN (a);
WRITE
('Introduzca otro numero: ' ); READLN (b);
WRITELN
(' ');
c:=a+b;
WRITE
('EL RESULTADO ES: ');
WRITE
(c);
END.
Explicación del ejercicio
Para
comenzar, introducimos el nombre del programa mediante el comando
PROGRAM EJER1B, y a continuación, introducimos el comando USES CRT
para añadir la opción de poder borrar la pantalla para poder
realizar nuevamente otra operación sin tener el obstáculo de la
operación realizada anteriormente, además de añadir también el
formato (INTEGER). Al empezar con nuestro programa, mediante el
comando USES CRT que introducimos al principio, asignamos el comando
ClrScr, para poder limpiar la pantalla. Con el comando writeln
podemos introducir la opción de sumar dos variables que estén entre
''. Seguidamente introducimos la variable a mediante WRITE dentro de
las '' y con READLN escribimos esta variable. Así pues, introducimos
nuestra segunda variable a sumar,b ,mediante WRITE y con la opción
READLN la escribimos. Y por último, la opción WRITE nos permite
escribir la solución.
EJERCICIO
2.
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.
Explicación del ejercicio
Introducimos
el nombre del ejercicio en la primera parte. A continuación
introducimos el nombre de las variables que vamos a necesitar, x y,
mediante INTEGER. Y también la opción de suma, rest, mult, divi, y
le damos a integer.
Entonces,
introducimos el valor de cada variable, por ejemplo, x:10 y y:2. Con
la opción suma, sumamos x e y. Con la resta rest x e y. Con la mult
multiplicamos x*y y con la divi dividimos x e y.
Después
introducimos el comando ClrScr, y a continuación, mediante WRITE
(que usamos en el ejercicio anterior para escribir lo que deseemos
realizar) escribimos entre paréntesis 'suma' y le damos a WRITELN y
nos sale la suma de los dos números que introducimos en las
variables. Y así con la rest, mult, divi.
EJERCICIO 3
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;
WRITE
('AREA DEL RECTANGULO: '); WRITE (area); {Lo mostramos en pantalla}
END.
Explicación del ejercicio
Queremos
calcular el área de un rectángulo. Para ello, necesitamos una
programación que realice los cálculos rápidamente y además que no
nos cause problemas.
Así
pues, introducimos el nombre del ejercicio y introducimos la opción
USES CRT, para poder borrar la pantalla. Introducimos el nombre de
las variables, mediante VAR lado1, lado2: INTEGER. Y mediante VAR
introducimos area, y luego INTEGER.
A
continuación, comenzamos a programar nuestros cálculos.
Introducimos los valores para las variables, por ejemplo, lado1:3;
lado2:4; y introducimos también la fórmula del cálculo de área,
haciendo uso del nombre de las variables introducidas. Así que,
escribimos area:= lado1*lado2. Una vez que hemos metido todos los
datos necesarios, introducimos ClrScr. Por último, escribimos
mediante WRITE el área del rectángulo, y por último, con WRITELN,
mostramos el valor en la pantalla.
