Noell

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 ('Introduzcaun 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ído desde el teclado espar 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 introducido no 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; VAR num:INTEGER; BEGIN ClrScr; WRITE('Introduzcaun numero: '); READLN(num); IF (num mod 2 = 0) THEN WRITE('NUMERO PAR') ELSE WRITE('NUMERO IMPAR'); END.

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

IF num < 100 THEN WRITE ('El numero ELSE IF num > 100 WRITE('El numero ELSE WRITE ('El numero END.

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

PROGRAM EJER35; USES CRT; VAR num:REAL; BEGIN ClrScr; WRITE('Introduzcaun numero : '); READLN(num);

IF (num '); CASE num_dia_sem OF 1: WRITELN('Lunes'); 2: WRITELN('Martes'); 3: WRITELN('Miercoles'); 4: WRITELN('Jueves'); 5: WRITELN('Viernes'); 6: WRITELN('Sabado');7: WRITELN('Domingo'); ELSE WRITELN('No es un dia de la semana'); END; END. • Escribir un programa en Pascal que lea dos números desde el teclado y si el primero es mayor que el segundo intercambie susvalores. PROGRAM EJER37; USES CRT; VAR num1,num2:INTEGER; BEGIN ClrScr; WRITELN ('Escriba dos numeros: '); READLN (num1); WRITE (''); READLN (num2); WRITELN (''); IF num1 > num2 THEN BEGIN...