Tugas yang Buat Nyesek

Prokomp ku juga belum sempurna kok. coba cari deh gimana caranya biar belas belasnya muncul. maaf ini repost. postingan yg tadi menyublim --"

program angka_dalam_bahasa;

uses wincrt;

var a,b,c,d,e,f,g,h,i,j,k : longint ;

    

begin

     writeln('========================================');

     writeln('=== Program Menyebut Jumlah Bilangan ===');

     writeln('===          afifahmahdiata          ===');

     writeln('===             M0111033             ===');

     writeln('========================================');

     writeln;

     writeln('Masukkan angka (dalam skala 1-999999) ');

     write('=> ');

     readln(a);

     b:=a div 100000;

     c:=a mod 100000;

     e:=c div 10000;

     d:=c mod 10000;

     g:=d div 1000;

     f:=d mod 1000;

     i:=f div 100;

     h:=f mod 100;

     j:=h div 10;

     k:=h mod 10;

     writeln;

     write('terbilang : ');

     case b of

          0 : write(' ');

          1 : write('seratus');

          2 : write('dua ratus');

          3 : write('tiga ratus');

          4 : write('empat ratus');

          5 : write('lima ratus');

          6 : write('enam ratus');

          7 : write('tujuh ratus');

          8 : write('delapan ratus');

          9 : write('sembilan ratus');

     end;

     case e of

          0 : write(' ');

          1 : write('sepuluh');

          2 : write('dua puluh');

          3 : write('tiga puluh');

          4 : write('empat puluh');

          5 : write('lima puluh');

          6 : write('enam puluh');

          7 : write('tujuh puluh');

          8 : write('delapan puluh');

          9 : write('sembilan puluh');

     end;

     case g of

          0 : write(' ');

          1 : write('seribu');

          2 : write('dua ribu');

          3 : write('tiga ribu');

          4 : write('empat ribu');

          5 : write('lima ribu');

          6 : write('enam ribu');

          7 : write('tujuh ribu');

          8 : write('delapan ribu');

          9 : write('sembilan ribu');

     end;

     case i of

          0 : write(' ');

          1 : write('seratus');

          2 : write('dua ratus');

          3 : write('tiga ratus');

          4 : write('empat ratus');

          5 : write('lima ratus');

          6 : write('enam ratus');

          7 : write('tujuh ratus');

          8 : write('delapan ratus');

          9 : write('sembilan ratus');

     end; 

     if (j>19) or (j<100) then begin

     case j of

          0 : write(' ');

          2 : write('dua puluh');

          3 : write('tiga puluh');

          4 : write('empat puluh');

          5 : write('lima puluh');

          6 : write('enam puluh');

          7 : write('tujuh puluh');

          8 : write('delapan puluh');

          9 : write('sembilan puluh');

     end;

     case k of

          0 : write(' ');

          1 : write('satu');

          2 : write('dua');

          3 : write('tiga');

          4 : write('empat');

          5 : write('lima');

          6 : write('enam');

          7 : write('tujuh');

          8 : write('delapan');

          9 : write('sembilan');

     end; end

     else if j<20 then

     case (j-10) of

          0 : write('sepuluh');

          1 : write('sebelas');

          2 : write('dua belas');

          3 : write('tiga belas');

          4 : write('empat belas');

          5 : write('lima belas');

          6 : write('enam belas');

          7 : write('tujuh belas');

          8 : write('delapan belas');

          9 : write('sembilan belas');

     end;

     

end.

.hening. lagi. dan kemudian hilang begitu saja.

---