Pascal 的几条简单问题

答案:3 悬赏:60 手机版

解决时间 2021-05-07 06:02

提问者网友：兔牙战士
2021-05-06 05:34

编制程序，根据输入的x值，计算y与z并输出。 y= x2+1 x≤2.5 x2-1 x≥2.5 -π/2×x+3 x<0 z= 0 x=0 π/2×x-5 x>0 对一批货物征收税金，价格在一万元以上的货物征税5%，在5000元以上，一万元以下胡货物征税3%，在1000元以上，5000元一下的货物征税2%，1000元以下的货物免税，写一程序，读入货物价格，计算并输出税金。输入某学生成绩，若成绩在85分以上，输出very good，若成绩在60到85分之间，输出good，若成绩低于60分，输出no good。速度！今天内做好后，重重有赏！！！

最佳答案

五星知识达人网友：拾荒鲤
2021-05-06 06:07

嗯、第一题要是等于2.5怎么办、

我来回答吧：

第一题：

PROGEAM x1;

var x:real;
begin
read(x);
write('y=');
if x<=2.5 then writeln(x*x+1:0:2)
else writeln(x*x-1:0:2);
write('z=');
if x<0 then writeln(-pi/2*x+3:0:2)
else if x=0 then writeln(0)
else writeln(-pi/2*x-5:0:2);
end.

第二题：

PRGRAM x2;

var n:longint;
begin
read(n);
case n of
    0..1000:writeln(0);
    1001..5000:writeln((n-1000)*2/100);
    5001..10000:writeln((n-5000)*3/100)+80);
    10001..maxlongint:writeln((n-10000)*4/100+230);
end;
end.

第三题：

PROGRAM x3;

var n:work;
begin
read(n);
if n>=85 then writeln('very good')
else if (n>=60)and(n<85) then writeln('good')
else writeln('not good');
end.

全部回答

1楼网友：从此江山别
2021-05-06 08:08

哥们你学多久了？

这种弱智问题根本无视就对了！

2楼网友：何以畏孤独
2021-05-06 06:46

第一题y的取值，怎么既是x>=2.5 又是x<=2.5打错了吧，看看等号在那里，我帮你做

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息