PENULISAN SCRIPT DASAR MEMBUAT PROGRAM MENGHITUNG LUAS

          Setelah sebelumnya saya menjelaskan tentang Delphi, kali ini saya akan menjelaskan tentang penulisan script dasar membuat program menghitung luas menggunakan aplikasi Borland Delphi 7. kita langsung saja yachh kita coba bersama-sama scrip berikut ini:

1. Luas Persegi

$APPTYPE CONSOLE}

uses
  SysUtils;
var
  p,l:integer;
  Luas:integer;
begin
  writeln ('Progaram Menghitung Luas Persegi');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('Masukkan Panjang=');readln(p);
  write ('Masukkan Lebar=');readln(l);
  Luas:=p*l;
  writeln ('Luas=',Luas);
  readln;
end.

Hasilnya akan seperti ini:
misal:
panjang : 4
lebar :3
luas = panjang*lebar = 4 * 3 = 12

2. Luas Segitiga

karena disini nanti hasilnya tidak bulat maka kita gunakan perintah REAL sesuai yang sudah saya jelaskan di podtingan sebelumnya. oke dari pada banyak bosa basi mari kita langsung ke script-nya:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,t:integer;
  L:real;
begin
  writeln ('Progaram Menghitung Luas Segitiga');
  writeln (' ');
  writeln ('Nama : MUNAWIR');
  writeln ('NIM : 114224030');
  writeln ('********************************');
  write ('masukkan alas=');readln(a);
  write ('masukkan tinggi=');readln(t);
  L:=0.5*a*t;
  writeln ('Luas=',L:10:2);
  readln;
end.

Contoh:
misal:
alas = 4
tinggi = 6
luass = 1\2 * alas * tinggi = 12

kenapa di programnya tercatat 12.00 itu karena di awal tadi kita menggunakan perintah REAL dan di script baris 3 dari bawai tertulis ('Luas=',L:10:2) yaitu maksutnya L tersebut adalah Luas-nya dan 10:2 itu artinya di belakang koma (,) terdapat 2 angka, apabila seumpama 10:3 maka di belakang koma ada 3 angka.
 Dan apabila tidak di beri perintah 10:1,10:2:10:3, ........ dan seperusnya maka hasilnya tidak di ketahui seperti Gambar dibawah ini.

Yachh,,, sekian posting tentang program menghitung luas
Baca Juga : Program Menghitung Volume yang akan saya posting setelah kesan-kesan berikut ini.

Terimakasih.