Menghitung Luas Layang Layang

PROGRAM MENGHITUNG_LUAS_LAYANG_LAYANG


Uses Crt ;
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 cm ) ;
ch : readkey ;
end.

Komentar

Postingan populer dari blog ini

Eliminasi Gauss, Gauss Jordan, dan Gauss Seidel

Algoritma Membuat Kopi