Listing
uses crt;
const pi:real=3.14;
var r,t:integer;
q,c:char;
function garis:string;
begin
garis:=’++++++++++++++++++++++++++++++++++++++++’;
end;
procedure input;
begin
write(‘Masukkan Jari Jari: ‘); readln(r);
write(‘Masukkan Tinggi : ‘); readln(t);
end;
function hitung_volume_tabung(var x,y:integer):real;
begin
hitung_volume_tabung:=pi*x*x*y;
end;
function hitung_luas_dasar_tabung(var x,y:integer):real;
begin
hitung_luas_dasar_tabung:=pi*x*x;
end;
function hitung_luas_penampang_tabung(var x,y:integer):real;
begin
hitung_luas_penampang_tabung:=2*(pi*x*x)+2*pi*x*y;
end;
begin
repeat
clrscr;
writeln(garis);
writeln(‘Silahkan Pilih Menu Program’);
writeln(garis);
writeln(‘1. Menghitung Volume Tabung’);
writeln(‘2. Menghitung Luas Dasar Tabung’);
writeln(‘3. Menghitung Luas Penampang Tabung’);
writeln(‘4. Menghitung Semuanya’);
writeln;
write(‘Masukkan Pilihan Anda: ‘); readln(c);
case c of
‘1’:
begin
writeln;
writeln(garis);
writeln(‘Anda Memilih Menghitung Volume Tabung’);
writeln(garis);
input;
writeln;
writeln(garis);
writeln(‘Volume Tabung Adalah:’,hitung_volume_tabung(r,t):0:2);
writeln(garis);
end;
‘2’:
begin
writeln;
writeln(garis);
writeln(‘Anda Memilih Menghitung Luas Dasar Tabung’);
writeln(garis);
input;
writeln;
writeln(garis);
writeln(‘Luas Dasar Tabung Adalah:’,hitung_luas_dasar_tabung(r,t):0:2);
writeln(garis);
end;
‘3’:
begin
writeln;
writeln(garis);
writeln(‘Anda Memilih Menghitung Luas Penampang Tabung’);
writeln(garis);
input;
writeln;
writeln(garis);
writeln(‘Luas Penampang Tabung Adalah:’,hitung_luas_penampang_tabung(r,t):0:2);
writeln(garis);
end;
‘4’:
begin
writeln;
writeln(garis);
writeln(‘Anda Memilih Menghitung Semuanya’);
writeln(garis);
input;
writeln;
writeln(garis);
writeln(‘Volume Tabung Adalah:’,hitung_volume_tabung(r,t):0:2);
writeln(‘Luas Dasar Tabung Adalah:’,hitung_luas_dasar_tabung(r,t):0:2);
writeln(‘Luas Penampang Tabung Adalah:’,hitung_luas_penampang_tabung(r,t):0:2);
writeln(garis);
end;
else
writeln;
writeln(garis);
writeln(‘Maaf Pilihan Diluar Jangkauan Program’);
writeln(garis);
writeln;
end;
write(‘Tekan x untuk keluar dari program atau tombol lain untuk mengulang ?’); readln(q);
q:=upcase(q);
until q=’X’;
writeln(‘Anda Telah Keluar Dari Program’);
writeln(‘Sampai Jumpa .’);
readln;
end.
Listing
uses crt ;
var pil : integer ;
Procedure lingkaran ;
var x,y,z : real ;
begin
writeln ( ‘ — 1.lingkaran— ‘ ) ;
write ( ‘masukan jari-jari: ‘ ) ;
readln (x) ;
y := 3.14 * x * x ;
z := 2 * x * 3.14 ;
writeln ( ‘luas lingkaran = ‘ , y : 9 : 2 ) ;
writeln ( ‘keliling lingkaran = ‘ , z : 9 : 2 ) ;
end ;
Procedure persegi ;
var x,y,z : real ;
begin
writeln ( ‘ —2.persegi— ‘ ) ;
write ( ‘masukan sisi: ‘ ) ;
readln (x) ;
y := x * x ;
z := x * 4 ;
writeln ( ‘luas persegi = ‘ , y : 9 : 2 ) ;
writeln ( ‘keliling persegi = ‘ , z : 9 : 2 ) ;
end ;
Procedure persegi_panjang ;
var p,l,y,z : real ;
begin
writeln ( ‘ —3.persegi_panjang— ‘ ) ;
write ( ‘masukan panjang: ‘ ) ;
readln (p) ;
write ( ‘masukan lebar: ‘ ) ;
readln (l) ;
y := p * l ;
z := 2 * ( p + l ) ;
writeln ( ‘ luas persegi panjang =’ , y : 9 : 2 ) ;
writeln ( ‘keliling persegi panjang =’ , z : 9 : 2 ) ;
end ;
begin
clrscr ;
writeln ( ‘program luas dan keliling’ ) ;
writeln () ;
writeln ( ‘1 = lingkaran’ ) ;
writeln ( ‘2 = persegi’ ) ;
writeln ( ‘3 = persegi panjang’ ) ;
writeln () ;
write ( ‘masukan pilihan :’ ) ;
readln (pil) ;
writeln () ;
if pil = 1 then lingkaran
else if pil = 2 then persegi
else if pil = 3 then persegi_panjang
else write ( ‘input salah’ ) ;
readln
end.
antoken 
