Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.
Jalankan Program dengan menekan tombol Ctrl+F9 :
Program Luas_Lingkaran;
{Program ini adalah program yang dibuat untuk menghitung luas lingkaran menggunakan Algoritma PROCEDURE}
Uses Wincrt;
Var
r:real;
Luas:real;
Procedure Hitung(a:real);
Begin
Luas:=3.14*a*a;
End;
Begin
Write('Inputkan Jari-jari :');Readln(r);
Hitung(r);
Writeln('Luas Lingkaran : ',Luas:0:0);
End.
Semoga bermanfaat.
Salam,
Yura Hyde Tetsu
Jika Merasa Arikel dan Bacaan di
Billix Multimedia v.2
Bermanfaat,
Jangan Lupa Share ke Teman-teman melalui Tombol Share di bawah posting ini
Like on
Billix Multimedia v.2 Facebook
. Follow atau Berlangganan Via Email.
Terimakasih
Yang Copas, Jangan Lupa Mencantumkan Sumbernya Yah!
0 komentar :
Post a Comment