Mencari Luas Segitiga dengan Pascal

Mencari Luas Segitiga dengan pascal. Pada umumnya Rumus luas segituga yaitu Luas = Alas kali Tinggi : 2 atau Luas Alas bagi 2 kali Tinggi. kali ini saya akan menerapkannya di dalam program pascal, pengen tau gimana jadinya? berikut ini Open source nya.

Contoh Review Coding :

program segitiga;
{ * Mencari luas segitiga
* Written by : Ahmadfahrizal.net
}
uses crt;
var a,t,luas :real;

begin clrscr;
writeln('By : Ahmadfahrizal.net');
writeln('Menghitung luas segitiga');
writeln('========================');
write('Masukkan nilai alas :');readln(a);
write('Masukkan nilai tinggi :');readln(t);
luas := (a/2)*t;
writeln('Luas :',luas:3:0);

readln;
end.

Maka apabila di jalankan di dalam program Pascal akan menjadi seperti ini

Demikian lah cara mencari luas segitiga dengan pascal untuk rumus bisa kalian modifikasi sendiri apa bila kurang pas menurut sobat sekalian.