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 suvalor}

WRITELN('Mostraremos el equivalente en numeros romanos del numero que
desee.');
WRITELN;
WRITE('¿Cuantos digitos tiene el numeroque va a introducir? ');
READLN(digitos);
WHILE (digitos > 3) or (digitos < 1) DO
BEGIN
WRITE('Debe estar entre 1 y 3, introduzca losdigitos:');
READLN(digitos);
IF digitos = 1 THEN
contador := 1
ELSE IF digitos = 2THEN
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
CONTINUE
ELSE IF contador = 2 THEN...