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

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/16 13:49:14

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.

pascal编程问题从键盘输入一个字符,如果是‘Y’,则再换一行输入一个正数,表示一个圆的半径,计算并输出此圆的周长和面积；如果时‘S’,则再换一行输入3个用空格隔开的正数,表示一个三角 1.编程实现从键盘输入一个大写英文字母,分别以字符形式和ASCII码值形式输出其对应的小写英文字母. 从键盘输入一个字符,判断该字符是大写英文字母,小写英文字母还是数字 回形矩阵 pascal[问题描述] 从键盘输入正整数n,i,j,( l 用pascal解决问题,从键盘输入一个英文句子,找出有几个字母a（大小写皆可） 编程1:从键盘输入一个小于10的整数并存放在变量n中,然后输出n行由大写字母A开始构成的三角形字符阵列图形. 1、 从键盘输入一个字符,当该字符是+、-、*、或/时,显示其对应的英文单词：plus、 minus 、multiplicati C语言编程问题 从键盘输入一个小于六位数的正整数,按照相反的顺序输出各位上的数字.例如输入1234,输出4321. 用C语言编程：从键盘输入N,输出一个由*组成的N行的等腰三角形 从键盘输入一个球的半径 输出球的表面积与体积 c语言编程 C语言编程.从键盘输入一个整数,求其平方并输出.. 急用 C语言编程 从键盘输入一个字母,要求显示该字母和其ASCII值.从键盘输入一个字母,要求显示该字母和其ASCII值. vfp 写命令从键盘输入一个字符串（要求任意长度）,然后删除其中的非数字字符,最后输出. 编写程序,实现下列功能：定义一个字符型变量,其值从键盘输入,输出它的后面第5个字符 请大侠指教 谢谢 pascal语言编程 有几个题帮忙1.一家水果店出售4种水果,每公斤的价格是：苹果1.5元,桔子1.8元,香蕉2.0元,菠萝1.6元.编一个程序,使售货员只要从键盘输入货物的代码及重量,计算机便能显示货物 c语言编程：从键盘输入三个数,从大到小输出 C语言编程求一个英文句子中的单词数和最长单词的位置、长度及输出这个单词.从键盘输入一个英文句子,统计其中单词的个数,并输出最长单词在文本中的位置（是文本中的第几个字符）和长 VC编程RNA序列变成氨基酸序列用gets()函数从键盘输入一组RNA的序列,就是一个只有AUCG的字符串,然后每三个字符把它转化成氨基酸的序列.比如输入AUUCGG,那么前三个对应异亮氨酸,就printf(异亮氨