Program Mengkonversi Angka Sembarang ke Romawi dengan Pascal

program_merubah_ankga_Sembarang_menjadi_romawi
{I.S. : USER MEMASUKAN ANGKA DARI SEMBARANG (KURANG DARI 50)}
{F.S. : MENAMPILKAN HASIL ANKGA BERUPA ROMAWI}
Kamus :

x,sisa,hasil : integer
digit1,digit2 : string
Algoritma :

Input(x)
hasil <- x Div 10;
sisa  <- x Mod 10;

Case hasil
1  : digit1 <- 'X';
2  : digit1 <- 'XX';
3  : digit1 <- 'XXX' ;
4  : digit1 <- 'Xi';
5  : digit1 <- 'i';
EndCase
case sisa
1 : digit2 <- 'I';
2 : digit2 <- 'II';
3 : digit2 <- 'III';
4 : digit2 <- 'IV';
5 : digit2 <- 'V';
6 : digit2 <- 'VI';
7 : digit2 <- 'VII';
8 : digit2 <- 'VIII';
9 : digit2 <- 'IX';
10: digit2 <- 'X';
EndCase

Output(digit1,digit2)

--------------------------------------------------------------------------------------------------------------------------

Download Scriptnya :

catatan :

hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.