Selasa, 30 Desember 2014

Contoh Coding Luas Segitiga

Berikut akan saya share contoh coding mnghitung luas suatu segitiga menggunakan borland delphi 7..

program Project2;


{$APPTYPE CONSOLE}

uses
  SysUtils;
             var
             Alas,tinggi:integer;
             Luas:read;
begin
write ('Masukkan Luas=') readln (Alas);
write ('Masukkan tinggi=');readln (tinggi);
Luas :=0.5*Alas*tinggi;
writeln ('Luas='Luas:10:2);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.




Tidak ada komentar:

Posting Komentar