Script Luas Lingkaran dengan Pascal

program lingkaran;
uses crt;
var r:integer;
s:real;
const p=3.14;
begin

r:=7;
s:=p*(r*r);

writeln(s);
readln;

end.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Senin, 05 Januari 2015