MENGHITUNG LUAS TABUNG DENGAN TURBO PASKAL

LANGKAH-LANGKAHNYA YAITU :

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

writeln ('NIM : AFD 109 005');

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.

UNTUK LEBIH JELASNYA ANDA BISA DOWNLOAD SCRIP YANG SUDAH 

SAYA BUAT KE DALAM TURBO PASCAL

KLIK DISINI UNTUK DOWNLOAD