View source for Pascal:Menghitung luas dan keliling lingkaran

*Algoritma <code>Luas_Lingkaran</code>
**Menghitung luas lingkaran untuk ukuran jari-jari tertentu.
**Algoritma menerima masukan jari-jari lingkaran, menghitung luas dan kelilingnya, lalu cetak luas dan kelilingnya ke layar monitor.
*Deklarasi
**jari = real {tipe data bilangan pecahan}
**luas = real {tipe data bilangan pecahan}
**Kel = real { tipe data bilangan pecahan}
**Phi = 3.14 {nilai tetap phi }
*Deskripsi:
**Baca <code>jari_jari</code>
**Hitung luas = <code>Phi * jari * jari</code>
**Hitung Kel = <code>2 * Phi * Jari</code>
**Tampilkan luas dan keliling lingkaran ke layar
**Selesai
<syntaxhighlight lang="pascal" line="1">
program Hitung_Luas_Kel_Lingkaran
uses crt;

var
 jari      : integer;
 luas, kel :real;
const
 phi = 3.14;

begin
 clrscr;
 writer('Masukkan berap jari-jarinya = ');readln(jari);
 luas := phi * jari * jari;
 kel  := 2 * phi * jari;
 writeln('Jadi luas lingkaran adalah = ',luas:4:2);
 writeln('Jadi keliling lingkaran adalah = ",kel:4:2);
 readln;
end.
</syntaxhighlight>

==Terkait==
*[[Pascal]]

[[Category:Pascal]][[Category:Pemograman]]