RadarURL Siskom Black 4rt: Program konfersi angka biasa menjadi angka romawi

Kamis, 23 Februari 2012

Program konfersi angka biasa menjadi angka romawi

Program ini berfungsi sebagai konfersi dari suatu angka biasa menjadi angka romawi

chek this out :


#include<stdio.h>

#include<conio.h>

int rom(int angka);

char enter();

int main()

{

int angka;

printf("angka(1 s/d 3999) :");

enter();

scanf("%d", &angka);

if(angka<1||angka>3999)

printf("angka harus dalam jangkauan 1 s/d 3999");

else

{

rom(angka);

}

getch();

return 0;

}

//fungsi rom

int rom(int angka)

{

while(angka>=1000)

{

printf("M");

angka=angka-1000;

}

if(angka>=500)

{

if(angka>=900)

{

printf("CM");

angka=angka-900;

}

else

{

printf("D");

angka=angka-500;

}

}

while(angka>=100)

{

if(angka>=400)

{

printf("CD");

angka=angka-400;

}

else

{

printf("C");

angka=angka-100;

}

}

if(angka>=50)

{

if(angka>=90)

{

printf("XC");

angka=angka-90;

}

else

{

printf("L");

angka=angka-50;

}

}

while(angka>=10)

{

if(angka>=40)

{

printf("XL");

angka=angka-40;

}

else

{

printf("X");

angka=angka-10;

}

}

if(angka>=5)

{

if(angka>=9)

{

printf("IX");

angka=angka-9;

}

else

{

printf("V");

angka=angka-5;

}

}

while(angka>=1)

{

if(angka>=4)

{

printf("IV");

angka=angka-4;

}

else


{

printf("I");

angka=angka-1;

}

}return(angka);

}

char enter()

{    return(printf("\n"));

}


Related Posts Plugin for WordPress, Blogger...
Coming Soon !!! System Computer Grand Event ( Screen ) Yang Akan Diselenggarakan Oleh Prodi Sistem Komputer Universitas Tanjungpura, Info Selanjutnya Akan Diposting Di Website Ini ... Ikuti Terus Berita - Berita SiskomBlack4rt ||||||| Presented By @ArMy