Program Luas segitiga – Turbo pascal

Postingan Pertama di Muslih System akan membahas mengenai cara menghitung luas segitiga menggunakan Turbo Pascal, dimana luas segitiga adalah : L = 1/2 * A * t

L =luas, A=panjang alas segitiga, t = Tinggi segitiga

Berikut sintaknya:

uses wincrt;
var
tinggi, alas :integer;
luas : real;
begin
clrscr;

writeln ('========================');
writeln ('Menghitung Luas Segitiga');
writeln ('========================');
writeln (' ');
write ('Masukan Tinggi Segitiga : ');readln (tinggi);
write ('Masukan Panjang alas    : ');readln (alas);
luas := 1/2 * alas * tinggi;
writeln ('Jadi Luas Segitiga adalah ', luas:1:1 , ' satuan luas');
readln;
end.

Bagi yang mau download source codenya bisa di download melalui link dibawah ini:

Terimakasih sudah berkunjung & Semoga bermanfaat..