CONTOH SCRIPT DASAR PEMBUATAN PROGRAM DELPHI 7 (part 1)

Kalian pasti sudah tidak asing lagi dengan Delphi 7,kali ini saya akan memberikan contoh scrip  yang sederhana yaitu Rumus Luas Segitiga

program luas_segitiga;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Var

alas,tinggi:integer;

luas:real;

begin

write('masukkan luas=');readln(alas);

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

luas:=0,5*luas*tinggi;

writeln('alas=',luas:10:2);

readln;

end.

setelah menulis script lalu simpan dengan cara klik save as, setelah itu kita klik F9 maka akan muncul seperti ini 

selamat mencoba^_^