Contoh Program Menghitung Luas Lingkaran di Pascal

educlopedia.blogspot.com

Sebuah lingkaran (dalam Geometri Euklid) adalah himpunan semua titik pada bidang dalam jarak tertentu, yang disebut jari-jari, dari suatu titik tertentu, yang disebut pusat. Lingkaran adalah contoh dari kurva tertutup sederhana, membagi bidang menjadi bagian dalam dan bagian luar. - Wikipedia

Itulah pengertian Lingkaran menurut Wikipedia. dan Sekarang Saya akan membuat Contoh Program Menghitung Luas Lingkaran di Pascal.

sebelum ke source code nya, dibawah ini adalah trik untuk memudahkan untuk mengcopy source code nya :

educlopedia.blogspot.com

untuk memudahkan dalam meng-copy source code (script programnya, arahkan pointer ke sudut kanan atas). lihat gambar diatas untuk lebih jelasnya. lalu pilih icon ke-2 dari kiri, lalu klik. setelah itu, tinggal Paste (Ctrl+V).

program LuasLingkaran;
//educlopedia.blogspot.com

uses crt;
var x, y, z : real;


BEGIN
clrscr;

writeln('Program Luas Lingkaran');
writeln('');
write('Masukan Jari-Jarinya : ' );
read(x);

y := PI * x * x;

write('Hasilnya adalah : ',y:1:2);

//educlopedia.blogspot.com
readln;
readln;
END.

sekian dari saya, mungkin jika ada yang mau ditanyakan, bisa dipostkan pada kolom komentar dibawah.

terima kasih . . .

SHARE THIS POST:

Artikel Terkait: