PROGRAMACIÓN

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.

http://www.compileonline.com/compile_pascal_online.php->PÁGINA WEB.

 

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