MENGHITUNG LUAS PERSEGI PANJANG DENGAN TURBO PASCAL

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 : SUSANTO');

writeln ('NIM : AFD 109 014');

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.

MENGHITUNG LUAS TABUNG DENGAN TURBO PASKAL

1.       MASUKAN SCRIP DI BAWAH INI KEDALAM APLIKASI TURBO PASCAL

Program Menghitung_luas_Lingkaran;

Uses windos,Wincrt;

var

L, r, t :real;

ch:char;

begin

clrscr;

writeln ('Program ini di buatoleh :');

writeln ('NAMA : SUSANTO');

writeln ('NIM : AFD 109 014');

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

writeln ('MENGHITUNG LUAS LINGKARAN');

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

writeln ('masukan nilai r'  );

readln (r);

writeln ('masukan nilai t' );

readln (t);

L:=pi*r*r+t;

writeln ('luas lingkaran yaitu :  ',L:2:2,'cm2');

readln;

end.

2.       SETELAH SELESAI JALANKAN APLIKASINYA,

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

4.       SELAMAT MENCOBA.

MENGHITUNG LUAS LAYANG-LAYANG DENGAN TURBO PASCAL

L = panjang ab x panjang cd
                            2

1.       MASUKAN SCRIP DI BAWAH INI KEDALAM APLIKASI TURBO PASCAL

Program Menghitung_luas_layang_layang;

Uses Windos,Wincrt;

var

L, ab, cd  :real;

ch:char;

Begin

Clrscr;

writeln ('program ini di buatoleh :');

writeln ('NAMA : SUSANTO');

writeln ('NIM : AFD 109 014');

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

writeln ('Menghitung Luas layang-layang');

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

writeln ('masukan nilai ab :              ');

readln (ab);

writeln ('masukan nilai cd :              ');

readln (cd);

L:=ab*cd/2;

writeln ('Luas layang-layangyaitu = ',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.