INFORMATICA

EJERCICIOS RESUELTOS DE PASCAL
• Escribir un programa en Pascal que detecte el carácter
introducido por el usuario.
PROGRAM EJER31;
USES CRT;
VAR pato_donald:CHAR;
BEGIN
ClrScr;
WRITE('Introduzca un caracter alfanumerico: ');
READLN
(pato_donald);
WRITE ('El caracter introducido es -----> ' + pato_donald)
END.
• Escribir un programa en Pascal que determine si un número
leídodesde el teclado es par o impar
PROGRAM EJER34;
USES CRT;
VAR num:INTEGER;
BEGIN
ClrScr;
WRITE ('Introduzca un numero entero: ');

READLN (num);

IF num = 0 THEN
WRITE ('El numero introducidono es par ni impar, es 0')
ELSE IF ((num mod 2 = 0)) THEN
WRITE ('El numero introducido es par')
ELSE
WRITE ('El numero introducido es impar')
END.

PROGRAM EJER34;
USES CRT;
VARnum:INTEGER;
BEGIN
ClrScr;
WRITE('Introduzca un numero: ');
READLN(num);
IF (num mod 2 = 0) THEN
WRITE('NUMERO PAR')
ELSE
WRITE('NUMERO IMPAR');
END.

• Escribir un programa en Pascal que detecte siun número
leído desde el teclado es mayor o menor que 100.
PROGRAM EJER35;
USES CRT;
VAR num:INTEGER;
BEGIN
ClrScr;
WRITE ('Escriba un numero entero:');
WRITELN ('');

IF num < 100 THENWRITE ('El numero
ELSE IF num > 100
WRITE ('El numero
ELSE
WRITE ('El numero

READLN (num);

que ha escrito es menor de 100')
THEN
que ha escrito es mayor de 100')
es 100')

END.PROGRAM EJER35;
USES CRT;
VAR num:REAL;
BEGIN
ClrScr;
WRITE('Introduzca un numero : ');

READLN(num);

IF (num num2 THEN
BEGIN
WRITE(num2,' ',num1,'. El primer numero introducido
es mayor.');WRITE(' Se cambia el orden.');
END
ELSE
BEGIN
WRITE(num1,' ',num2,'. El segundo numero introducido es
mayor.');
WRITE(' No se cambia el orden.');
END;

END.

PROGRAM EJER37;
USES CRT;VAR num1,num2,temp:INTEGER;
BEGIN
ClrScr;
WRITE('Numero 1: ');
WRITE('Numero 2: ');

READLN(num1);
READLN(num2);

IF (num1 > num2) THEN
BEGIN
temp:=num1;
num1:=num2;
num2:=temp;...