Hati seperti kering tapi sebenarnya basah

Seperti di dalam terali tapi sebenarnya bebas

Tempat seabstrak-abstraknya cinta

Yang terlalu putih, meski di siram segalon tinta pekat akan tetap menjadi putih

Mungkin inginku tetap seperti itu

Aku merasa ada sesuatu di piring milik orang lain

Dan aku menginginkan itu

Salah memang

Tapi inilah seabstrak-abstraknya hati

Tempat seabstrak-abstraknya cinta

Milikku

pik

detik di juni ini memang pahit untuk mu

tetap terbangknlah jiwa mu

agar sesakmu tak mampu mengikutimu

dia bukan lah peri yang tercipta untuk mu

yang bisa begitu saja membebaskanmu

dtik di juli masi pahit pik

walau hakim hanya bisa menyanyikan setengah dari lirik yang di tulis jaksa

bolehkah aku menulis lirik untuk aku???

jika ia,kan ku tulis lagu BEBAS untukku,,

mengapa??

karena jiwaku adalah shabat ku

dan aku akan terus bernyanyi untukku, AKU.

batu hitam itu tak lagi menggangguku
bias-bias putih memang tak selamanya akan nyata
tapi, biar kepalaku memikirkannya
tapi, biar tanganku menuliskannya
tapi, biar esokku menjawabnya
dan baru, aku, bercerita...
memang manis itu tak selamanya gula
jika lebah ini sudah keluar dari rumah madu ini
jejeran kata sudah menanti tuk memaki
tapi, biar kepalaku memikirkannya
tapi, biar tanganku menuliskannya
tapi, biar esokku menjawabnya
dan baru, aku, bercerita...

Aku mau awalin tulisan pertama ini dengan kalimat, “NO PAIN NO AGAIN”. Anggap saja kesedihan itu batu sandungan, semakin besar batu sandungan yang kamu hadapi, semakin mudah mengubahnya menjadi batu loncatan. Seseorang akan berpikir kamu kalah, ketika kamu baru saja mulai.

Di tengah cerita, seseorang tadi akan merasa jadi badai dan kamu hanya angin kecil yang berhembus memutar kincir angin kertas. Aku tau bagaimana perasaan yang kamu hadapi, yang bisa aku katakan adalah kamu tidak akan pernah mencapai tujuan kamu jika kamu terus berhenti dan melempar batu pada setiap anjing yang menyalak kepadamu.

Ini akhirnya, periksa semua kantong kamu, jangan sampai kamu membawa batu bata dari masa lalu, karna kamu bisa berakhir dengan membangun rumah yang sama. Untukmu siapapun kamu, semua akan baik-baik saja, aku tidak tau kenapa, itu yang aku pilih untuk aku percaya.

Kode Pemrograman :

program HitungRataRata;

uses wincrt;

type

    Data = array[1..100] of real;

    TipeMahasiswa = array[1..100] of string;

var

    NamaMahasiswa :TipeMahasiswa;

    Nilai:Data;

    i,N,b,c:integer;

    jum,rata2,x,p:real;

    y,q,a: string;

begin

    writeln('---------------------------------------------------------------------');

    writeln('No         Nama                     Nilai              Keterangan    ');

    writeln('---------------------------------------------------------------------'); 

    repeat

         i:=i+1;

         gotoxy(1,i+3); write(i);

         gotoxy(9,i+3); read(NamaMahasiswa[i]);

         gotoxy(40,i+3); readln(Nilai[i]);

         jum:=jum+Nilai[i];

         N:=i;

           if i=1 then

           begin

           x := Nilai[i]; p := Nilai[i];

           end;

           if x<=Nilai[i] then

           begin

           x:=Nilai[i]; y:=NamaMahasiswa[i];

           end;

           if p>=Nilai[i] then

           begin

           p:=Nilai[i]; q:=NamaMahasiswa[i];

           end;

           if Nilai[i] >= 60 then

           begin

               a:=('Lulus'); b:=b+1;              

           end;

           if Nilai[i] < 60 then

           begin

               a:=('Gagal'); c:=c+1;

           end;

           gotoxy(58,i+3); writeln(a);

    until  i=5;

    writeln('---------------------------------------------------------------------');

    rata2:=jum/N;   

    writeln('Jumlah Mahasiswa = ',N);

    writeln('Rata-Rata        = ',rata2:8:2);

    writeln('Nilai Tertinggi  = ',x:8:2,' Oleh ',y);

    writeln('Nilai Terendah   = ',p:8:2,' Oleh ',q);

    writeln('Jumlah Lulus     = ',b);

    writeln('Jumlah Gagal     = ',c);

    end.

Hasil Tampilan :

Semoga Bermanfaat :)

Hei.....
Bagi kalian yang sudah hidup di alam engineer, khusus nya Computer Engineer atau Informatic Enineer, kalian pasti sudah tidak asing lagi mendengar kata "Assembler" atau lebih sering di kenal "Bahasa Rakitan"..
Aku akan coba sedikit membantu kalian yan lagi bingung buat program dalam pemrograman assembler ini....

ChekikOut....
Kesempatan kali ini, aku ingin memberi tahu kode-kode pemrograman assembler membuat program MENGHITUNG HURUF VOKAL, yuk langsung aja kita intip seperti apa


org 100h 
proses:
        mov ah, 09h
        lea dx, kal1
        int 21h
        
        mov ah, 0ah
        lea dx, buffer
        int 21h
        
        lea bx, buffer+2 
        
        mov ah, 09h
        lea dx, kal2
        int 21h
        
ulang:  cmp byte ptr [bx], t_enter
        je exit
        cmp [bx], 'a'
        je hitung
        cmp [bx], 'i'
        je hitung
        cmp [bx], 'u'
        je hitung
        cmp [bx], 'e'
        je hitung
        cmp [bx], 'o'
        je hitung  
        inc bx
        jmp ulang
hitung: inc data
        inc bx
        jmp ulang
exit:   mov ah, 02h
        mov dl, data
        int 21h
              
      
      
ret
kal1 db 'input kalimat : $'
kal2 db 13, 10, 'jumlah huruf vokal : $'
buffer db 23, ?, 23 dup(?) 
t_enter equ 0dh
data db 30h

setelah selesai, langsung aja di run program nya.. Hasilnya akan tampak seperti ini..

Semoga Bermanfaat :)