EJERCICIOS 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í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('Introduzca unnumero: ');
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 o menor que 100.
PROGRAM EJER35;
USES CRT;
VAR num:INTEGER;
BEGIN
ClrScr;
WRITE ('Escriba un numero entero:');
WRITELN ('');
IF num < 100 THEN
WRITE ('El numero
ELSE IF num > 100
WRITE ('El numero
ELSEWRITE ('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 <= 100) THEN
WRITE('NUMERO MENOR O IGUAL A 100 ')
ELSE
WRITE('NUMERO MAYOR DE 100')
END.
• Escribir un programa en Pascal que dado un número del 1 a 7
escriba elcorrespondiente nombre del día de la semana.
PROGRAM EJER36;
USES CRT;
VAR num:INTEGER;
BEGIN
ClrScr;
WRITE ('Escriba un numero para ver con que dia corresponde: ');
READLN (num);
IF num=1 THEN
WRITE ('Lunes');
IF num=2 THEN
WRITE ('Martes');
IF num=3 THEN
WRITE ('Miercoles');
IF num=4 THEN
WRITE ('Jueves');
IF num=5 THEN
WRITE ('Viernes');
IF num=6 THEN
WRITE ('Sabado');
IF num=7 THEN
WRITE ('Domingo');END.
PROGRAM EJER36;
USES CRT;
VAR num_dia_sem:INTEGER;
BEGIN
ClrScr;
WRITE('Dia de la semana (numero) -> ');
READLN(num_dia_sem);
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 Pascalque lea dos números desde el
teclado y si el primero es mayor que el segundo intercambie sus
valores.
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
WRITE(num2,' ',num1,'. El primer numero introducido
es mayor.');
WRITE(' Se cambia el orden.');
END
ELSE
BEGINWRITE(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;
WRITELN('Numero intercambiados');
WRITE('Numero 1: '); WRITELN(num1);
WRITE('Numero 2: ');WRITELN(num2);
END
ELSE
BEGIN
WRITELN('Numeros sin intercambiar');
WRITE('Numero 1: '); WRITELN(num1);
WRITE('Numero 2: '); WRITELN(num2);
END;
END.
• Escribir un programa en Pascal que dada una calificación en
valor alfabético (A,B,C,D ó E) indique su equivalente en
valor numérico (4,5,6,7 u 8).
PROGRAM EJER38;
USES CRT;
VAR valor:CHAR;
BEGIN
ClrScr;
WRITE ('Escriba una calificacion entre a y e:');
READLN (valor);
WRITELN ('');
CASE UPCASE(valor) OF
'A': WRITE ('El valor correspondiente es: 4');
'B': WRITE ('El valor correspondiente es: 5');
'C': WRITE ('El valor correspondiente es: 6');
'D': WRITE ('El valor correspondiente es: 7');
'E': WRITE ('El valor correspondiente es: 8')
ELSE
WRITE ('La calificacion no existe');
END;
END.
PROGRAM EJER38;
USES CRT;
VAR cal:CHAR;
BEGIN
ClrScr;...
Regístrate para leer el documento completo.