Membuat progam menghitung tinggi, luas, dan volume dari Delphi 7 [ Langkah awal ]

Menghitung tinggi, luas dan volume dari Delphi7

hai sobat blogger saya mau berbagi pengalaman nih .. emang sih masih belum seberapa mahir tapi setidaknya bisa berbagi ilmu dengan kalian ..
Ini saya baru pertama kali lho bikin progam :D ya udh langsung cap cuss aja dah ..

Langkah-langkah membuat progamnya :
1. pertama-tama klik start - all progam - delphi7.
   

2. Lalu muncul lah jendela seperti dibawah ini lalu tekan "Run Progam".

3. Setelah itu baru muncul lah jendela delphi, untuk membuat projek new maka klik File - New - Other.

4. Lalu pilih "Console Application".

5.Lalu masukkan script yang ada di bawah ini :
 program Project2;

{$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.

6. Untuk mengecek hasilnya klik icon arah panah warna hijau atau bisa langsung tekan f9.

 

 

 7. Akan keluar jendela hitam dan masukkan angka yang anda inginkan lalu tekan 'Enter' seoerti gambar di bawah ini.

    

Selamat mencoba ^_^