MENGHITUNG LUAS PERSEGI PANJANG MENGGUNAKAN PROGRAM PASCAL

MENGHITUNG LUAS PERSEGI PANJANG MENGGUNAKAN PROGRAM PASCAL

Berikut ini contoh program mencari luas persegi panjang

1.Programnya

program luaspersegipanjang;

uses crt;

var

   Panjang     : Integer;

   Lebar       : Integer;

   Luas        : Integer;

begin

     clrscr;

     writeln('program mencari luas persegi panjang');

     write('Input Nilai Panjang =');readln(Panjang);

     write('Input Nilai Lebar =');readln(Lebar);

     Luas :=Panjang*Lebar;

     writeln('Nilai Luas =',Luas);

     readln;

end.

2.Program pascal

3.Hasilnya