Program Menghitung Luas Segitiga

Sabtu, September 10, 2011 andrytech.co.cc No comments

Program menghitung luassegitiga, Untuk menghitung luas segita adalah dengan menggunakan rumus :

Luas Segitiga = Alas x Tinggi / 2 . Oke langsung saja mari, kita buat Algoritmanya !! .

Program Luas_Segitiga;

Uses wincrt;

Var

a,t,luas : real;

Begin

Writeln(‘Program Menghitung Luas Segitiga’);

Writeln(‘----------------------------------------------’);

Write(‘masukkan alas : ’);readln(a);

Write(‘masukkan tinggi : ’);readln(t);

luas:=(a * t)/2;

Write(‘Luas : ’,luas:0:1);

End.

Posted in: Turbo Pascal