PROGAM MENGHITUNG LUAS DAN VOLUME

Menghitung Luas ,Volume dan Jari-jari

Untuk menghitung Luas , Volume dan Jari-jari. Contohnya menghitung luas lingkaran , volume tabung , dan jari-jari.
lebih jelasnya seperti contoh gambar dibawah ini .

dan script coding nya dibawah ini :

program if_else_progamditerimakerja;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
      r,t:integer;
      l_lingkaran,v_tabung,v_kerucut:real;
begin
  writeln('Nama : Maisirotul Rizka');
  writeln('Nim : 114224022');
  writeln('--------------------------');
  writeln('-------------------------');
  writeln('                         ');
  writeln('        =================================');
  writeln('        Program Menghitung Luas Lingkaran');
  writeln('        =================================');
  writeln;
  write('Masukkan jari-jari = ');readln(r);
  l_lingkaran:=3.14*r;
  writeln('Luas Lingkaran = ',l_lingkaran:10:2);
  writeln('---------------------------------');
  writeln('                                 ');
  writeln('         ================================');
  writeln('         Program Menghitung Volume Tabung');
  writeln('         ================================');
  writeln;
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi = ');readln(t);
  v_tabung:=3.14*r*r*t;
  writeln('Volume Tabung = ',v_tabung:10:2);
  writeln('---------------------------------');
  writeln('                                 ');
  writeln('          =================================');
  writeln('          Program Menghitung Volume Kerucut');
  writeln('          =================================');
  writeln;
  write('Masukkan jari-jari = ');readln(r);
  write('Masukkan tinggi = ');readln(t);
  v_kerucut:=0.5*3.14*r*t*r;
  writeln('Volume Kerucut = ',v_kerucut:10:2);
  writeln;
  readln;
end.

Sekian.. Selamat mencoba ^^