PASCAL MENGHITUNG LUAS BALOK

Untuk menghitung luas persegi panjang pada aplikasi turbo pascal, anda dapat menulis perintah sebagai berikut :

Program menghitung_luas_persegi_panjang ;

Uses crt;

Var luas,P,L:integer;

Begin

Clrscr;

Write (‘masukan panjang=’);

Readln (P);

Write (‘masukan lebar=’);

Readln (L);

Luas:=P*L;

Write (‘luas persegi panjang adalah:’,Luas);

Readln;

End.

hasil setelah di RUN