Program Pascal Mencari Luas Layang-Layang

Program Pascal Mencari Layang-Layang

Nahhh ini adalah salah satu program pascal untuk Mencari Luas Layang-Layang

1. Programnya

program LuasLayangLayang;
uses crt;
Var
   d1 :Integer;
   d2 :Integer;
   Luas :Real;
Begin
     clrscr;
     Writeln('program mencari luas layang layang');
     Write('Input nilai d1 =');readln (d1);
     Write('Input nilai d2 =');readln (d2);
     Luas :=1/2*d1*d2;
     Writeln('Nilai Luas =',Luas:2:0);
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program