作业帮几道free pascal的题目
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/05 19:02:23
几道free pascal的题目
1.某饲养场鸡和兔子在同一个笼子养,鸡比兔多15只,鸡兔共有脚132只,问鸡兔各多少只?输出格式：鸡的数量a和兔b
2.分钱游戏.甲乙丙三人共有14元钱,先由甲分钱给乙丙两人,所分给的数与各人已有数相同；接着由乙分给甲丙,方法相同；再由丙分一次.上述三次之后,三人钱数相同.求各人原来的钱数
输出格式：一行,甲乙丙三人的钱数abc（空格隔开）
3.有一牧场,牧场的牧草每天都在匀速生长,这片牧场可供15头牛吃20天,或供20头牛吃10天.那么这片牧场可供几头牛吃1天?
输出格式：一行,结果a
4.已知三角形三边abc,求三角形面积s.
用海伦公式.
感激不尽!
对不起,第二题应该是24元
1.某饲养场鸡和兔子在同一个笼子养,鸡比兔多15只,鸡兔共有脚132只,问鸡兔各多少只?输出格式：鸡的数量a和兔b
2.分钱游戏.甲乙丙三人共有14元钱,先由甲分钱给乙丙两人,所分给的数与各人已有数相同；接着由乙分给甲丙,方法相同；再由丙分一次.上述三次之后,三人钱数相同.求各人原来的钱数
输出格式：一行,甲乙丙三人的钱数abc（空格隔开）
3.有一牧场,牧场的牧草每天都在匀速生长,这片牧场可供15头牛吃20天,或供20头牛吃10天.那么这片牧场可供几头牛吃1天?
输出格式：一行,结果a
4.已知三角形三边abc,求三角形面积s.
用海伦公式.
感激不尽!
对不起,第二题应该是24元
1.
var i,js:integer;
begin
while js1 do
begin
inc(i);
if i*4+(i+15)*2=132 then js:=1;
end;
writeln(i+15,' ',i);
end.
2.
14平均分三份?
不懂.
3.
var i:real;
begin
{(10*20-15*10)/5=10
10*20+10*20=400}
i:=400-10;
writeln(i:0:2);
end.
4.
var a,b,c,s,p:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:0:2);
end.
var i,js:integer;
begin
while js1 do
begin
inc(i);
if i*4+(i+15)*2=132 then js:=1;
end;
writeln(i+15,' ',i);
end.
2.
14平均分三份?
不懂.
3.
var i:real;
begin
{(10*20-15*10)/5=10
10*20+10*20=400}
i:=400-10;
writeln(i:0:2);
end.
4.
var a,b,c,s,p:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:0:2);
end.