Senin, 13 Oktober 2014

Program KONVERSI_ANGKA_KE_KATA



Buatlah algoritma untuk mengkonversi masukan angka dijadikan dalam ribuan, ratusan, puluhan, dan satuan.
Contoh : 5438 = 5 ribuan, 4 ratusan, 3 puluhan dan 8 satuan
Program KONVERSI_ANGKA_KE_KATA
{Mengkonversi masukan angka menjadi bentuk ribuan, ratusan, puluhan dan satuan}

DEKLARASI :
type dt_bilangan : record
< angka    : integer
    ribu        : integer
    ratus      : integer
    puluh    : integer >
konv      : dt_bilangan
sisa         : dt_bilangan




ALGORITMA :
READ(konv.angka)
IF(konv.angka >= 1000) THEN
                konv.ribu = konv.angka div 1000
                sisa.ribu = konv.angka mod 1000
                konv.ratus = sisa.ribu div 100
                sisa.ratus = sisa.ribu mod 100
                konv.puluh = sisa.ratus div 10
                sisa.puluh = sisa.ratus mod 10
ELSE
IF(konv.angka>=100) THEN
                                konv.ribu = 0
                                konv.ratus = konv.angka div 100
                                sisa.ratus = konv.angka mod 100
                                konv.puluh = sisa.ratus div 10
                                sisa.puluh = sisa.ratus mod 10   
ELSE
IF(konv.angka>= 10) THEN
                                                konv.ribu = 0
                                                konv.ratus = 0
                                                konv.puluh = konv.angka div 10
                                                sisa.puluh = konv.angka mod 10               
ELSE
                                                konv.ribu = 0
                                                konv.ratus = 0
                                                konv.puluh = 0
                sisa.puluh = konv.angka
END IF
                END IF
END IF

IF(konv.ribu > 0) THEN
WRITE(konv.angka, “ = “, konv.ribu, “ ribuan ”, konv.ratus, “ ratusan ”, konv.puluh, “ puluhan dan “, sisa.puluh, “ satuan”)
ELSE
                IF(konv.ratus > 0) THEN
WRITE(konv.angka, “ = “, konv.ratus, “ ratusan ”, konv.puluh, “ puluhan dan “, sisa.puluh, “ satuan”)
                ELSE
                                IF(konv.puluh > 0) THEN
WRITE(konv.angka, “ = “, konv.puluh, “ puluhan dan “, sisa.puluh, “ satuan”)
                                ELSE
WRITE(konv.angka, “ = “, sisa.puluh, “ satuan”)
                                END IF
                END IF
END IF











#include<iostream.h>
#include<conio.h>

void main()
{
struct dt_bilangan
    {int angka;
     int ribu;
     int ratus;
     int puluh;};
dt_bilangan konv;
dt_bilangan sisa;

cout<<"Masukkan angka ... ";cin>>konv.angka;

if(konv.angka >= 1000)
    {konv.ribu = konv.angka / 1000;
    sisa.ribu = konv.angka % 1000;
    konv.ratus = sisa.ribu / 100;
    sisa.ratus = sisa.ribu % 100;
    konv.puluh = sisa.ratus / 10;
    sisa.puluh = sisa.ratus % 10;}
else
if(konv.angka>=100)
        {konv.ribu = 0;
        konv.ratus = konv.angka / 100;
        sisa.ratus = konv.angka % 100;
        konv.puluh = sisa.ratus / 10;
        sisa.puluh = sisa.ratus % 10;}
else
if(konv.angka>= 10)
            {konv.ribu = 0;
            konv.ratus = 0;
            konv.puluh = konv.angka / 10;
            sisa.puluh = konv.angka % 10;}
else
            {konv.ribu = 0;
            konv.ratus = 0;
            konv.puluh = 0;
            sisa.puluh = konv.angka;}

if(konv.ribu > 0)
cout<<konv.angka<<" = "<<konv.ribu<<" ribuan "<<konv.ratus<<" ratusan "<<konv.puluh<<" puluhan dan "<<sisa.puluh<<" satuan";
else
    if(konv.ratus > 0)
cout<<konv.angka<<" = "<<konv.ratus<<" ratusan "<<konv.puluh<<" puluhan dan "<<sisa.puluh<<" satuan";
    else
        if(konv.puluh > 0)
cout<<konv.angka<<" = "<<konv.puluh<<" puluhan dan "<<sisa.puluh<<" satuan";
        else
cout<<konv.angka<<" = "<<sisa.puluh<<" satuan";

getch();
}

0 komentar:

Posting Komentar