Program Menghitung Luas Segitiga dengan Bahasa Pascal

Studi Kasus :

Menghitung Luas Segitiga

Jawaban :

procedure luas (a,t:integer);

var

Luas:integer;

begin

Luas:= (a*t)/2;

writeln('Luassegitiga = ',luas)

end;

var

a,n:integer;

begin

write('masukan alas= ');readln(a);

write('masukantinggi= ');readln(n);

luas(a,n);

end.

Posted in: BAHASA PASCAL