Program Pascal Mencari Luas Segitiga

Program Pascal Mencari Luas Segitiga

Nahhh ini adalah salah satu program pascal untuk Mencari Luas Segitiga

1. Programnya

program LuasSegitiga;
uses crt;
Var
   Alas :Integer;
   Tinggi:Integer;
   Luas :Real;
Begin
     clrscr;
     Writeln('program mencari luas segitiga');
     Write('Input nilai Alas =');readln (Alas);
     Write('Input nilai Tinggi =');readln (Tinggi);
     Luas :=1/2*Alas*Tinggi;
     Writeln('Nilai Luas =',Luas:2:1);
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program