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.

--- 

Selamat Ulang Tahun Ummi

selamat ulang tahun ummi ku tersayaang <3
maaf ya, afi sering nakal.
semoga ummi diizinkan Allah melihat afi bahagia.
semoga ummi dizinkan Allah melihat Mufid sembuh (dengan izin Allah juga tentunya).
semoga umurnya ummi dipanjangkan oleh Allah.

terlalu banyak doa yang tidak bisa afi ungkapkan dengan kata-kata.
afi sayang ummi karena Allah <3

bunga. ummi suka bunga, kan?

Allah, afi benar-benar menyayanginya.

izinkan afi membahagiakan seperti yang ia minta...

amin

May, 6th 2012

iya, afi sayang ummi. lebih dari yang ummi tahu :)

kita akan selalu seperti ini, kan, ummi?

lalu, kenapa?

iya, seperti itu saja

dan aku benar tak ingin kau tahu perasaan apa ini. perasaan yang kata mereka terlalu terlihat. (bahasaku kacau gara2 baca postingan orang nihh, ganggu ajaa!) apakah kau hanya pura-pura tidak sadar? cukup aja deeeh. ntar kalo udah tenang aku lanjutin lagi.

ALLAH, mengapa orang itu jujur sekali ya? (bukan kamu, sekali lagi, bukan kamu!)

aku ingin mengembalikan pada diriku sendiri bahwa aku juga tak akan bisa-atau mungkin belum- menyenangkan hati dunia dan akhiratnya. haha :( menurut Engkau, itu motivasi atau belati yang menjatuhkan? terserah deh. ALLAH, sampaikan pada orang itu, saat ini aku sedang mengambil hati kata-katanya. 

#eh, nangis beneran! ternyata semua sama menyebalkannya,

untuk saat ini kukira. 

-menunggu kata kata indah datang lagi-

kamu beneran mau pukpuk aku? sekarang aku lagi butuh nih. yakin.

April 29th 2012
sejam move on, sejam galau .. 

sesuatu itu bernama perasaan

setan mulai menelusup lagi..

akhwat juga bisa patah hati.
akhwat juga bisa jatuh cinta lagi...


sekedar update aja nih :D
doakan aku kembali menulis --

Allah, aku bingung lagi dengan perasaan ini..

iya, aku sayang dia

--tapi dia sayang yang lain