Rumah Info | Rumah Semua Informasi

If you input numeric number... you must convert it into ROMAWI...
Example:
-----------------------------------------------
Input:
90
-----------------------------------------------
Output:
XC
-----------------------------------------------
OK... do you know about romawi?
1. 1 = I
5 = V
10 = X
50 = L
100 = C
500 = D
1000 = M
But.. these alphabets mayn't be written more than three times..
Input:
90
Output
XC (Not LXXXX)
Then, Try to read this carefully and try it at your pascal program
-----------------------------------------------------------------------------------
var
i,b,hasil : integer;
a : array[1..13] of integer = (1000,900,500,400,100,90,50,40,10,9,5,4,1);
akhir : array[1..13] of integer;

begin
write('masukkan angka : '); readln(b);

for i := 1 to 13 do
begin
akhir[i] := 0;
hasil := b div a[i];
b := b - hasil * a[i];
akhir[i] := hasil;
end;
for i := 1 to akhir[1] do
begin
write('M');
end;
for i := 1 to akhir[2] do
begin
write('DM');
end;
for i := 1 to akhir[3] do
begin
write('D');
end;
for i := 1 to akhir[4] do
begin
write('CD');
end;
for i := 1 to akhir[5] do
begin
write('C');
end;
for i := 1 to akhir[6] do
begin
write('XC');
end;
for i := 1 to akhir[7] do
begin
write('L');
end;
for i := 1 to akhir[8] do
begin
write('XL');
end;
for i := 1 to akhir[9] do
begin
write('X');
end;
for i := 1 to akhir[10] do
begin
write('IX');
end;
for i := 1 to akhir[11] do
begin
write('V');
end;
for i := 1 to akhir[12] do
begin
write('IV');
end;
for i := 1 to akhir[13] do
begin
write('I');
end;


readln;
end.
-----------------------------------------------------------------------------------