Programas En Pascal

Programas en pascal:

☺ Escribir un programa en Pascal que transforme numeros entre 0 y 999 a numeros romanos.

PROGRAM roma;

Uses Crt;

VAR contador, digitos: Integer;

VAR num_romano, romano: String;

VAR num: CHAR;

BEGIN

ClrScr;

textcolor(10);

{7 es el color de las letras por defecto, con esta funcion cambiamos su valor}

WRITELN('Mostraremos el equivalente en numeros romanos del numero que

desee.');

WRITELN;

WRITE('¿Cuantos digitos tiene el numero que va a introducir? ');

READLN(digitos);

WHILE (digitos > 3) or (digitos < 1) DO

BEGIN

WRITE('Debe estar entre 1 y 3, introduzca los digitos:');

READLN(digitos);

IF digitos = 1 THEN

contador := 1

ELSE IF digitos = 2 THEN

contador := 2

ELSE IF digitos = 3 THEN

contador := 3

END;

WRITELN;

WRITE('Introduzca el numero: ');

REPEAT

num := Readkey;

WRITE(num);

IF contador = 1 THEN

CASE num OF

'1': romano := 'I';

'2': romano := 'II';

'3': romano := 'III';

'4': romano := 'IV';

'5': romano := 'V';

'6': romano := 'VI';

'7': romano := 'VII';

'8': romano := 'VIII';

'9': romano := 'IX';

'0': romano := '';

END

ELSE IF num = '.' THEN

ELSE IF contador = 2 THEN

CASE NUM OF

'1': romano := 'X';

'2': romano := 'XX';

'3': romano := 'XXX';

'4': romano := 'XL';

'5': romano := 'L';

'6': romano := 'LX';

'7': romano := 'LXX';

'8': romano := 'LXXX';

'9': romano := 'XC';

'0': romano := '';

END

ELSE IF num = '.' THEN

CONTINUE

ELSE IF contador = 3 THEN

CASE num OF

'1': romano := 'C';

'2': romano := 'CC';

'3': romano := 'CCC';

'4': romano := 'CD';

'5': romano := 'D';

'6': romano := 'DC';

'7': romano := 'DCC';

'8': romano := 'DCCC';

'9': romano := 'CM';

'0': romano := '';

END;

num_romano := num_romano + romano;

contador := contador - 1 ;

UNTIL contador < 1;

WRITELN;

WRITELN;

IF num_romano = '' THEN

WRITE('Los romanos no usaban el 0!') {Es cierto, como lo harian sin el}

ELSE

BEGIN

WRITE('En numeros romanos es igual a: ');

textcolor(9);

WRITE(num_romano);

END;

REPEAT Until Keypressed;

END.

Juego de ahorcador

Program Ahorcado;

Uses crt;

Var

palabra, intento, letras:string; { La palabra a adivinar, la que }

{ el jugador 2 va consiguiendo y }

{ las letras que se han probado }

oportunidades: integer; { El número de intentos permitido }

letra: char; { Cada letra que prueba el jug. dos }

i: integer; { Para mirar

...