MENGHITUNG LUAS SEGITIGA DENGAN TURBO PASCAL

Untuk membuat program menghitung luas segitiga ketikan scrib di bawah ini pada pascal :

program luas;
uses crt;
var a,t: integer;
      L: real;

begin
clrscr;
      write(‘Masukan Nilai Alas:’);readln (a);
      write(‘Masukan Nilai Tingi:’);readln(t);
      writeln;
      L:=(a*t)/2;
      writeln(‘Luas Segitiga adalah =’,L:6:2);
      readln;

end.

Jika sudah maka gambarnya akan seperti di bawah ini :

Dan hasilnya akan seperti di bawah ini :

Selesai...