Question

rumus luas segitiga dalam freepascal apa ya? mohon bantuannya

Answer 1

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.