ALGO coba

Program daftar_nilai;
uses crt;

var

nama : array[1..5] of string;
nilai : array[1..5] of integer;
a  : integer ;

begin

for a : = 1 to 5  do begin
write('Masukkan Nama Mahasiswa :');readln (nama[a]);
write('Masukkan Nilai Mahasiswa :');readln (nilai[a]);
end;

clrscr();
writeln('           DAFTAR NILAI SEMESTER          1');
writeln('-----------------------------------------------');
writeln('    NAMA      NILAI      PREDIKAT    KET  ');
writeln('-----------------------------------------------');

for a := 1 to 5 do
begin
write (nama[a], '    ', nilai[a], '    ');
if nilai[a] <=90 then
writeln ('B',       'LULUS')

else if nilai[a] <=80 then writeln ('C',       'LULUS')
else if nilai[a] <=70 then writeln ('D',       'PERBAIKAN')
else if nilai[a] <=60 then writeln ('E',       'TIDAK LULUS')
end


else writeln ('A',       'LULUS');
end;
readln;

end.

Sedih

Aku memang bukanlah yang sempurna buatmu, tetapi disini aku selalu ingin jadi yang terbaik buatmu, menurutmu aku hanya bisa nething, selalu tidak nyambung, selalu membuat naik darah, mungkin caraku salah tapi itu semuaku lakukan karna semata-mata aku sayang padamu, aku tak mau kehilanganmu. Tapi kau terlanjur menganggap perhatianku yang berlebih sebagai gangguan dalam hidupmu. Jika kau muak padaku, maka usirlah aku dari hatimu, ku telan sakitku dan aku akan pergi jika itu membuatmu senang.
Maaf aku yang selalu buatmu marah
Maaf aku yang udah buat kamu jenuh
Maaf aku yang tidak terlalu banyak nuntut
Maaf aku yang tidak suka ngelarang kamu
Maaf aku yang suka ganggu kesenangan kamu
Maaf aku yang selalu jadi beban kamu
Maaf aku yang gak bisa jauh dari kamu
Maaf aku yang terlalu sayang sama kamu
Maaf aku yang membosankan 
Maaf jika aku bukan lah yang terbaik buatmu
Maaf jika aku tidak bisa buatmu senang
Maaf jika aku pergi tidak pamitan
Maaf jika aku hanyalah beban buatmu
Aku minta maaf...
Aku minta maaf...
Aku minta maaf....
kalau selama ini aku gak bisa jadi kekasih yang baik buat kamu, mungkin kamu akan merasa lebih tenang kalau aku tidak bersama kamu lagi, mungkin kamu akan merasa lebih tentram kalau aku gak mengusik kehidupan kamu lagi.
Tapi asal kamu tahu...
Sampai kata-kata ini ditulis bahkan sampai berkali-kali dibaca "Cinta itu masih ada buat kamu"
Aku sadar aku bukan yang terbaik buat kamu tapi seandainya kamu tau kalo aku berusaha sekeras mungkin untuk menjadi yang terbaik buat kamu, tahukah kamu? tak pernah sedikitpun untuk menyakitimu.
Tahukah kamu? saat kamu ucapkan kata-kata yang menyakiti perasaanku, aku hanya bisa menangis didalam hati , terdiam dan bertanya "mengapa aku bisa sesayang ini sama kamu?" kamu tau sebesar apapun, sesakit apapun kamu perasaan aku itupun tak akan mengurangi rasa sayang aku ke kamu.
Kamu tahu kenapa? karena rasa sayang aku ke kamu melebihi rasa sakit yang kamu kasih ke aku.
Ya allah kuserahkan dia pada yang lebih bisa mengerti dan membuatnya bahagia
Lindungi dia ketika penjagaanku tak bisa lagi sampai kepadanya, dan kuatkan aku, aku hanya ingin melihatnya bahagia. bila dia harus tak lagi bersamaku

Maafkan Aku Yang Tak Sempurna Bagimu

