Pascal/Turbo Pascal - PROGRAMA QUE CONVIERTE ARABIGOS A ROMANOS EN TURBO PASCAL

   
Vista:

PROGRAMA QUE CONVIERTE ARABIGOS A ROMANOS EN TURBO PASCAL

Publicado por German (1 intervención) el 23/10/2011 22:26:32
Hola, solo quiero saber si alguien tiene el codigo en Turbo Pascal 7 para convertir numeros arabigos a romanos, porfavor me urge. Es para una tarea. Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

PROGRAMA QUE CONVIERTE ARABIGOS A ROMANOS EN TURBO PASCAL

Publicado por ramon (2072 intervenciones) el 24/10/2011 19:04:58
{Esto te vale}

program arabigos;
uses
crt;
type
string5 = string[5];

const
romanos : array[1..20] of string[5] = (
'I','II','III','IV','V','VI','VII','VIII','IX','X',
'XI','XII','XIII','XIV','XV','XVI','XVII','XVIII','XIX','XX');

var
tecla : char;
numero : integer;

function conversion(num : integer) : string5;
begin
if num in[1..20] then
conversion := romanos[num];
end;

begin
clrscr;
writeln('Entre numero Arabigo : ');
readln(numero);
writeln;
writeln(conversion(numero));
repeat until keypressed;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar