Salam Pencari Ilmu...
Kali ini saya akan berbagi tentang prosedur dan fungsi dari luas(segitiga, lingkaran, bujur sangkar) dan volume(kerucut, bola, kubus) serta flowchart dari keduanya.
Semoga bermanfaat dan mohon tinggalkan komentar bila ada yang perlu dikoreksi.
Selamat Belajar... :)
Berikut Fungsi dari Luas
Segitiga, Lingkaran dan Bujur Sangkar
program hitungluas;
uses crt;
var
pilih : integer;
hasil : real;
ulang : char;
function menu :
integer;
var pil:integer;
begin
writeln('====================');
writeln('Program
Hitung Luas');
writeln('====================');
writeln('1. Hitung
Luas Segitiga ');
writeln('2. Hitung
Luas Lingkaran');
writeln('3. Hitung
Luas Bujur Sangkar');
writeln('==============================');
write ('Pilihan Anda: '); readln (pil);
writeln('==============================');
menu := pil;
end;
function segitiga :
real;
var a, t : real;
begin
write('Alas Segitiga :
');readln(a);
write('Tinggi Segitiga
: '); readln(t);
segitiga := 0.5*a*t;
end;
function lingkaran :
real;
var
pi, r : real;
begin
write('Jari-jari
Lingkaran: ');
read(r);
pi := 3.14;
lingkaran := pi*r*r;
end;
function bujur_sangkar
: real ;
var s : real;
begin
write('Masukkan nilai
sisi : ');
readln(s);
bujur_sangkar := s*s;
end;
begin
repeat
clrscr;
pilih := menu;
case pilih of
1 : hasil := segitiga
;
2 : hasil :=
lingkaran;
3 : hasil :=
bujur_sangkar ;
else writeln('Pilihan
Anda Salah!');
writeln('==============================');
end;
if (pilih < 4) and
(pilih > 0) then
begin
writeln('==============================');
writeln('Hasil
Perhitungan: ',hasil:5:2);
writeln('==============================');
end;
write('Coba lagi?
(y/n) : ');
readln(ulang);
until (ulang = 'n') or
(ulang = 'N') ;
end.
Berikut Prosedur dari Luas
Segitiga, Lingkaran dan Bujur Sangkar
program
prosedur_luas_slb;
uses
wincrt;
var
s,r,a,t,luas:real;
procedure
segitiga;
begin
writeln
('Luas Segitiga');
write
('Masukkan Nilai Alas ='); readln (a);
write
('Masukkan Nilai Tinggi ='); readln (t);
Luas :=
1/2*(a*t);
writeln
('Luas Segitiga =',Luas:2:3);
end;
procedure
lingkaran;
begin
writeln
('Luas Lingkaran');
write
('Masukkan jari-jarinya ='); readln (r);
Luas :=
3.14 *r*r ;
writeln
('Luas Lingkaran =', Luas:0:2);
end;
procedure
bujur_sangkar;
begin
writeln
('Luas Bujur Sangkar');
write
('Masukkan Nilai Sisi ='); readln (s);
Luas :=
s*s;
writeln
('Luas Bujur Sangkar =', Luas:0:0);
end;
Var
pilihan:char;
akhir:boolean;
Begin
writeln('PROGRAM
MENGHITUNG LUAS');
writeln('1.
Menghitung Luas Segitiga');
writeln('2.
Menghitung Luas Lingkaran');
writeln('3.
Menghitung Luas Bujur Sangkar');
writeln('==========================================');
writeln('|
Untuk mengakhiri program ketik huruf x |');
writeln('==========================================');
writeln;
Repeat
akhir:=false;
write('ketikan
pilihan anda = ');
readln(pilihan);
writeln;
case
pilihan of
'1' : Begin
segitiga;
writeln;
end;
'2' : Begin
lingkaran;
writeln
end;
'3' : Begin
Bujur_sangkar;
writeln;
end;
'x' : Begin
akhir:=true;
end;
else begin
writeln('PILIHAN
SALAH !!! MOHON COBA LAGI ??');
end;
end;
until(akhir);
end.
Berikut Fungsi dari Volume Kerucut, Bola dan Kubus
program
hitungvolume;
uses crt;
var
pilih :
integer;
hasil :
real;
ulang :
char;
function
menu : integer;
var
pil:integer;
begin
writeln('====================');
writeln('Program
Hitung volume');
writeln('====================');
writeln('1.
Hitung Volume kerucut ');
writeln('2.
Hitung Volume Bola');
writeln('3.
Hitung Volume Kubus');
writeln('==============================');
write ('Pilihan Anda: '); readln (pil);
writeln('==============================');
menu :=
pil;
end;
function
kerucut : real;
var r, t: real;
begin
write('Masukkan
jari-jari kerucut: ');readln(r);
write('Masukkan
tinggi kerucut: '); readln(t);
kerucut :=
(3.14*r*r*t)/3;
end;
function
bola : real;
var
r : real;
begin
write('Masukkan
Jari-jari Lingkaran: ');readln(r);
bola :=
4/3*(3.14*r*r*r);
end;
function
kubus: real ;
var s: real;
begin
write('Masukkan
nilai sisi : ');readln(s);
kubus :=
s*s*s;
end;
begin
repeat
clrscr;
pilih :=
menu;
case pilih
of
1 : hasil :=
kerucut ;
2 : hasil
:= bola;
3 : hasil
:= kubus ;
else
writeln('Pilihan Anda Salah!');
writeln('==============================');
end;
if (pilih
< 4) and (pilih > 0) then
begin
writeln('==============================');
writeln('Hasil
Perhitungan: ',hasil:5:2);
writeln('==============================');
end;
write('Coba
lagi? (y/n) : ');
readln(ulang);
until
(ulang = 'n') or (ulang = 'N') ;
end.
Berikut Prosedur dari Volume Kerucut, Bola, dan Kubus
program
prosedur_volume;
uses
wincrt;
var
s,r,t,volume:real;
procedure
kerucut;
begin
writeln
('Volume Kerucut');
write
('Masukkan Jari-jari kerucut ='); readln (r);
write ('Masukkan
Tinggi Kerucut ='); readln (t);
volume :=
(3.14*r*r*t)/3;
writeln
('Luas Kerucut =',volume:6:2);
end;
procedure
bola;
begin
writeln
('Volume Bola');
write
('Masukkan jari-jarinya ='); readln (r);
volume :=
4/3*(3.14*r*r*r);
writeln
('Volume Bola =', volume:8:2);
end;
procedure
kubus;
begin
writeln
('Volume Kubus');
write
('Masukkan Nilai Sisi ='); readln (s);
volume :=
s*s*s;
writeln
('Volume Kubus =', volume:5:2);
end;
Var
pilihan:char;
akhir:boolean;
Begin
writeln('PROGRAM
MENGHITUNG VOLUME');
writeln('1.
Menghitung Volume Kerucut');
writeln('2.
Menghitung Volume Bola');
writeln('3.
Menghitung Volume Kubus');
writeln('==========================================');
writeln('|
Untuk mengakhiri program ketik huruf x |');
writeln('==========================================');
writeln;
Repeat
akhir:=false;
write('ketikan
pilihan anda = ');
readln(pilihan);
writeln;
case
pilihan of
'1' : Begin
kerucut;
writeln;
end;
'2' : Begin
bola;
writeln
end;
'3' : Begin
kubus;
writeln;
end;
'x' : Begin
akhir:=true;
end;
else begin
writeln('PILIHAN
SALAH !!! MOHON COBA LAGI ??');
end;
end;
until(akhir);
end.
Sekian....
See u next time :)
