Contoh Program Menghitung Luas Segitiga

Program Luas segitiga

program menghitung_segi_tiga;
uses wincrt;
var A,T,L:real;
begin
     writeln ;
     writeln ('=====================================');
     writeln ('  Program Menghitung Luas Segitiga   ');
     writeln ('=====================================');
     writeln ('            Lia Septiani             ');
     writeln ('=====================================');
     writeln;
     write ('Masukan nilai Alas       : ');readln(A);
     write ('Masukan nilai Tinggi     : ');readln(T);
     L:=(A*T)/2;
     writeln ('Luas Segi Tiga           : ',L:0:2);
end.



Hasil programnya :
1. masukan nilai alas

 2. masukan nilai tinggi

 3. hasil perhitungannya

semoga bermanfaat :)