pascal编程问题从键盘输入一个字符,如果是‘Y’,则再换一行输入一个正数,表示一个圆的半径,计算并输出此圆的周长和面积；如果时‘S’,则再换一行输入3个用空格隔开的正数,表示一个三角

来源：学生作业帮助网编辑：作业帮时间：2024/11/27 22:09:52

x��SMW�@�+��Gj*�E��u�2 i�991ڂ+G�V�S�%��*b�vQ4��$��|�R��{73y��}��P��|C�{N�p��mߩ�D�ǯ�΅��[��[#��Z|v��M^_��i�[G� �4�f7��%��}��F��.�Er��*/�x��1jhp��{��wtXv�6�e�y�֮Au�V�G @�mr5��M縊�

pascal编程问题从键盘输入一个字符,如果是‘Y’,则再换一行输入一个正数,表示一个圆的半径,计算并输出此圆的周长和面积；如果时‘S’,则再换一行输入3个用空格隔开的正数,表示一个三角
pascal编程问题
从键盘输入一个字符,如果是‘Y’,则再换一行输入一个正数,表示一个圆的半径,计算并输出此圆的周长和面积；如果时‘S’,则再换一行输入3个用空格隔开的正数,表示一个三角形的3个边长,计算比昂输出此三角形的周长和面积；若输入的‘J’,则再换一行输入2个用空格隔开的正数,表示一个矩形的长和宽,计算并输出此矩形的周长和面积.
求怎么写

pascal编程问题从键盘输入一个字符,如果是‘Y’,则再换一行输入一个正数,表示一个圆的半径,计算并输出此圆的周长和面积；如果时‘S’,则再换一行输入3个用空格隔开的正数,表示一个三角
var
ch:char;//第一行输入的字符
r,x,y,z,a,b:longint;//r为半径,x,y,z为三角形边长,a,b为长宽
p:double;//p为海伦公式里的一个量
begin
readln(ch);
if ch='Y' then
begin
readln(r);
writeln(2*pi*r:0:2);
writeln(pi*sqr(r):0:2);
end
else if ch='S' then
begin
readln(x,y,z);
writeln(x+y+z);
p:=(x+y+z) shr 1;
writeln(sqrt(p*(p-x)*(p-y)*(p-z)):0:2);
end
else if ch='J' then
begin
readln(a,b);
writeln((a+b) shl 1);
writeln(a*b);
end;
end.