百度作业网Turbo Pascal习题：
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/14 22:02:01
Turbo Pascal习题：
1,小会议室里有几条长凳子,有若干人参加会议,如果每条凳子坐4人,有一条凳子只有3个人,如果每条凳子坐5人,就有四个人得站起来,请用repeat,until语句求出小会议室里有多少条长凳,有多少人参加会议?
program dengzi (input,output);
uses crt;
var
dz,r:integer;
begin
for dz:=1 to 9999 do
for r:=1 to 9999 do
if (r-3=(dz-1)*6) and (r-dz*5=4)
then write ('dengzi',dz,'ren',r);
readkey
end.
请问对不对?
1,小会议室里有几条长凳子,有若干人参加会议,如果每条凳子坐4人,有一条凳子只有3个人,如果每条凳子坐5人,就有四个人得站起来,请用repeat,until语句求出小会议室里有多少条长凳,有多少人参加会议?
program dengzi (input,output);
uses crt;
var
dz,r:integer;
begin
for dz:=1 to 9999 do
for r:=1 to 9999 do
if (r-3=(dz-1)*6) and (r-dz*5=4)
then write ('dengzi',dz,'ren',r);
readkey
end.
请问对不对?
说了要用repeat until 你这样太麻烦了 而且用了uses crt为什么不clrscr
看你的程序我猜原题是不是每条凳子6人就有一条凳子只有三个人,不然没办法算啊
uses crt;
var d,r:integer;
begin
clrscr;
repeat
d:=d+1;
r:=d*6-3
until r=(d*5+4);
write(d,' ',r);
readkey
end.
其实不用编程的,可以直接算出来,盈亏问题嘛 实在不行列个方程都行
看你的程序我猜原题是不是每条凳子6人就有一条凳子只有三个人,不然没办法算啊
uses crt;
var d,r:integer;
begin
clrscr;
repeat
d:=d+1;
r:=d*6-3
until r=(d*5+4);
write(d,' ',r);
readkey
end.
其实不用编程的,可以直接算出来,盈亏问题嘛 实在不行列个方程都行