Desa Ku Surga Ku

Inilah surga dasa ku!

Untu Mu Calon Istri Ku

Assalamu’alaikum Wr.Wb.




Kepada mu calon istri ku …



Aku ingin menjadi lelaki terkahir dalam hidup mu, menikah adalah keharusan yang harus kita jalani untuk menyempurnakan agama kita, tapi aku tidak mau menikah hanya membuat kufur nikmat kepada-Nya, tidak menjadikan mu wanita yang istimewa seperti Aisyah, tidak menjadi adil bagi mu dan keluarga mu. Aku tidak menginginkan iru, yang aku inginkan adalah dapat membahagiakan mu didunia yang sesaat ini dan harus wajib membahagiakan mu didunia yang kekal nantinya.



Seorang wanita, yaitu kamu …



Maafkan aku jika menyakiti mu lewat ucapan atau tingkah ku bukan untuk ingin melukai perasaan mu, tetapi melainkan hanya keegoisan ku sebagai lelaki, jumawa ku sebagai pendamping mu, dan kesombongan ku sebagai Adam.



Untuk mu, calon istri ku …



Maafkan jika nanti saat meng-Ijab mu aku tidak membuat sesuatu yang istimewa dalam hari istimewa kita, kaena dasar ku untuk meng-Ijab mu adalah bukan untuk kenikmatan sesaat tetapi akupun tidak juga ingin melewatkan hari special tersebut. Yang pasti aku akan meniatkan bila saat tibanya nanti aku akan mengajak semua ciptaan-Nya untuk berseru dan mendoakan untuk Sakinah Warahmah Ma Waddah bagi kita berdua dan untuk keluarga kita berdua. Amin…Amin…Ya Rabbal Alamiin



Wa’salam WR WB

Program Pascal Menghitung Volume Ruang Bangun

PERHITUNGAN VOLUME KUBUS


ALGORITMA (KUBUS)
1. Baca s (sisi kubus)
2. Hitung volume kubus
3. Cetak volume kubus

uses crt;
var
v,s:integer;
begin
clrscr;
writeln(‘PERHITUNGAN VOLUME KUBUS’);
writeln;
write(‘Input sisi kubus : ‘);
readln(s);
v:=s*s*s;
writeln(‘Volume kubus = S^3’);
writeln(’Volume kubus = ’,v);
readln;
end.




PERHITUNGAN VOLUME PRISMA SEGITIGA


ALGORITMA (PRISMA SEGITIGA)
1. Baca as (alas segitiga)
2. Baca ts (tinggi segitiga)
3. Baca t (tinggi prisma)
4. Hitung luas alas
5. Hitung volume prisma segitiga
6. Cetak volume prisma segitiga


uses crt;
var
v,a:real;
as,ts,t:integer;
begin
clrscr;
writeln(‘PERHITUNGAN VOLUME PRISMA SEGITIGA’);
writeln;
write(‘Input alas segitiga : ‘);
readln(as);
write(’Input tinggi segitiga : ’);
readln(ts);
write(’Input tinggi prisma : ’);
readln(t);
a:=(as*ts)/2;
v:=(a*t)/2;
writeln(‘Volume prisma segitiga = (alas x tinggi)/2’);
writeln(’Volume prisma segitiga = ’,v:6:2);
readln;
end.



PERHITUNGAN VOLUME LIMAS


ALGORITMA (LIMAS)
1. Baca x (sisi segi empat)
2. Baca y (sisi segi empat)
3. Baca t (tinggi limas)
4. Hitung luas alas
5. Hitung volume limas
6. Cetak volume limas

uses crt;
var
v,f:real;
a,b,t,x,y:integer;
begin
clrscr;
writeln(‘PERHITUNGAN VOLUME LIMAS’);
writeln;
write(‘Input sisi alas x : ‘);
readln(x);
write(’Input sisi alas y : ’);
readln(y);
write(’Input tinggi limas : ’);
readln(t);
a:=x*y;
v:=(a*t)/3;
writeln(‘Volume limas = (alas x tinggi)/3’);
writeln(’Volume limas = ’,v:6:2);
readln;
end.


PERHITUNGAN VOLUME KERUCUT


ALGORITMA (KERUCUT)
1. Hitung f (π)
2. Baca r (jari-jari)
3. Baca t (tinggi kerucut)
4. Hitung luas alas kerucut
5. Hitung volume kerucut
6. Cetak volume kerucut

uses crt;
var a,v,f:real;
t,r:integer;
begin
clrscr;
f:=22/7;
writeln(‘PERHITUNGAN VOLUME KERUCUT’);
writeln;
write(‘Input jari-jari alas : ‘);
readln(r);
write(’Input tinggi kerucut : ’);
readln(t);
a:=f*r*r;
v:=(a*t)/3;
writeln(‘Volume kerucut = (alas x tinggi)/3’);
writeln(’Volume kerucut = ’,v:6:2);
readln;
end.


PERHITUNGAN VOLUME TABUNG

ALGORITMA (TABUNG)
1. Hitung f (π)
2. Baca r (jari-jari)
3. Baca t (tinggi tabung)
4. Hitung luas alas
5. Hitung volume tabung
6. Cetak volume tabung

uses crt;
var
a,v,f:real;
t,r:integer;
begin
clrscr;
f:=22/7;
writeln(‘PERHITUNGAN VOLUME TABUNG’);
writeln;
write(‘Input jari-jari alas : ‘);
readln(r);
write(’Input tinggi tabung : ’);
readln(t);
a:=f*r*r;
v:=(a*t);
writeln(‘Volume tabung = alas x tinggi’);
writeln(’Volume tabung = ’,v:6:2);
readln;
end.


PERHITUNGAN VOLUME BOLA



ALGORITMA (BOLA)
1. Hitung f (π)
2. Baca r (jari-jari)
3. Hitung volume bola
4. Cetak volume bola

uses crt;
var
v,f:real;
r:integer;
begin
clrscr;
f:=22/7;
writeln(‘PERHITUNGAN VOLUME BOLA’);
writeln;
write(‘Input jari-jari bola : ‘);
readln(r); v:=4/3*(f*r*r);
writeln(‘Volume bola = 4/3(luas lingkaran)’);
writeln(’Volume bola = ’,v:6:2);
readln;
end.