Algoritma Procedure Luas Lingkaran

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!






Share Yuk!

0 komentar :