Hari-hariku disibukan dengan tugas kuliah, dengan tugas-tugas yang membuatku lelah. Semua aku lakukan agar aku tidak punya waktu untuk mengingatmu, agar aku tidak lagi menangisimu.

Sehari setelah kamu pergi, aku merasa duniaku tidak lagi berotasi dengan normal. Aku tidak bisa membayangkan hidup tanpa menatap senyummu, tanpa melihat sosokmu, tanpa membaca pesan singkatmu, dan tanpa mendengar suaramu. Hari-hari yang aku lewati tanpamu adalah hari-hari penuh ketakutan. Dalam hati, aku berharap kamu pulang, namun nampaknya wanita yang telah bersamamu saat ini tidak mungkin mengikhlaskan dirimu kembali padaku.

Satu minggu menangisimu, nyatanya belum cukup bagiku. Aku masih meratapi kepergianmu bahkan saat satu bulan kita berpisah. Dua bulan ketika kamu tidak lagi bersamaku, entah mengapa semua rasa sesak masih tidak beranjak karena tahu melupakanmu bukanlah perkara yang mudah. Namun, nyatanya, bayang-bayangmu kian membesar. Semua kenangan kita, yang harusnya aku lupakan itu, justru makin membesar. Sakit hatiku ternyata masih berusia panjang aku masih menemukan diriku yang masih sering menangisimu. Kemarin, 20 November 2015 adalah tanggal jadian kita dulu. Selamat gagal kesekian bulan untukku dan selamat gagal kesekian bulan karena aku tidak berhasil melupakanmu. Kini, aku merasa semakin bodoh, karena aku tidak sekuat dan seikhlas itu untuk menerima kenyataan— bahwa kita tak lagi sejalan.

 

(dwitasaridwita)

Algoritma Pemograman (Percabangan)

Ditinjau dari asal-usul katanya, kata Algoritma sendiri mempunyai sejarah yang aneh. Orang hanya menemukan kata algorism yang berarti proses menghitung dengan angka arab. Dalam bahasa Indonesia, kata algorithm diserap menjadi algoritma.
Didalam algoritma kita pun belajar tentang suatu program yang disebut program pascal. Pascal adalah salah satu bahasa pemrograman komputer yang umumnya digunakan sebagai pengantar untuk mulai belajar algoritma dan pemrograman.

Pada program Pacsal kita akan dihadapkan pada satu atau banyak pernyataan yang membutuhkan sebuah penyelesaian. Pada pascal juga kita akan menemukan sebuah program yang disebut program Delphi 7. 

Didalam delphi kita akan mengenal 2 sistem percabangan dimana keduanya memiliki suatu perintah bersyarat untuk melakukan aksi tersebut. Perintah percabangan itu dibagi :

1.       If Then

Perintah bersyarat If umumnya digunakan untuk melakukan pencabangan sederhana (antara 2 atau 3 cabang). Atau untuk pencabangan yang banyak, dimana kondisi yang menjadi prasyaratnya melibatkan lebih dari satu parameter. Bentuk sintaks dari perintah bersyarat ini adalah :

If <kondisi_pencabangan> then
Begin
… {aksi-1}
end
else
Begin
… {aksi-2}
end;

2.       Case Of

Perintah bersyarat Case umumnya digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Pemeriksaan kondisi di sini lebih tepat disebutkan dalam hubungan relasi samadengan (=). Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.

Case <Parameter> Of
<nilai_1> : <aksi_1> ;
<nilai_2> : <aksi_2> ;
…
<nilai_n> : <aksi_n> ;
Else <aksi_n+1> ;
End;

berikut contoh syntax nya  :

{menentukan nilai Diskriminan menggunakan if}
program menentukan_diskriminan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  D,b,a,c : integer ;

begin
  writeln ('Masukkan nilai = ') ;
  write ('nilai a = ') ;
  readln (a) ;

  writeln ('Masukkan nilai = ') ;
  write ('nilai b = ') ;
  readln (b) ;

  writeln ('Masukkan nilai = ') ;
  write ('nilai c = ') ;
  readln (c) ;

  D := (sqr(b))-4*a*c ;

    If D>0 then
    writeln ('real berbeda')
    else
        If D=0 then
        writeln ('real sama')
        else
        writeln ('tidak real');
        readln ;
  { TODO -oUser -cConsole Main : Insert code here }
end.

untuk contoh lainnya yaitu :

program konversiangka;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  angka : integer ;

begin
  writeln ('Masukkan konversi angka (1-12):');
  readln (angka) ;
  If ((angka <=3) and (angka >1)) then
  writeln ('Januari')
  else
    If ((angka <=6) and (angka >4)) then
    writeln ('Februari')
    else
      If ((angka <=9) and (angka >5)) then
      writeln ('Maret')
      else
        If ((angka <=12) and (angka >10)) then
        writeln ('April')
        else
        writeln ('Mei') ;
        readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

semoga bermanfaat.. (Rizki Alifah Putri) Universitas Islam Indonesia.. Statistik'15  

"Bahkan saat dunia berputar dan berubah,kenangan yang tercetak pada lembaran foto itu tidak pernah berubah.(refrain) "

mencintaimu adalah hal yang paling kusuka
merindukanmu adalah hal yang paling menyesakkan dan mengandung arti sejuta kebahagiaan
memelukmu adalah hal yang selalu kuinginkan setiap saat..
namun, jika kini kau tlah bersamanya, salahkah aku jika tetap menjaga perasaan yang ada?

aku tidak terlalu berharap kata 'aku' dan 'kamu' akan berubah menjadi 'kita'
karena aku tahu suatu saat cinta akan berpulang pada tempat yang tepat..
aku tidak pernah mencemaskanmu atau mencemaskan yang ada..
karena aku yakin rangkaian doa yang ku panjatkan kepada-Nya akan bekerja dengan sendirinya..

Tapi,..
aku takut bahkan aku iri dengan mereka yang selalu bisa dekat denganmu..
melihatmu, mendengar suaramu, ataupun tawa renyah mu..
meskipun aku percaya skenario Tuhan akan bekerja dengan indahnya..

"Terkadang seseorang tak mungkin terus-terusan berusaha tampak kuat. Ada bagian-bagian dalam tubuh yang begitu lemah yang mampu meluruhkan seluruh jiwa hanya karena sentuhan kecil"