Ketika Qabliyah Subuh (Sholat Sunah Fajar) Lebih Mahal dari pada Dunia & Isinya

Seorang pengusaha nan shalih bernama Kajiman –bukan nama asli-, malam itu sedang menginap di sebuah hotel berbintang lima di kawasan Simpang Lima Semarang. Usai melakukan qiyamul-lail ia bergegas ke luar hotel untuk mencari masjid terdekat dan shalat Shubuh berjamaah di sana. Waktu di jam tangan Kajiman menunjukkan bahwa waktu adzan Shubuh kira-kira setengah jam ke depan.

Begitu keluar dari lobby hotel, Kajiman pun memanggil seorang tukang becak yang sedang mangkal lalu ia naik ke atas becak.

"Mau diantar kemana, Pak?" tanya tukang becak bernama Ibnu. Begitu ditanya, Kajiman menjawab, "Antar saya keliling kota Semarang saja, Pak!" Ia menjawab sedemikian karena ia tahu bahwa waktu Shubuh masih jauh tersisa.

Maka Ibnu sang tukang becak mengantarkan Kajiman berkeliling Simpang Lima sebagai pusat kota Semarang.

Kira-kira belasan menit sudah Ibnu mengayuhkan pedal becak mengantarkan Kajiman yang hendak melihat panorama kota Semarang saat pagi menjelang. Beberapa jalan sudah mereka susuri berdua. Lalu sayup-sayup terdengar suara tarhim dari sebuah corong menara masjid di sana.

Membuat Program Matriks dengan Turbo Pascal

Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi program Matriks, berikut coding nya ^.^ :


program penjumlahan_matrik;
uses WinCrt;
var
   matriks1, matriks2, matrik_hasil : array[1..3,1..3]of integer;
   i,j:integer;
begin
Randomize;
for i:=1 to 3 do
for j:=1 to 3 do
    begin
    matriks1[i,j]:=Random(10);
    matriks2[i,j]:=Random(10);
    end;

writeln('matriks 1');
for i:=1 to 3 do
    begin
    for j:=1 to 3 do
    begin
         write(matriks1[i,j]:5);
    end;
    writeln;
    end;

Membuat Program Repainting (Mengecat) dengan menggunakan Turbo Pascal

 Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini saya akan berbagi program repainting (Mengecat), berikut coding nya ^_^ :

program mengecat;
uses wincrt;
var
   panjang_dinding,
   lebar_dinding,
   luas_dinding,

   panjang_jendela,
   lebar_jendela,
   luas_jendela,
   jumlah_jendela,
   total_luas_jendela,
   panjang_pintu,

   lebar_pintu,
   luas_pintu,
   dinding_dicat,

   biaya_cat,
   total_biaya_semua

Membuat Program Menu Pilihan ( case of ) dengan Menggunakan Turbo Pascal

Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, kali ini tentang program menu pilihan, dari program ini kita bisa memasukan pilihan-pilihan seperti yang kita ingin kan, misalnya tentang gaji, menu makanan/ minuman, daftar film bioskop, daftar harga, dll  yang kita ingin masukan ke daftar, INGAT! harus dengan menggunakan "case pilihan of" , contoh yang saya buat seperti ini coding nya ^.^ :

program menu_pilihan;
uses wincrt;
var nama: string;
    gaji, tunjangan: real;
    gaji_bersih: real;
    pilihan : char;
    a, b :integer;
begin
writeln('---MENU---');
writeln('1.gaji karyawan');
writeln('2.angka segitiga pascal to');
writeln('3.angka segitiga pascal downto');
writeln('PILIHAN [1-3]:') ;
readln(pilihan);

case pilihan of

Membuat Program Penghitung Luas Bangun Datar dengan Menu Pilihan ( case of ) menggunakan Turbo Pascal

Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, sekarang saya share Program Penghitung Luas Bangun Datar , berikut coding nya ^.^ :

program menghitung_Luas_Bangun_Datar;
uses wincrt;
var luas,r,alas,tinggi,panjang,lebar:real;
    pilihan:char;

begin
writeln('----Pilih Bangun Datar yang Ingin Dihitung----');
writeln('1.Menghitung Luas Lingkaran');
writeln('2.Menghitung Luas Persegi Panjang');
writeln('3.Menghitung Luas Segitiga');
writeln('PILIHAN [1-3]:') ;
readln(pilihan);

case pilihan of

Membuat Program Kalkulator Standard dengan Turbo Pascal

Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, seperti Program Kalkulator Standard , yang saya share di sini, berikut coding nya ^.^ :


program kalkulator_Standard;
uses wincrt;
var n1,n2,p,h:real;
begin
writeln('program kalkulator');
writeln('=====================');
write('masukan nilai pertama= ');
readln(n1);
write('masukan nilai kedua= ');
readln(n2);