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.
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.
Tidak ada komentar:
Posting Komentar