Menghitung Volume Tabung Menggunakan Delphi

Ciao! (yang berarti halo dalam bahasa italia)
Benvenuto! (yang berarti selamat datang dalam bahasa italia) kembali di blog aku guys!! xD
Jumpa dengan info~info mengenai program di delphi. Dalam postingan kali ini aku mau ngasih program masih seputar menghitung dengan menggunakan delphi yakni menghitung Volume Tabung. haha ƪ(ˆ▽ˆ)ʃ
Setiap tabung terdiri dari jari~jari dan tinggi.
Untuk rumus volumenya tabung adalah phi *r*r*t. Nilai phi sendiri berupa 22/7 atau 3,14..



Cusss langsung aja buka aplikasi delphi kalian, masih dengan langkah yang sama pilih File >> New >> Other >> dan Console Aplication.
Kemudian ketikkan kode~kode ini:

uses

  SysUtils;

var

  V:real;

  r,t:integer;

begin

   writeln('PROGRAM MENGHITUNG VOLUME TABUNG');

  writeln('================================');

  write('masukkan jari jari=');readln(r);

  write('masukkan tinggi=');readln(t);

  V:=3.14*r*r*t;

  writeln('volume tabung=',V:5:2);

  readln;

end.

kurang  lebih seperti berikut yah...

kemudian klik button play, lalu akan aktif seperti gambar berikut.

 

 Masukkan nilai jari~jari dan tingginya, tekan enter lalu hasilnya akan muncul.

Syuudaahh deh! yeye lalalala  \(´▽`)/

Mudah bukan?? :D sama kayak pake kalkulator, bedanya cuman kita masukin kode~kode rahasia haha xD. Grazie mille buat yang mampir dan mau ngasih saran untuk memperbaiki. Semoga tulisan aku bisa bermanfaat Aamiin (˘ʃƪ˘) A dopooo!! 

Buonanotte!!