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.
Tidak ada komentar:
Posting Komentar