sahabat... kedengarannya ngga asing si telinga siapa aja termasuk aq,
tapi apa itu sahabat yg sebenrnya???? katanya sahabat itu setya. tp kenapa kau sakiti n tinggalin aq?
katanya
sahabat itu teman yg plng dekat n bsa ngerti'in. tp mana kau ktk aq
sedih? meskipun kau tak dkt dngnku bukan berarti kau gìnikan aq.
katanya
sahabat itu org yg paling mengerti. tp mana buktinya? faktanya kau ngga
bsa ngerti'in aq n mungkin ngg akan pernah bsa....
kata nya sahabat itu separuh jiwa. tapi knp kau jauhin aq, jd apa kau tau artinya...? aq kehilangan separuh jiwaku.
katanya sahabat itu lbh berwarna, apa ini warnanya???? yaitu warna hitam yg kau gores di lubuk hatiku.....
Senin, 09 April 2012
Minggu, 08 April 2012
listing program TPW buat kaliaN Nih Brow
Listing Program
Rumus Matematika
program menghitung;
uses wincrt;
label 1; label 4;
label 3; label 2; label 5;
procedure grs1;
begin
writeln('================================================================================');
end;
procedure grs;
begin
writeln('--------------------------------------------------------------------------------');
end;
procedure grs2;
begin
writeln('________________________________________________________________________________');
end;
var
pil:string;
p,l,a,t,b,c,r:integer;
kel:real;
lp,jum,i:integer;
luas,hsl,sisa,j:real;
psswrd:integer;
name,mail:string;
clss:integer;
begin
clrscr;
write('Masukkan Nama =
');readln(name);
write('Masukkan kelas (integer)=
');readln(clss);
if (clss >= 4) and (clss <= 12) then
begin
write('Apakah Anda Telah Memiliki Pasword...[y/n]?...'); name:=readkey;
if name = 'y' then
begin
goto 4;
end;
if name = 'n' then
begin
goto 5;
end
else
begin
exit;
writeln(' Anda KeluAr ApliKasi Ini');
end;
4:clrscr;
write('Masukkan Pasword Anda Untuk Membuka Program Ini = ');readln(psswrd);
if psswrd=1994 then
begin
1:clrscr;
writeln('~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!!~!~!~!!~!~!~!~!~!~!~!~!~');
writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||');
writeln('
Main Menu');
writeln('_______________________________________________________________________');
writeln('choose one of all choosen');
writeln('1. Menghitung segitiga 6. Menghitung Bangun Ruang');
writeln('2. Menghitung Persegi Panjang 7. Mencari Kwadrat Angka');
writeln('3. Menghitung Persegi 8. Menghitung Phytagoras');
writeln('4. Menghitung Lingkaran 9. Mencari Akar');
writeln('5. Menghitung Layang-Layang 0. Exit');
writeln('=======================================================================');
writeln;
writeln;
write('Masukkan Pilihan
Anda = '); pil:=readkey;
clrscr;
if pil = '9' then
begin
grs1;
writeln(' AKAR ');
grs;
write('Masukkan Angka Yang Anda
Inginkan = ');readln(luas);
hsl:=sqrt(luas);
writeln;
writeln('Akar Dari Angka ',
luas:4:0 ,' adalah ', hsl:4:2);
writeln;
grs2;
writeln('Press Any Key ,
Please...');readkey;
goto 1;
end;
{PROGRAM LAIN}
if pil = '7' then
begin
grs1;
writeln(' KWADRAT');
grs;
write('Masukkan Angka = ');readln(p);
writeln;
l:=sqr(p) ;
writeln('kwadrat dari
angka ',p,' adalah = ',l);
writeln;
grs2;
writeln('Press Any Key,
please... ');readkey;
goto 1;
end;
{PROGRAM LAIN}
if pil = '8' then
begin
2:clrscr;
grs1;
writeln('
PHYTAGORAS');
writeln;
writeln(' 1.
mencari panjang sisi A ');
writeln(' 2.
mencari panjang sisi B ');
writeln(' 3.
mencari panjang sisi C ');
grs2;
writeln;
write('Masukkan Pilihan Anda
= ');pil:=readkey;
clrscr;
if pil = '1' then
begin
grs1;
writeln('
Mencari Sisi A ');
grs;
write('Masukkan Panjang Sisi
B = ');readln(b);
write('Masukkan Panjang Sisi
C = ');readln(c);
luas:=(sqr(c)) - (sqr(b));
hsl:=sqrt(luas);
writeln;
writeln('Panjang Sisi A pada
Phytagoras Adalah = ', hsl:4:2);
writeln;
grs2;
writeln('press `0` back to
main menu or `1` back to before menu'); pil:=readkey;
if pil= '0' then
begin
goto 1;
end;
if pil = '1' then
begin
goto 2;
end;
end;
if pil = '2' then
begin
grs1;
writeln('
Mencari Sisi B ');
grs;
write('Masukkan Panjang Sisi
A = ');readln(a);
write('Masukkan Panjang Sisi
C = ');readln(c);
writeln;
luas:=(sqr(c))-(sqr(a));
hsl:=sqrt(luas);
writeln('Panjang Sisi B pada
Phytagoras Adalah = ', hsl:4:2);
writeln;
grs2;
writeln('press `0` back to
main menu or `1` back to before menu'); pil:=readkey;
if pil= '0' then
begin
goto 1;
end;
if pil = '1' then
begin
goto 2;
end;
end;
if pil = '3' then
begin
grs1;
writeln(' Mencari Sisi C ');
grs;
write('Masukkan Panjang Sisi
A = ');readln(a);
write('Masukkan Panjang Sisi
B = ');readln(b);
writeln;
luas:=(sqr(a))+(sqr(b));
hsl:=sqrt(luas);
writeln('Panjang Sisi C pada
Phytagoras Adalah = ');
writeln;
grs2;
writeln('press `0` back to
main menu or `1` back to before menu'); pil:=readkey;
if pil= '0' then
begin
goto 1;
end;
if pil = '1' then
begin
goto 2;
end;
end;
{other program again}
end
else
if pil = '1' then
begin
grs1;
writeln(' Segitiga ');
grs;
write('Masukkan Alas Segitiga
= ');readln(a);
write('Masukkan Tinggi Segi3
= ');readln(t);
luas:=(a*t)/2;
writeln;
writeln('Luas Segi Tiga Adalah
= ',luas:4:2);
writeln('By : Abdullah Boy Java ');
grs2;
writeln('press any key');
readkey;
goto 1;
end
else
if pil = '2' then
begin
grs1;
writeln(' Persegi
Panjang ');
grs;
write('Masukkan Panjang
= ');readln(p);
write('Masukkan Lebar
= ');readln(l);
kel:=2*(p+l);;
luas:=p*l;
writeln('Keliling Persegi Panjang Adalah = ',kel:4:2);
writeln('Luas Persegi Panjang Adalah
= ',luas:4:2);
writeln('By : Abdullah Boy Java ');
writeln;
writeln('________________________________________________________________________________');
writeln('press any key');
readkey;
goto 1;
end
else
if pil = '3' then
begin
grs1;
writeln(' Persegi ');
grs;
write('Masukkan Panjang Sisi
= ');readln(p);
kel:=4*p;
luas:=p*p;
writeln;
writeln('Keliling Persegi Adalah
= ',kel:4:2);
writeln('Luas Persegi Adalah
= ',luas:4:2);
writeln('By : Abdullah Boy Java ');
grs2;
writeln('press any key');
readkey;
goto 1;
end
else
if pil = '4' then
begin
grs1;
writeln(' Lingkaran
');
grs;
write('Masukkan Panjang Jari-Jari
= ');readln(p);
if p mod 7 = 0 then
begin
luas:=22*(p*p)/7;
kel:=22*(2*p)/7;
end
else
begin
kel:=2*(3.14*p);
luas:=3.14*p*p;
end;
writeln;
writeln('Luas Lingkaran Adalah
= ',luas:4:2);
writeln('Keliling Lingkaran Adalah
= ',kel:4:2);
writeln('By : Abdullah Boy Java ');
grs2;
writeln('press any key');
readkey;
goto 1;
end
else
if pil = '5' then
begin
grs1;
writeln(' Layang-Layang
');
grs;
write('masukkan diagonal 1 =
');readln(p);
write('Masukkan diagonal 2 =
');readln(l);
luas:=p*l;
writeln;
writeln('Luas Layang-Layang Adalah
= ',luas:4:2);
writeln('By : Abdullah Boy Java ');
grs2;
write('press any key..');
readkey;
goto 1;
end
else
if pil = '6' then
begin
3:clrscr;
grs1;
writeln(' Bangun Ruang
');
grs;
writeln('Pilihan Anda');
writeln('1. Kubus
4. Balok');
writeln('2. Tabung
5. Bola');
writeln('3. kerucut
0. goto main menu');
grs2;
write('Masukkan Pilihan Anda =
');pil:=readkey;
clrscr;
if pil='1' then
begin
writeln;
grs1;
writeln(' Kubus ');
grs;
write('Masukkan
Panjang sisi = ');readln(p);
Luas:=p*p*p;
lp:=6*(p*p);
writeln('Volume
Kubus := ',luas:4:2);
writeln('Luas
Permukaan Kubus := ',lp);
writeln;
writeln('By : Abdullah Boy Java ');
grs2;
writeln;
write('press `0`
back to main menu or press `1` back to before menu');pil:=readkey;
if pil='0' then
begin
goto 1;
end;
if pil='1' then
begin
goto 3;
end;
end;
if pil='2'
then
begin
writeln;
grs1;
writeln(' Tabung
');
grs;
write('Masukkan Jari-Jari Lingkaran = ');readln(p);
write('Masukkan tinggi Tabung
= ');readln(t);
if p mod 7 =
0 then
begin
luas:=(22*(p*p)*t)/7;
end
else
begin
luas:=3.14*(p*p)*t;
end;
writeln;
writeln('Volume Tabung Adalah = ', luas:4:2);
grs2;
writeln;
write('press `0`
back to main menu or press `1` back to before menu');
pil:=readkey;
if pil='0' then
begin
goto 1
end;
if pil='1' then
begin
goto 3;
end;
end;
if
pil='0' then
begin
end;
if
pil='3' then
begin
writeln;
grs1;
writeln(' Kerucut ');
grs;
write('Masukkan Jari-Jari Lingkaran
= ');readln(p);
write('Masukkan Tinggi Kerucut
= ');readln(t);
if
p mod 7 = 0 then
begin
luas:=1/3*22/7*(p*p)*t;
end
else
begin
luas:=1/3*3.14*(p*p)*t;
end;
writeln;
writeln('Volume Kerucut adalah
= ', luas:4:2);
writeln;
grs2;
write('press
"0" back to main menu or press "1" back to before menu');
pil:=readkey;
if pil='0' then
begin
goto 1;
end;
if pil='1' then
begin
goto 3;
end;
end;
if pil='4' then
begin
writeln;
grs1;
writeln(' Balok ');
grs;
write('Masukkan Panjang
= ');readln(p);
write('Masukkan Lebar
= ');readln(l);
write('Masukkan Tinggi
= ');readln(t);
luas:=p*l*t;
lp:=2*(p*l)+2*(P*t)+2*(l*t);
writeln;
writeln('Volume Balok Adalah
= ', luas:4:2);
writeln('Luas Permukaan Balok Adalah
= ', lp);
writeln;
grs2;
write('press `0`
back to main menu or press `1` back to before menu');
pil:=readkey;
if pil='0' then
begin
goto 1
end;
if pil='1' then
begin
goto 3;
end;
end;
if pil='5' then
begin
writeln;
grs1;
writeln(' Bola ');
grs;
writeln;
write('Masukkan Nilai
Jari-Jari = ');readln(r);
if p mod 7 = 0 then
begin
luas:=4/3*22/7*(r*r*r);
hsl:=4*22/7*(r*r);
end
else
begin
luas:=4/3*3.14*(r*r*r);
hsl:=4*22/7*(r*r);
end;
writeln;
writeln('Volume Bola Adalah
= ', luas:4:2);
writeln('Luas Kulit / Sisi Bola Adalah
= ', hsl:4:2);
grs2;
write('press `0` back to main menu or press `1` back to before menu');
pil:=readkey;
if pil='0' then
begin
goto 1
end;
if pil='1' then
begin
goto 3;
end;
end;
end;
if pil='0' then
begin
clrscr;
writeln('anda keluar dari
Program Ini ');
end;
writeln;
writeln(' TeriMa
KasIeh AtaS KunJunGan AndA dIpRogRam KaMiE ');
writeln;
writeln('
==========================');
writeln('
// KELOMPOK I \\');
writeln('
//----------------------------\\');
writeln('
// Created By : \\');
writeln('
||
||');
writeln('
|| > Abdullah Mustaghfirin
(01) ||');
writeln('
||
||');
writeln('
|| > Anisa Sifani (02)
||');
writeln('
||
||');
writeln('
|| > Aprilia Anggraeni (03)
||');
writeln('
||
||');
writeln(' ||
> Arlyana Agus Myawati
(04) ||');
writeln('
||
||');
writeln('
|| > Atika Septi Wulandari
(05) ||');
writeln(' \\_______________________________//');
writeln(' \ /');
writeln(' \ / ');
writeln(' \ / ');
writeln(' \ / ');
writeln('
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
writeln('
| KELOMPOK I |');
writeln('
|_____________________________|');
end
else
begin
writeln;
writeln('Password Yang Anda Masukkan Salah...!! Silahkan Coba
Kembali...!!');
end;
end
else
if clss < 4 then
begin
clrscr;
writeln('~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!!~!~!~!!~!~!~!~!~!~!~!~!~');
writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||');
writeln;
writeln('1. Penjumlahan 2. Pengurangan 3. Perkalian 4. Pembagian 0.
exit');
writeln;
grs2;
writeln;
write('Masukkan Pilihan Anda =
'); pil:=readkey;
writeln;
if pil='1' then
begin
write('Masukkan nilai A = ');readln(p);
write('Masukkan nilai B = ');readln(i);
jum:=p+i;
writeln;
writeln('Jumlah dari ', p ,' +
', i ,' adalah = ',jum);
end;
if pil='2' then
begin
write('Masukkan Nilai A =
');readln(p);
write('Maskkkan Nilai B =
');readln(i);
jum:=p-i;
writeln;
writeln('Hasil Dari ', p ,' + ', i ,' adalah = ',jum);
end;
if pil='3' then
begin
write('Masukkan Nilai A =
');readln(p);
write('masukkan nilai B =
');readln(i);
jum:=p*i;
writeln;
writeln('Hasil Dari ', p ,' * ', i ,' adalah = ',jum);
end;
if pil='4' then
begin
write('Masukkan Nilai A =
');readln(p);
write('Masukkan Nilai B =
');readln(i);
hsl:=p/i;
writeln;
writeln('Hasil Dari ', p ,' / ', i ,' Adalah = ', hsl);
end;
if pil='0' then
begin
writeln('Terima Kasih Atas Kunjungan Anda ');;
end;
writeln;
writeln('This Program Making By Abdullah Boy Java ');
end
else
begin
writeln;
clrscr;
writeln;
write('Masukkan Nama Anda = ');readln(name);
write('Masukkan Umur Anda = ');readln(a);
write('Apakah Anda Telah Memiliki Id ? (Y/N)');name:=readkey;
if name = 'y' then
begin
goto 4;
end
else
begin
5:clrscr;
writeln('_____________-______-_____ReGisTraTioN_______-_______-_________________');
writeln;
write(' Nama =
');readln(name);
write(' Umur =
');readln(a);
write(' E-mail =
');readln(mail);
write(' Donation =
');readln(j);
writeln;
if j >= 30000 then
begin
clrscr;
writeln('_________________________________ReGiStRaTioN______________________________');
writeln;
writeln('Terima Kasih Atas Donasi Anda, password program ini akan
segera dikirim ke email anda. Silahkan Cek E-Mail Anda ');
end
else
begin
clrscr;
writeln('Sorry, You Cannot have password of this programe, because your
donation very bit. donation minimal is
Rp. 30000 ');
end;
end;
end;
end.
Hasil =
Langganan:
Postingan (Atom)