Uses WinCrt;
Const
Rom : array [1..13] of String =
('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I');
Des : array [1..13] of integer =
(1000,900,500,400,100,90,50,40,10,9,5,4,1);
Var
Bil,i,Bil1 : Integer;
Roma : String;
Begin
Write('Inputkan Bilangan yang Dikehendaki [1..3999] : ');
Readln(Bil);
Bil1 := Bil;
if (Bil > 0) and (Bil < 4000) then
Begin
For i:=1 to 13 do
Begin
while (Bil >= Des[i]) do
Begin
Bil := Bil - Des[i];
Roma := Roma + Rom[i]
End;
End;
Write('Desimal ',Bil1,', Bilangan Romawinya adalah : ',Roma);
end
else
Writeln('Tidak Diketahui Simbol Romawinya.....');
End.
0 comments:
Posting Komentar