uses
crt;
function
k(r:integer) : integer;
begin
if
r<1 then
begin
k:=k(r-1);
end
else
k:=r;
end;
procedure
lpk;
var
r,lpk : integer;
begin
clrscr;
writeln('+---------------------------------+');
writeln('| Luas Permukaan Kubus |');
writeln('|----------------------------------+');
writeln('|
Masukkan rusuk : |');
writeln('|
Luas : |');
writeln('+--------------------------------+');
gotoxy(26,4);readln(r);
lpk:=6*r*k(r);
gotoxy(26,5);writeln(lpk);
readln;
end;
procedure
kk;
var
r,kk
: integer;
begin
clrscr;
writeln('+------------------------------+');
writeln('| Keliling Kubus |');
writeln('|-------------------------------+');
writeln('|
Masukkan rusuk : |');
writeln('|
Luas : |');
writeln('+------------------------------+');
gotoxy(26,4);readln(r);
kk:=12*k(r);
gotoxy(26,5);writeln(kk);
readln;
end;
procedure
vk;
var
r,vk
: integer;
begin
clrscr;
writeln('+-----------------------------+');
writeln('| Volume Kubus |');
writeln('|------------------------------+');
writeln('|
Masukkan rusuk : |');
writeln('|
Luas :
|');
writeln('+-----------------------------+');
gotoxy(26,4);readln(r);
vk:=r*k(r)*r;
gotoxy(26,5);writeln(vk);
readln;
end;
var
pilih : char;
begin
repeat
clrscr;
writeln('+-------------------------+');
writeln('| KUBUS | ');
writeln('|---------------------------|');
writeln('|
1. Luas Permukaan |');
writeln('|
2. Keliling Kubus |');
writeln('|
3. Volume Kubus |');
writeln('|
4. Keluar |');
writeln('|---------------------------|');
writeln('|
Pilih : |');
writeln('+-------------------------+');
gotoxy(12,9);readln(pilih);
case
pilih of
'1'
: lpk;
'2'
: kk;
'3'
: vk;
'4'
: exit;
end;
until
pilih = '4';
end.
|
2. Screenshoot program
0 komentar:
Posting Komentar