Coding Menghitung Luas Kerucut (Alas, selimut, dan Permukaaan)
Bahasa Pemrograman Pascal
Berikut merupakan salah satu contoh codingan dengan menggunakan Compiler Pascal. Pada codingan ini menggunakan metode rekursif yang merupakan pemanggilan diri sendiri. Ingin tau bagaimana cara kerjanya? Coba gunakan codingan ini lalu liat perbedaannya.
Tanpa basa-basi silahkan copy dan coba saja :D
========================================================
program volume_kerucut;
uses crt;
const phi=3.14;
var la:extended;
r,s :extended;
ls :extended;
lp :extended;
pilih:string;
function la_kerucut:integer;
begin clrscr;
write('Jari-jari kerucut : '); readln(r);
la:=phi*r*r;
writeln;
writeln('Luas Alas Kerucut = ',la:2:0); readln;
end;
function ls_kerucut:integer;
begin
clrscr;
write('Jari-jari kerucut : '); readln(r);
write('S kerucut : '); readln(s);
ls:=phi*r*s;
writeln('Luas Selimut Kerucut = ',ls:2:0); readln;
end;
function lp_kerucut:integer;
begin
clrscr;
write('Jari-jari kerucut : '); readln(r);
write('S kerucut : '); readln(s);
lp:=(phi*r*r)+(phi*r*s);
writeln('Luas Permukaan Kerucut = ',lp:2:0); readln;
end;
begin
repeat
clrscr;
writeln('1> Luas Alas Keucut');
writeln('2> Luas Selimut Kerucut');
writeln('3> Luas Permukaan Kerucut');
writeln('4> Exit');
writeln;
write(' Pilih : '); readln(pilih);
case pilih of
'1' : la_kerucut;
'2' : ls_kerucut;
'3' : lp_kerucut;
'4' : exit;
end;
until pilih = '4';
end.
