Program Sederhana Turbo Pascal Menghitung Luas Lingkaran

Program menghitung_luas_lingkaran;

uses wincrt;

var

 r : integer;

 l : real;

const

 phi = 22/7;

begin

 clrscr;

 writeln ('ini adalah program sederhana menghitung luas lingkaran');

 writeln ('silahkan masukan jari-jari lingkaran =');readln (r);

 l:= phi*r*r;

 writeln ('jadi luas lingkarannya adalah =',l:0:1);

end.

• Tweet
• Share
• Share
• Share
• Share

About Admin MC3

This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.

Related Post