Yaa Alloh Ampuni Aku

Suatu Renungan,
Tiada arti suatu penyesalan jika tanpa diikuti suatu perubahan sikap.
Wahai saudaraku
Hidup ini memang penuh cobaan, rintangan dan godaan
Yang sudah terjadi biarlah terjadi, tuk apa disesalkan kembali,
Sungguh Alloh Maha Pengampun
Jika kau salah maka bertaubatlah.
Jangan kau ulangi kesalahan-kesalahan itu untuk yang kesekian kali.
Jangan pernah terulang kembali.

Masa Yang Akan Datang

Saudaraku ....
Tahukah dirimu...
Tentang Masa yang akan datang
Manusia adalah pemeran utama
Tugasnya mencari kebenaran
Karnanya carilah kebenaran itu
dan ...
Janganlah berhenti sebelum kau menapatkannya
Tahukah kau...
Karena suatu saat nanti
ada suatu masa
masa dimana semua kebenaran akan nampak dihadapanmu
kebenaran yang selama ini tak pernah kau cari
dan disaat ditanya
"UNTUK APA USIAMU KAU GUNAKAN DI DUNIA INI?"
siapkah kau????

Yuk Belajar Algoritma Bareng-Bareng

Soal : Buat program yang menampilkan bilangan genap ganjil dengan menggunakan While Do atau For To Do!

Jawab:
DENGAN MENGGUNAKAN FOR TO DO
program genapganjil;
uses crt;
var A : integer;
B : integer;
begin
clrscr;
write('Tuliskan Angka Batas terakhir yang anda inginkan = ');
readln (B);
writeln('Angka genapnya adalah = ');
For A : = 1 to B do
If (A mod 2 = 0) then writeln (A);
writeln ('Angka ganjilnya adalah = ');
For A : = -1 to B do
If (A mod 2 = 1) then writeln (A);
readkey
end.

DENGAN WHILE TO DO
program genapganjil;
uses crt;
var A : integer;
B : integer;
begin
clrscr;
write ('Tuliskan angka batas terakhir = ');
readln (B);
writeln('Maka Angka ganjilnya adalah = ');
A: = -1;
while (A begin
A: = A+2;
writeln(A);
end;
writeln('Sedangkan angka genapnya adalah = ');
A: = 0;
while(A begin
A:=A+2;
writeln(A);
end;
readkey
end.

SELAMAT MENCOBA n TOLONG DIKOREKSI YA TEMEN-TEMEN!