Trik Menghitung Luas Menggunakan Delphi

hy Gaes. .  sekarang kita akan membahas bagaimana cara menghitung luas menggunakan error console di delphi

Pertama kita harus membuka error console yang sudah kita bahas pada bab sebelumnya

Dan dalam pembahasan kali ini kita akan menghutung luas lingkaran, tabung dan kerucut

Dan ketikkan script sebagai berikut kedalam program delphi





{$APPTYPE CONSOLE}

uses
  SysUtils;

var
      r,t:integer;
      l_lingkaran,v_tabung,v_kerucut:real;

begin
  writeln('Program Menghitung Luas Lingkaran');
  write('Masukkan jari-jari = ');readln(r);
  l_lingkaran:=3.14*r;
  writeln('Luas Lingkaran = ',l_lingkaran:10:2);
  writeln('Program Menghitung Volume Tabung');
  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('Program Menghitung Volume Kerucut');
  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);
  { TODO -oUser -cConsole Main : Insert code here }
end.

Maka Hasilnya akan seperti Ini