关于几题pascal作业(在线等)

来源：百度知道 编辑：UC知道 时间：2024/09/28 07:56:38
有几题pascal题,很简单的,高中上的,忘带眼镜就没听咯,各位帮帮忙~~
某车棚有自行车三轮车共65辆,它们的轮子数合计为150个,求车棚内所有的自行车三轮车各是多少辆.

甲乙丙三人分别有磁带36.48.64盒先由甲把自己的磁带平均分成三份,分给乙丙各一份,自己留下一份,接着是乙,最后是丙,都按甲的方法处理,编程输出甲乙丙在上述过程中的磁带数分别是多少.

很简单啊,表鄙视偶~~编的过程写下来,要交滴~~
我要的是编程的过程...计算方法就不用写了...

第一题
program lianxi;
var a,:shortint;
begin
for a:=1 to 50 do
if a*3+(65-a)*2=150 do
writeln(a,65-a);
end.

第二题:
program lianxi;
var a,b,c:shortint;
procedure sum(var a,b,c:shortint);
begin
b:=a div 3+b;
c:=a div 3+c;
a:=a div 3;
end;
begin
a:=36;b:=48;c:=46;
sum(a,b,c);writeln('di yi ci:',a:5,b:5,c:5);
sum(b,a,c);writeln('di er ci:',a:5,b:5,c:5);
sum(c,a,b);writeln('di san ci:',a:4,b:5,c:5);
end.

第二题：
甲（过程）：36/3=12
乙（过程）：(48+12)/3=20
丙（过程）：(64+12+20)/3=32
甲、乙、丙（结果）：12+20+32=64