作业帮谁能帮我解Free Pascal
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/06/03 22:12:20
谁能帮我解Free Pascal
给出圆的面积,求圆的半径
输入一个实数s,表示圆的面积,保留两位小数
输出一个实数r,表示圆的半径
我是在输入那里不会保留两位小数
给出圆的面积,求圆的半径
输入一个实数s,表示圆的面积,保留两位小数
输出一个实数r,表示圆的半径
我是在输入那里不会保留两位小数
program yuan;
var
r:real;
begin
readln(r);
write(3.14*r*r:0:2);//圆的面积公式
end.
望采纳
再问： = =我是求半径啊。。。不是面积。。。
再答： 哦，我改一下···· program yuan; var s:real; begin readln(s); write(sqrt(s/3.14):0:2);//圆的面积公式 end.
再问： 对不起啊，你的答案是对的，我搞错了。。
再答： 感谢这位大哥···
var
r:real;
begin
readln(r);
write(3.14*r*r:0:2);//圆的面积公式
end.
望采纳
再问： = =我是求半径啊。。。不是面积。。。
再答： 哦，我改一下···· program yuan; var s:real; begin readln(s); write(sqrt(s/3.14):0:2);//圆的面积公式 end.
再问： 对不起啊，你的答案是对的，我搞错了。。
再答： 感谢这位大哥···