PEMOGRAMAN KOMPUTER (Bangun Ruang Sisi Lengkung)

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.