Pascal 练习!1.火车托运行李,要根据重量按不同的标准收费.例如不超过50kg,按每公斤0.35元收费.若超过50

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/09 05:06:04

Pascal 练习!
1.火车托运行李,要根据重量按不同的标准收费.例如不超过50kg,按每公斤0.35元收费.若超过50kg按每公斤0.35元收费,其余超过部分按每公斤0.50元收费.现输入托运行李重量,要求计算并输出托运费.
2.输入一个数,如果这个数能同时满足用3除余2,用5除余3,用7除余2,则输出“OK”.
3.输入一个整数判断该数是否为完全平方数.（如果一个数是另一个整数的完全平方,那么我们就称这个数为完全平方数,如9=32,则9为一个完全平方数）
4.输入某学生成绩,如果该学生的成绩在区间〔80,90）内,输出成绩的等级“B”.
5.输入一个三位数,判断这个数中是否包含一个数字0,如果有输出“yes”
6.输入一个数,判断该数是正数、负数还是零,为正数输出“zhengshu”,为负数输出“fushu”,为零输出“ling”
7.输入三个整数,将该三个数从大到小输出.
8.输入一个三位的数,判断该数是否为水仙花数,是则输出“flower”.（水仙花数：若三位数abc,a^3+b^3+c^3=abc ,则称该数为水仙花数）
9.输入一个1000以内的数,判断该数是否为守行数（若某数的平方,其低位与该数本身相同,则称该数为守行数.例如25,252=625,62=36,平方值的低位与原数相同,25、6为守行数）.
10.猜数游戏.由计算机随机产生[0 ,2]之间的整数,从输入键盘输入另一个整数,判断是否相同.

1
a,x:longint;
begin
readln(x);
if x>50 then begin
a:=x-50;
x:=50;
end;
writeln(x*0.35+a*0.5);
end.
2
var
x:longint;
begin
readln(x);
if x mod 3=2 then
if x mod 5=3 then
if x mod7=2 then
writeln('ok');
end.
3
x,i:longint;
begin
readln(x);
for i:=1 to x/2 do
if x div i=i then writeln('ok');
end.
4
var
x:longint;
begin
readln(x);
if (x80) then writeln('b');
end.
5
var
x:string;
la:longint;
begin
la:=length(x);
for i:=1 to la do
if x[i]='0' then writeln(‘yes');
end.
6
var
x:longint;
begin
readln(x);
if x>0 then writeln('zhengshu')
else
if x=0 then writeln('ling')
else
writeln('fushu');
end.
7
var
a,b,c.t:longint;
begin
readln(a,b,c);
if a

Pascal 练习!1.火车托运行李,要根据重量按不同的标准收费.例如不超过50kg,按每公斤0.35元收费.若超过50 、程序设计题：火车站托运行李的收费标准是50kg以内（包括50kg）,按0.2元/kg,超过部分0.5元/kg.编写程序行李托运费的计算方法是：当行李重量不超过30kg时,每千克收费1元；超过30kg,超过部分每千克收费1.5元, 行李托运箱费用的计算方法是：但行李重量不超过30kg时,每千克收费1元；超过30 kg时,超过部分每千克收费托运行李的费用计算方法是:托运行李总重量不超过30kg,每千克收费一元,超过部分每千克收费1.5元,某旅客托某行李托运部，收费标准：不超过30千克时，每千克收费1元，超过30千克的部分，每千克收费1.5元，某人托运m千克的行李．某托运部拖运费的计算方法是：托运行李总质量不超过30千克是,每千克收费1元；超过30千克是,超过部分按每千克收费1.5元行李托运费用的计算方法是当行李质量不超过30千克是每千克收费一元,超过三十㎏时超过部分每千克收费1.5元,某旅客托运了x 托运行李总重量不超过三十千克,每千克收费一元,超过三十,超过部分每千克收费一点五元行李为m千克怎 1.某市水费收费标准如下：若每月每户用水不超过20吨,则按每吨1.2元收费；若超过20吨,超过的部分按每吨2元收费.如果某托运部托运费的计算方法是:托运行李总质量不超过30千克时,每千克1元,超过30千克按照每千克1.5元收费. 一.某市水费收费标准如下：若每户用水不超过20吨,则按每吨1.2元收费；若超过20吨,超过的部分按每吨2元收费.如果某户