program gun;
uses wincrt;
type
brsl=record
r,tinggi:longint;
s,v,l:real;
end;
var
pilih:integer;
i,n:integer;
bgn:array[1..100] of brsl;
begin
writeln('SELAMAT DATANG DI PROGRAM BRSL');
writeln;
writeln('ANDA PILIH MENU DIBAWAH INI : ');
writeln('1. Kerucut');
writeln('2. Tabung');
writeln('3. Bola');
writeln;
write('pilih (1/2/3) : ');readln(pilih);
writeln;
case pilih of
1:begin
writeln('Anda memilih Kerucut');
writeln;
writeln('Ada Berapa Jenis Ukuran Kerucut yang anda inginkan ? : ');readln(n);
writeln;
for i:=1 to n do
begin
with bgn[i] do
begin
writeln('Kerucut dengan ukuran ',i,' : ');
write('Jari-jari : ');readln(r);
write('tinggi : ');readln(tinggi);
s:=sqrt((sqr(r))*(sqr(tinggi)));
v:=(3.14*sqr(r)*tinggi)/3;
l:=3.14*r*(r+s);
end;
writeln;
end;
clrscr;
writeln('HASILNYA ADALAH SEBAGAI BERIKUT : ');
writeln;
writeln('kerucut');
writeln('No Jari-jari Tinggi Volumnya Luas Permukaan');
for i:=1 to n do
begin
with bgn[i] do
begin
writeln(i:2,r:12,tinggi:8,v:7:2,l:15:2);
end;
end;
end;
2:begin
writeln('Anda memilih TABUNG');
writeln;
writeln('Ada Berapa Jenis Ukuran TABUNG yang anda inginkan ? : ');readln(n);
writeln;
for i:=1 to n do
begin
with bgn[i] do
begin
writeln('TABUNG dengan ukuran ',i,' : ');
write('Jari-jari : ');readln(r);
write('tinggi : ');readln(tinggi);
v:=3.14*sqr(r)*tinggi;
l:=2*3.14*r*(r+tinggi);
end;
writeln;
end;
clrscr;
writeln('HASILNYA ADALAH SEBAGAI BERIKUT : ');
writeln;
writeln('TABUNG');
writeln('No Jari-jari Tinggi Volumnya Luas Permukaan');
for i:=1 to n do
begin
with bgn[i] do
begin
writeln(i:2,r:12,tinggi:8,v:7:2,l:15:2);
end;
end;
end;
3: begin
writeln('Anda memilih BOLA');
writeln;
writeln('Ada Berapa Jenis Ukuran BOLA yang anda inginkan ? : ');readln(n);
writeln;
for i:=1 to n do
begin
with bgn[i] do
begin
writeln('BOLA dengan ukuran ',i,' : ');
write('Jari-jari : ');readln(r);
v:=(4*3.14*sqr(r)*r)/3;
l:=4*3.14*sqr(r);
end;
writeln;
end;
clrscr;
writeln('HASILNYA ADALAH SEBAGAI BERIKUT : ');
writeln;
writeln('BOLA');
writeln('No Jari-jari Volumnya Luas Permukaan');
for i:=1 to n do
begin
with bgn[i] do
begin
writeln(i:2,r:12,v:7:2,l:15:2);
end;
end;
end;
end;
end.
Thursday, 3 July 2014
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment