Algoritmos en pascal

 Joas64

A continuación se presentaran diferentes algoritmos en lenguaje pascal, se deberá reconocer qué funciones realizan cada uno. --------- Joaquin Cantero, estudiante de Lic. en Sistemas ---------

1.

PROGRAM ej1; USES crt;
BEGIN WRITELN ('Hola mundo');
END.

2.

PROGRAM ej2; USES crt;
VAR num1, num2, resultado: INTEGER;
BEGIN READLN (num1); READLN (num2); resultado:= (num1 + num2); WRITELN (resultado);
END.

3.

PROGRAM ej3; USES crt;
VAR num, cont: INTEGER;
BEGIN cont:= 0; REPEAT READLN (num) WRITELN ('El numero es: ', num); cont:= (cont + 1); UNTIL (cont = 3);
END.

4.

PROGRAM ej4; USES crt;
VAR num1, num2, res: REAL;
BEGIN num1:= 8; num2:= 10; res:= (num1 + num2) / 2 WRITELN ('El promedio es: ',res:1:2);
END.

5. El siguiente algoritmo es correcto?

PROGRAM ej5; USES crt;
BEGIN resultado:= (num1, num2, num3) / 3; READLN ('El resultado es:',resultado);
END.

6.

PROGRAM ej6;
USES crt;
VAR	X, Y, Z: INTEGER;
BEGIN	X:= 10;	Y:= -8;	Z:= 36;	Y:= X;	WRITELN (X, Y, Z);
END.