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';

...