Ejercios Pascal Resuletos

Escribir un programa en Pascal que detecte el carácter
Introducido por el usuario.

PROGRAM EJER31;
USES CRT;
VAR pato_donald:CHAR;
BEGIN
Textcolor(3);
ClrScr;
Textbackgorund(4);
Gotoxy(10,10); WRITE ('Introduzca un caracter alfanumerico: '); READLN
(pato_donald);
Gotoxy(10,10); WRITE ('El caracter introducido es -----> ' + pato_donald)
Readkey;
END.
-Escribir un programa enPascal que determine si un número
leído desde el teclado es par o impar

PROGRAM EJER34;
USES CRT;
VAR num:INTEGER;
BEGIN
Textcolor(3);
ClrScr;
Textbackgorund(4);
Gotoxy(10,10); 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')
ELSEWRITE ('El numero introducido es impar');
Readkey;
End.

- PROGRAM EJER34;
USES CRT;
VAR num:INTEGER;
BEGIN
Textcolor(3);
ClrScr;
Textbackgorund(4);
Gotoxy(10,10); WRITE('Introduzca un numero: ');
READLN(num);
IF (num mod 2 = 0) THEN
WRITE('NUMERO PAR')
ELSE
WRITE('NUMERO IMPAR');
Readkey;
END.

- Escribir un programa en Pascal que detecte si un número
Leído desde el teclado esmayor o menor que 100.

PROGRAM EJER35;
USES CRT;
VAR num:INTEGER;
BEGIN
Textcolor(3);
ClrScr;
Textbackgorund(4);
Gotoxy(10,10); WRITE ('Escriba un numero entero:'); READLN (num);
WRITELN ('');
IF num < 100 THEN
WRITE ('El numero que ha escrito es menor de 100')
ELSE IF num > 100 THEN
WRITE ('El numero que ha escrito es mayor de 100')
ELSE
WRITE ('El numero es 100');
Readkey;END.

-PROGRAM EJER35;
USES CRT;
VAR num:REAL;
begin
Textcolor(2);
ClrScr;
Textbackgorund(4);
WRITE('Introduzca un numero : '); READLN(num);
IF (num <= 100) THEN
WRITE('NUMERO MENOR O IGUAL A 100 ')
ELSE
WRITE('NUMERO MAYOR DE 100');
Readkey;
END.

- Escribir un programa en Pascal que dado un número del 1 a 7
escriba el correspondiente nombre del día de la semana.

PROGRAMEJER36;
USES CRT;
VAR num:INTEGER;
BEGIN
Textcolor(9);
ClrScr;
Textbackgound(4);
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');
Else
Writeln(‘el numero ingresado no corresponde a ningun dia’);
Readkey;
END.

- PROGRAM EJER36;
USES CRT;
VAR num_dia_sem:INTEGER;
BEGIN
Textcolor(9);
ClrScr;
Textbackgound(4);
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;
Readkey;
END.

- Escribir un programa en Pascal que 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
Textcolor(5);
ClrScr;
Textabackground(9);
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
BEGIN
WRITE(num1,' ',num2,'. El segundo numero introducido es
mayor.');
WRITE(' No se cambia el orden.');
END;
Readkey;
END.

-PROGRAM EJER37;
USES CRT;
VAR num1,num2,temp:INTEGER;
BEGINTextcolor(7);
ClrScr;
Textbackground(6);
WRITE('Numero 1: '); READLN(num1);
WRITE('Numero 2: '); 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);...