Menghitung Volume Tabung

Menghitung Luas Layang-Layang

Rumus :
L= (BD x AC) : 2
atau
L= (d1 x d2) : 2

program menghitung_luas_layanglayang;
uses windos,wincrt;
var

d1,d2,L:real;
ch:char;
begin
clrscr;
write ('masukan panjang d1=  ');
readln(d1);
write ('masukan panjang d2= ');
readln(d2);
writeln;
L:=(d1*d2)/2;
writeln('luas layang-layang=',L:10:0,'cm2');
ch:=readkey;
end.