Pascal练习题

来源：百度知道 编辑：UC知道 时间：2024/06/05 05:05:27
下面2道题目请用pascal语言编写程序

·1 鸡兔同笼，有若干只鸡和兔放在一个笼子里，共有M个头，N只脚，其中，M,N是已知，由键盘输入，有多少只鸡和兔。

·2 有四条水渠（A,B,C,D）可以向同一个水池注水
-----------------------------------------------------------
| 单开一个水渠 | 注满水池时间 | 单开一个水渠 | 注满水池时间 |
-----------------------------------------------------------
| A渠 | 三天 | C渠 | 四天 |
-----------------------------------------------------------
| B渠 | 一天 | D渠 | 五天 |
-----------------------------------------------------------
问： （1）. 如果A,B两条水渠同时注水，注满需要多少天？

（2）. 如果A,B,C,D四条水渠同时注水，注满要多少天？

a+b=M 2a+4b=n

（！）1/（1/3+1）

这是鸡兔同笼的：
program jitu (input,output);
var
m,n,ji,tu:integer;
begin
read(m,n);
tu:=(n-2*m)*2 div 4;
ji:=m-tu;
write('Ji: ',ji,' Tu: ',tu);
end.

如果有不清楚的话，+我好友。(*^__^*)

这是水渠的（由于涉及分数，所以我用小数代替，分数计算很麻烦）：
program shuiqu (input,output);
var
a,b,c,d,ab,abcd:real;
begin
a:=1/3;
b:=1/1;
c:=1/4;
d:=1/5;
ab:=1/(a+b);
abcd:=1/(a+b+c+d);
writeln('ab: ',ab);
writeln('abcd: ',abcd);
end.

问题1：
program howmany;
var
m,n,ra,ch:integer;
begin
read(m,n);
ra:=(m*4-n)/2;
ch:=m-ra;
writeln("兔子的数量为:",ra);
writeln("鸡的数量为:",ch)
end.

问题2：
program water;
const
a=3;b=1;c=4;d=5;
var
q1,q