Question

跪求Free Pascal For NOI教程

小弟最近在学free pascal，麻烦各位大虾、老鸟，给点贴士。我想做个计算圆面积的，各位大哥能不能给个 样版

Answer 1

const pi=3.1415927;
var a,b:real;
begin
readln(a);{输入半进}
b:=a*a*pi;
writeln(b);{输出面积}
end.

我的博客上有很多信息学奥赛的东西、先去看看、喜欢的话别忘给分、

Answer 2

program asdf;
const pi=3.1415927;
var a,b:real;
begin
readln(a);{输入半进}
b:=a*a*pi;
writeln(b);{输出面积}
end.

Answer 3

const
pi=3.14159；
var
s,r:real;
begin
readln(r);
s:=pi*r*r;
writeln（'s = ',s:0:5);
readln;
end.

Answer 4

program zhjh;
const pi=3.1415927;
var
r:real;
begin
readln(r);
writeln(r*r*pi);
end.