Algoritmos en pascal

1.

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

• Pide al usuario que ingrese un numero
• Muestra en pantalla un mensaje
• Suma dos variables y muestra el resultado
• Solicita al usuario que ingrese un nombre

2.

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

• Muestra por pantalla el resultado de la división entre 2 numeros
• Calcula el promedio de 2 notas ingresadas por teclado
• Calcula la suma de 2 numeros ingresados y lo almacena en una constante
• Solicita el ingreso de 2 números, los suma y almacena el resultado en una variable y muestra por pantalla

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.

• Repite el ingreso de numeros, muestra por pantalla HASTA que la variable de control sea igual a 3
• Calcula la suma de numeros ingresados MIENTRAS la variable de control sea igual a 3
• Muestra por pantalla los nombres de trabajadores de una empresa
• El algoritmo es incorrecto, no cumple ninguna función

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.

• El promedio obtenido es 7.5
• El promedio obtenido es 10
• El promedio obtenido es 8
• Ninguna de las opciones anteriores son correctas

5. El siguiente algoritmo es correcto?

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

• Verdadero
• Falso

6.

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

• El resultado mostrado en pantalla es: 10 10 36
• El resultado mostrado en pantalla es: 10 -8 36
• El resultado mostrado en pantalla es: 10 -8 36
• El resultado mostrado en pantalla es: 10 10 10