rizal fathih share

Program pascal menghitung luas lingkaran

Posted by : Unknown Rabu, 22 Mei 2013

Bismilahirrahmanirrahim

Hello sobat,kali ini saya akan berbagi mengenai program TPW menghitung luas lingkaran.Daripada kelamaan langsung saja berikut adalah programnya:

Program menghitung_luas_lingkaran;

Uses WinCrt;

Const

phi=3.14;

Var

jari:real;

luas_lingkaran:real;

Begin

Writeln('masukkan nilai jari=');

Readln(jari);

luas_lingkaran:=phi*jari*jari;

Writeln('luas_lingkaran=',luas_lingkaran:4:2);

End.

Semoga bermanfaat sob . . . . . . . .. . . . . .