Turbo Pascal习题:1,小会议室里有几条长凳子,有若干人参加会议,如果每条凳子坐4人,有一条凳子只有3个人,如果每条凳子坐5人,就有四个人得站起来,请用repeat,until语句求出小会议室里有多少条
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 13:33:14
![Turbo Pascal习题:1,小会议室里有几条长凳子,有若干人参加会议,如果每条凳子坐4人,有一条凳子只有3个人,如果每条凳子坐5人,就有四个人得站起来,请用repeat,until语句求出小会议室里有多少条](/uploads/image/z/1012389-69-9.jpg?t=Turbo+Pascal%E4%B9%A0%E9%A2%98%EF%BC%9A1%2C%E5%B0%8F%E4%BC%9A%E8%AE%AE%E5%AE%A4%E9%87%8C%E6%9C%89%E5%87%A0%E6%9D%A1%E9%95%BF%E5%87%B3%E5%AD%90%2C%E6%9C%89%E8%8B%A5%E5%B9%B2%E4%BA%BA%E5%8F%82%E5%8A%A0%E4%BC%9A%E8%AE%AE%2C%E5%A6%82%E6%9E%9C%E6%AF%8F%E6%9D%A1%E5%87%B3%E5%AD%90%E5%9D%904%E4%BA%BA%2C%E6%9C%89%E4%B8%80%E6%9D%A1%E5%87%B3%E5%AD%90%E5%8F%AA%E6%9C%893%E4%B8%AA%E4%BA%BA%2C%E5%A6%82%E6%9E%9C%E6%AF%8F%E6%9D%A1%E5%87%B3%E5%AD%90%E5%9D%905%E4%BA%BA%2C%E5%B0%B1%E6%9C%89%E5%9B%9B%E4%B8%AA%E4%BA%BA%E5%BE%97%E7%AB%99%E8%B5%B7%E6%9D%A5%2C%E8%AF%B7%E7%94%A8repeat%2Cuntil%E8%AF%AD%E5%8F%A5%E6%B1%82%E5%87%BA%E5%B0%8F%E4%BC%9A%E8%AE%AE%E5%AE%A4%E9%87%8C%E6%9C%89%E5%A4%9A%E5%B0%91%E6%9D%A1)
Turbo Pascal习题:1,小会议室里有几条长凳子,有若干人参加会议,如果每条凳子坐4人,有一条凳子只有3个人,如果每条凳子坐5人,就有四个人得站起来,请用repeat,until语句求出小会议室里有多少条
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.
请问对不对?
Turbo Pascal习题:1,小会议室里有几条长凳子,有若干人参加会议,如果每条凳子坐4人,有一条凳子只有3个人,如果每条凳子坐5人,就有四个人得站起来,请用repeat,until语句求出小会议室里有多少条
说了要用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.
其实不用编程的,可以直接算出来,盈亏问题嘛 实在不行列个方程都行