Sabtu, 25 Desember 2010

Saya membuat program ini dikarenakan untuk memenuhi tugas dari dosen algoritma pemrograman didalamnya terdapat dua fungsi case else dan if then else ,,,dah dulu basa basinya ,,

Ni source codenya :


program Konversi_angka;
uses wincrt;
function terbilang(x:longint):string;
function bilang(x:longint):string;
begin
     case x of
     0:bilang:='';
     1:bilang:='satu';
     2:bilang:='dua';
     3:bilang:='tiga';
     4:bilang:='empat';
     5:bilang:='lima';
     6:bilang:='enam';
     7:bilang:='tujuh';
     8:bilang:='delapan';
     9:bilang:='sembilan';
     10:bilang:='sepuluh';
     11:bilang:='sebelas';
     end;
end;

begin
     if x<12 then
     terbilang := ' ' + bilang(x)

     else if x<20 then
     terbilang:=terbilang(x-10)+'belas'

     else if x<100 then
     terbilang:=terbilang(x div 10)+'puluh'+terbilang(x mod 10)
     else if x<200 then
     terbilang:='seratus'+terbilang(x-100)
     else if x<1000 then
     terbilang:=terbilang(x div 100)+'ratus'+terbilang(x mod 100)
     else if x<2000 then
     terbilang:='seribu'+terbilang(x-1000)
     else if x<1000000 then
     terbilang:=terbilang(x div 1000)+'ribu'+terbilang(x mod 1000)
     else if x<1000000000 then
     terbilang:=terbilang(x div 1000000)+'juta'+terbilang(x mod 1000000)
     else
     terbilang:=terbilang(x div 1000000000)+'milyar'+terbilang(x mod 1000000000);
end;
var
i:longint;
lanjut:char;
begin
repeat
clrscr;
writeln('***************************');
writeln('*      Kelompok 10        *');
writeln('*  Algoritma Pemrograman  *');
writeln('***************************');
write('Masukkan angka : ');readln(i);
writeln('');
writeln('Terbilang      : ',terbilang(i));
writeln('');
write('Lagi? (Y/T) :');readln(lanjut);
until (lanjut='t')or(lanjut='T');
donewincrt;
end.

N nie gambar running programnya :

Categories:

14 komentar:

  1. kerja bagus..... tugas UAS S E L E S A I !

    BalasHapus
  2. Sep gun,,,,,
    yang konversi q minta gun???

    BalasHapus
  3. BENTAR... tak cari dolo.. setahu aku ada dari kakak senior.

    BalasHapus
  4. bentar... tadi itu yg mksdnya "Div" apa???

    BalasHapus
  5. tq sohib, program-a amat membantu
    cuma bagi komputer yang wincrt-a g bisa
    ganti dengan crt aja
    trs deklarasi donecrt di bawah dihapus

    BalasHapus
  6. tq sohib, program-a amat membantu
    cuma bagi komputer yang wincrt-a g bisa
    ganti dengan crt aja
    trs deklarasi donecrt di bawah dihapus

    BalasHapus
  7. ok ...
    Sama sama...
    terima kasih dah mampir..^_^

    BalasHapus
  8. klau untuk 125 gmn ? kan diatas 125-100 = 25 nah 25 gx da di dalam x nya ? mhon pnjelasan

    BalasHapus
  9. 25 div 10 = 2 (puluh) kemudian 25 mod 10 = 5
    jadi terbilang dua puluh lima.
    gimana jelas gan ?

    BalasHapus
  10. thanks Gan rasa penasaran ane sama nih program terbayar lunas , tapi ane msih bingung sama pengertian if else yang di atas

    BalasHapus
  11. sip gan
    tapi kalau bisa ksih logikanya juga gan biar bisa dirubah ke bahasa pemrogaman lain
    #hanya saran
    kunjungi balik ya gan http://ahmadbakhtiar080.blogspot.com/

    BalasHapus
  12. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  13. ini bahasa pemograman ap ya?

    BalasHapus