用pascal的if和case语句编写程序

来源：百度知道 编辑：UC知道 时间：2024/06/24 01:54:31
要求编写两个程序。1.火车站托运行李，不超过50kg的每kg0.15元，超过50kg的超过部分按每kg0.1元计算，输入一个值，计算出价格。
2.超市购物，价格不超过50元的按原价计算，超过50元不足100元的按九折计算，超过100元的超过部分按八折计算，输出价格。
急用！好的加分，最好是if语句和case语句都有的

1.
program huochezhan(input,output);
var zl,jq:real; 【定义，zl是重量，jq是价钱】
begin
writeln('输入重量(kg)');
read(zl); 【读入重量】
if zl>50 then 【比50kg大的执行】
begin
jq:=(zl-50)*0.1+50*0.15; 【计算价钱，LZ应该明白】
end 【这里不需要‘；’】
else 【否则执行】
begin
jq:=zl*0.15; 【计算】
end;
writeln('价钱:',jq:2:2); 【输出】
end.

2.
program chaoshi(input,output);
var yj,xj:real; 【定义。yj原价，xj现价】
begin
writeln('输入原价:');
read(yj);
if yj>50 and yj<100 then 【比50大的，比100小的执行，LZ应该学了】
begin
xj:=yj/10*9; 【计算】
end
else 【否则..】
begin
if yj<50 then 【价钱不在50~100内，执行这一步】
begin
xj:=yj; 【还是原价】
end
else