MENGHITUNG LUAS PERSEGI PANJANG DENGAN TURBO PASKAL

L = P x T

Ket :
L = Luas
P = Panjang
T = Lebar

1.       MASUKAN SCRIP DI BAWAH INI KEDALAM APLIKASI TURBO PASCAL

Program Menghitung_Luas_Persegi_Panjang;

Uses Windos, Wincrt;

var

L, P, T :real;

ch:char;

Begin

Clrscr;

writeln ('program ini di buatoleh :');

writeln ('NAMA : HENDRIK WIJAYA');

writeln ('NIM : AFD 109 005');

writeln ('===============================');

writeln ('Menghitung Luas Persegi Panjang');

writeln ('===============================');

writeln ('masukan nilai P :              ');

readln (P);

writeln ('masukan nilai T :              ');

readln (T);

L:=P*T;

writeln ('Luas persegi  panjang yaitu =       ',L:10:0,'cm2');

readln;

end.

2.       SETELAH SELESAI JALANKAN APLIKASINYA,

3.       MASUK KE BAGIAN MENU BAR  “RUN ATAU CTRL+F9”. (UNTUK MELIHAT HASILNYA)

4.       SELAMAT MENCOBA.

UNTUK LEBIH JELASNYA ANDA BISA DOWNLOAD SCRIP YANG SUDAH 

SAYA BUAT KE DALAM TURBO PASCAL

KLIK DISINI UNTUK DOWNLOAD