En esta semana hemos realizado unos ejercicios de programación los cuales hemos tenido que explicar.
Son los siguientes:
EJERCICIO
FINAL EVALUACIÓN TICO.
María Domínguez Bernal
La página web dónde hemos realizado la actividad.
EJERCICIO
1
Escribir
un programa en Pascal que sume dos números:
a = 4 b = 3
PROGRAM
EJER01;
var
a,b,c:INTEGER;
BEGIN
a:=4;
b:=3;
c:=a+b;
WRITE
(c); {Muestra en pantalla el valor de la suma}
END.
Tenemos
que a=4 y b=5 , el desarrollo del programa sería el siguiente.
Primero
se le asignan a los números variables como en el ejemplo (“a” y
“b”)aunque puede ser otra cualquiera, entonces ya comenzamos.
Lo
segundo es realizar la suma de ambos números , tal que quedaría c=a
+ b ,en este caso.
Para
que el programa nos resuelva la suma diremos que nos escriba el
resultado de C (WRITE C ).
Una
vez ejecutado el programa nos dará el resultado que en este caso
sería c=7
EJERCICIO
2
Escribir
un programa en Pascal que sume, reste, multiplique y divida dos
números:
x = 10 y = 2
opción
a:
PROGRAM
EJER.
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;
ClrScr;
{Limpia la pantalla}-> Es un borrador de
pantalla.
WRITE
('SUMA:'); WRITELN (suma);
WRITE
('RESTA:'); WRITELN (rest);
WRITE
('MULTIPLICACION:'); WRITELN (mult);
WRITE
('DIVISION:'); WRITE (divi);
END.
En
este otro ejercicio vamos a ejecutar varias cuentas , nos dará el
resultado de una suma , resta multiplicación y división.
Primero
estableceremos las variables , que en este caso serán suma=x+y ,
resta=x-y,multiplicación=x*y y la división=x div y.
Con
estas variables que hemos establecido tan básicas ya se pueden
realizar dichas operaciones aritméticas.
Finalmente
el programa nos dará el valor de X e Y ,y así podremos obtener el
resultado de cada de las operaciones que hayamos establecido.
Los
resultados que nos ha proporcionado el programa son los siguientes:
SUMA:12
RESTA:8
MULTIPLICACION:20
DIVISION:5
EJERCICIO 3
Escribir un
programa en Pascal que calcule el área de un rectángulo:
lado1 = 3
lado2 = 4
área
del rectángulo=lado1 * lado2
PROGRAM EJER
USES CRT;
VAR lado1,lado2:INTEGER;
VAR área:INTEGER;
BEGIN
lado1:=3;
lado2:=4;
área:=lado1*lado2;
ClrScr;
WRITE ('AREA DEL RECTANGULO: '); WRITE (área);
END.
Este programa nos va a servir para calcular el área de un rectángulo.
Primero damos valores para las variables las cuales quedan lado1=3 y lado2=4.
Establecemos la ecuación del área de un rectángulo que es lado*lado=A , que en nuestra cuenta sería lado1 *lado2 = Área y así podremos calcular dicha área.
Seguidamente al introducir la relación nos dará el resultado, es decir , nos lo mostrará en la pantalla .
EL resultado obtenido de dicha área ha sido:
Área del rectángulo=12
