Pascal:Menghitung luas dan keliling lingkaran

• 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

• Pascal