Algoritma-Pascal Luas Lingkaran | Uphik Lamers

Saturday, April 23, 2011

Algoritma-Pascal Luas Lingkaran

 
 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.
Post a Comment