- Algoritma Luas_Lingkaran
- {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 jari_jari
- Hitung luas = Phi * jari * jari
- Hitung Kel = 2 * Phi * Jari
- Tampilkan luas dan keliling lingkaran ke layar
- Selesai
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.
Terkait