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 =
Tidak ada komentar:
Posting Komentar