Kadang terlintas di fikiran ku, bahwa kamu telah salah memilihku, karena sampai saat ini masih merasa belum bisa menjadi seperti harapanmu. Perasaan itu yg mungkin sering mengganggu hubungan kita. Aku takut cinta mu menjadi benci karena aku tak bisa menghiburmu, aku takut kasih sayangmu berubah kemarahan saat aku tak bisa membuatmu tersenyum dan aku sangat takut ketenangan ini berbalik menjadi ketegangan ketika ada salah paham.

Disaat kamu baik-baik disana sibuk dengan temanmu atau tak ada kabar darimu tak jarang rasa cemburu itu datang. Mungkin jarak dan waktulah yg menjemput rasa kerinduan yg tak jarang berubah menjadi kecemburuan. Kadang aku bisa melepasmu sendiri, bermain dengan temanmu, tanpa rasa khawatir kehilangan, terkadang pula ada yg bergejolak di relung ini saat kamu ijin keluar.

Sadarkah engkau bahwa tiada manusia di dunia ini yang sempurna segalanya? Bukankah engkau tahu bahwa hanyalah Allah yang Maha Sempurna. Tidaklah sepatutnya bila kau hanya menghitung-hitung kekurangan pasangan hidupmu, sedangkan engkau sendiri tak pernah sekalipun menghitung kekurangan dan kesalahanmu. Janganlah engkau mencari-cari selalu kesalahanku, padahal aku telah berusaha menyesuaikan kebiasaanmu.

Saat aku pergi denganmu, ku tinggalkan semua kesibukanku, aku singkirkan kesukaanku, dan bahkan aku sejenak tinggalkan orang tuaku sendiri, sadarkah kamu bahwa aku selalu ingin yg terbaik buat kamu, aku ingin kamu lah yg mengisi ruang kosong di relung ini.

Aku ingat saat aku meragu untuk melangkah, pesonamu datang dan memaksaku untuk memberi ruang, dan kamu pun berhasil masuk, dan menguasai sebidang ruang itu. Saat aku tak sengaja melakukan kesalahan kau marah bahkan tak jarang kau minta untuk berpisah, aku sadar bahwa kamu pasti mendambakan pasangan yg sempurna, yg selalu bisa buat kamu tenang dan tersenyum, aku tau terkadang egois itu datang dan tak bisa kita tolak.

Ya Allah aku telah jatuh cinta pada insan ciptaanmu.

Dan maaf aku tidak sempurna bagimu 😭😥😢

Latihan Pemrograman 2

Public pemrograman;
Public class data_nilai;

Begin;

Public static void main(string[] args)
{
System.Out.Goto ('nama', 'npm', 'kelas', 'predikat', 'keterangan')
System.out.goto ('Zul', '20163452551', 'Lulus', 'B')

System.End.

End

Algoritma 2

Tugas Algoritma 2 (20 Maret 2017)

program data_nilai_mahasiswa;
uses crt;

var x.y : integer ;

begin

clrscr;
writeln (' DAFTAR NILAI SEMESTER 1');
writeln ('=========================');
writeln (' Nama      Nilai      Predikat       Ket');
writeln ('=========================');

gotoxy (6,5);   write ('Hengky');
gotoxy (18,5);   write ('98');
gotoxy (22,5);   write ('A');
gotoxy (38,5);   write ('Lulus');

gotoxy (6,6);   write ('Thomas');
gotoxy (18,6);   write ('87');
gotoxy (22,6);   write ('B');
gotoxy (38,6);   write ('Lulus');

gotoxy (6,7);   write ('Habibi');
gotoxy (18,7);   write ('43');
gotoxy (22,7);   write ('D');
gotoxy (38,7);   write ('Perbaikan');

gotoxy (6,8);   write ('Cyntia');
gotoxy (18,8);   write ('72');
gotoxy (22,8);   write ('C');
gotoxy (38,8);   write ('Lulus');

gotoxy (6,9);   write ('Randit');
gotoxy (18,9);   write ('32');
gotoxy (22,9);   write ('E');
gotoxy (38,9);   write ('Tidak Lulus');

gotoxy (1,11);   write ('=========================');

readln;
end;