UC知道Pascal难度问题！！（不要高精度）
来源：百度知道 编辑：UC知道 时间：2024/05/03 05:25:29
编以下程：
1.输入a,b,c三个数字,打出这3个数中的最大者.
2.用分支结构设计判断用户输入的x,当x大于0时,求x的平方跟.
3.函数表达式
┏0 (x<0)
┏x (0≤x<10)
y=┏10 (10≤x<20)
┗ -0.5x+20 (20≤x<40)
┗ -2x+40 (x≥40)
编写程序,当输入x后输出y的值.
4.编写:输入学生成绩,输入值大于85,输出very good,输入值在60到85之间,输出good,输入值小于60,输出unsatisfied.
5.编写一个评分程序,接受评委输入某选手的10个得分(0~10分),然后去掉一个最高分和一个最低分,求出选手的最后平均分.
我的家底全拿出来了,大师们一起来吧!!!!
还有一些问题：
1.能打出九九乘法表.
2.要打出这样的图片:(n=3)
*
**
***
3.求s=1+(1+2)+(1+2+3)+ …… +（1+2+3+4+5+ …… +N）
如果能在7月15日回答这3个问题，分数有加。。
1.输入a,b,c三个数字,打出这3个数中的最大者.
2.用分支结构设计判断用户输入的x,当x大于0时,求x的平方跟.
3.函数表达式
┏0 (x<0)
┏x (0≤x<10)
y=┏10 (10≤x<20)
┗ -0.5x+20 (20≤x<40)
┗ -2x+40 (x≥40)
编写程序,当输入x后输出y的值.
4.编写:输入学生成绩,输入值大于85,输出very good,输入值在60到85之间,输出good,输入值小于60,输出unsatisfied.
5.编写一个评分程序,接受评委输入某选手的10个得分(0~10分),然后去掉一个最高分和一个最低分,求出选手的最后平均分.
我的家底全拿出来了,大师们一起来吧!!!!
还有一些问题：
1.能打出九九乘法表.
2.要打出这样的图片:(n=3)
*
**
***
3.求s=1+(1+2)+(1+2+3)+ …… +（1+2+3+4+5+ …… +N）
如果能在7月15日回答这3个问题，分数有加。。
1:
var a,b,c:longint;
begin
for a:=1 to 3 do
begin
read(b);
if b>c then c:=b;
end;
write(c);
end.
4:
var
a:integer;
begin
if a>=85 then write('very good')
else if a>=60 then write('good')
else write('unsatisfied');
end.
5:
var
a,b,d,c:real;
n:integer;
begin
for n:=1 to 10 do
begin
read(a);
if a>b then b:=a;
if a<d then d:=a;
c:=c+a;
end;
c:=c-b-d;
write(c/8);
end.
补充的：
第一题：
program aa;
var
i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=1 to i do
write(i,'*',j,'=',i*j,' ');
writeln;
end;
end.
第二题：
program aa;
var
i,j,n:integer;
begin
read(n);
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln; <