Algoritma-Pascal Luas Lingkaran

Advertisemen

 Masukan nilai jari-jari sebuah lingkaran. Kemudian program akan menampilkan

hasil luas lingkaran.

Layout       : 
Jari-jari lingkaran   : 7
Luar Lingkaran adalah 154


Jawab :

1.      1. Masukan nilai jari-jari yang menyatakan r

2.      2. Menetapkan nilai phi yaitu phi = 3.14

3.      3. Menghitung luas lingkaran yang menyatakan L yaitu L = phi * r * r

4.      4. Cetak hasil luas lingkaran (L) 
    uses crt;
    const phi=3.14;
    var L,r: real; 
    begin 
      writeln('Program Menghitung Luas Lingkaran');
      write('Masukan jari-jari Lingkaran:');
      Readln(r); 
      L:=phi*r*r;
      writeln('Luas Lingkaran adalah:',round(L));
      Readln; 
    end.

Advertisemen