UC知道3道pascal程序求解
来源：百度知道 编辑：UC知道 时间：2024/05/06 00:02:43
运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下:
如果S＜250公里；运费为标准运价的100% ；
如果250公里＜＝S＜500公里，运费为标准运价的98%；
如果500公里＜＝S＜1000公里，运费为标准运价的95%；
如果1000公里＜＝S＜2000公里，运费为标准运价的92%；
如果2000公里＜＝S＜3000公里，运费为标准运价的90%；
如果S＝＞3000公里，运费为标准运价的85%；。请编计算运费的程序。
2.、输入考试成绩，如果获85分以上为 A等，获60分～84分为B等，60分以下为C等，编程输出考试等级。
3.、某车间按工人加工零件的数量发放奖金，奖金分为五个等级：每月加工零件数N < 100者奖金为10元；100 < = N < 110者奖金为30元；110 < = N <120 者奖金为50元；120 < = N <130 者奖金为70元；N > 130者为80元。
请编程，由键盘输入加工零件数量，显示应发奖金数
如果S＜250公里；运费为标准运价的100% ；
如果250公里＜＝S＜500公里，运费为标准运价的98%；
如果500公里＜＝S＜1000公里，运费为标准运价的95%；
如果1000公里＜＝S＜2000公里，运费为标准运价的92%；
如果2000公里＜＝S＜3000公里，运费为标准运价的90%；
如果S＝＞3000公里，运费为标准运价的85%；。请编计算运费的程序。
2.、输入考试成绩，如果获85分以上为 A等，获60分～84分为B等，60分以下为C等，编程输出考试等级。
3.、某车间按工人加工零件的数量发放奖金，奖金分为五个等级：每月加工零件数N < 100者奖金为10元；100 < = N < 110者奖金为30元；110 < = N <120 者奖金为50元；120 < = N <130 者奖金为70元；N > 130者为80元。
请编程，由键盘输入加工零件数量，显示应发奖金数
第一题
a是存放每公里运费的
k是总费
var s:longint; a,k:real;
begin
readln(a);
if s<250 then k:=a*s
else if (s>=250) and (s<500) then k:=a*s*0.98
else if (s>=500) and (s<1000) then k:=a*s*0.95
else if (s>=1000) and (s<2000) then k:=a*s*0.92
else if (s>=2000) and (s<3000) then k:=a*s*0.9
else k:=a*s*0.85;
writeln(k:0:2);
end.
第二题
p是考试成绩
var p:integre;
beign
readln(p);
if p>84 then writeln('A') {注意是84，不是85}
else if (p<85) and (p>59) then writeln('B')
else writeln('C');
end.
第三题
var n:integer;
begin
readln(n);
if n<100 then writeln('10)
else if (100<=n) and (n<110) then wirteln('30')
else if (110<=n) and (n<120) then writeln('50')
else if (120<=n) and (