CONTOH SCRIPT DASAR PEMBUATAN PROGRAM PADA DELPHI 7 (Part 6)

• Statement Coding Rumus Menghitung Bangun Ruang

Saya akan beri contoh Menghitung Luas Lingkaran, Volume Tabung, Volume Kerucut.
Langsung saja kita coba ke Lembar kerja
Dan Scriptnya sebagai berikut :

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('                                 ');

  writeln('Program Menghitung Volume Tabung');

  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('Program Menghitung Volume Kerucut');

  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);

Readln;
end.

Dan Hasil Runingnya akan seperti ini..

Selamat Mencoba ^_^ ..