Algoritma ''Menghitung luas segitiga dengan turbo pascal'''

     Program 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 :

end.