Pascal:Code Menghitung Luas Lingkaran

10:22 AM

Coding pascal pada postingan ini mengenai tentang menghitung luas lingkaran.
Biar tidak kelamaan langsung saja kita coba codingnya.
Rumus luas lingkaran = pi(22/7)x(r(jari2)xr(jari2))

Coding 1:
Uses Wincrt;
Var r:Integer;
pi,L:Real;
Begin
pi:=22/7;
r:=10;
L:=pi*(r*r);
Write ('Luas lingkaran=',L:2:2);
End.

Coding 2:
Uses Wincrt;
var r:Integer;
pi,L:Real;
Begin
pi:=22/7;
Write('Jari-jari lingkaran=');Readln(r);
L:=pi*(r*r);
Write('Luas lingkaran=',L:2:2);
End.

Nah, sudah dicoba?
Pasti hasil tampilan dari coding 1 dan 2 berbeda, akan tetapi hasil luas lingkaran itu akan sama.


Yang membedakan coding 1 dan 2 adalah:
Pada coding 1 saat kita run disana langsung muncul hasil luas lingkarannya, karena pada saat kita coding kita sudah menentukan jari-jarinya. Sedangkan,
Pada coding 2 saat kita run disana tidak langsung muncul hasil, akan tetapi kita diperintahkan untuk memasukkan data untuk jari-jarinya. Itu dikarenakan pada coding kita menulis code readln yang artinya kita diperintahkan menginput suatu data.

Semoga bermanfaat

2 comments

  1. kayaknya ada yang salah tuh gan,.,const nya perl gak?

    ReplyDelete
  2. cari Tiket Pesawat Murah? Dapatkan segera hanya di SELL TIKET.com Klik disini:
    selltiket.com
    Booking langsung tanpa antri... HARGA Di Jamin Murah!!!
    CEPAT,….TEPAT,….HARGA HEMAT!

    Ingin usaha menjadi agen tiket pesawat??
    Yang memiliki potensi penghasilan tanpa batas.
    Bergabung segera di agen.selltiket.com

    INFO LEBIH LANJUT HUBUNGI :
    No handphone : 085363402103
    PIN : D364EDCB

    ReplyDelete