Program sederhana menghitung luas persegi panjang (Turbo pascal).

Haiii….sahabatku kembali lagi sama aku miia sekarang aku ingin berbagi ilmu tentang program sederhana membuat persegi panjang.semoga bermanfaat guys…..
Pertama kita harus membuka aplikasi Tpw.exe. Sudah membuka aplikasinya kita terlebih dahulu harus membuat judul contohnya…
Latihan 1;
Program latihan1;
Uses wincrt;
Var
Luas,panjang,lebar:integer;

Begin
Read(panjang);read(lebar);

Luas:=panjang*lebar;
Write(luas);

End. (klik ctrl+F9 untuk memulai program)

Adapun cara yang ke 2

program latihan1;
Uses wincrt;
Var
Luas,panjang,lebar:integer;

Begin
write ('masukan panjang= ');
read (panjang);
write ('masukan lebar= ');
read (lebar);
luas := panjang*lebar;
write ('luas persegi panjsng=',luas);
end. (klik ctrl+F9 untuk memulai program)