主题：请教怎样统计循环的有效次数
wuyongyi
[专家分：0] 发布于 2007-11-13 09:21:00
下面的例题中，怎样修改才能统计出有效循环的次数呢？
var i,j,k:integer;
begin
for i:1 to 18 do
for j:1 to 48 do
begin
k:=100-i*5-j*2;
if (k>0) and (i+j+k=50) then writeln('5:',i,'2:',j,'1:',k)
end
end.
最后更新于：2007-11-13 10:00:00
回复列表 （共6个回复）
沙发
在蓝天fi5 [专家分：80] 发布于 2007-11-13 12:55:00
怎么不加分号
板凳
在蓝天fi5 [专家分：80] 发布于 2007-11-13 12:57:00
var i,j,k,t:integer;
begin
for i:1 to 18 do
for j:1 to 48 do
begin
k:=100-i*5-j*2;
if (k>0) and (i+j+k=50) then
begin
writeln('5:',i,'2:',j,'1:',k);
t:=t+1;
end;
end；
writeln(t);
end.
3 楼
maolin95 [专家分：60] 发布于 2007-11-13 16:03:00
楼上的最好加一个t:=0
4 楼
wuyongyi [专家分：0] 发布于 2007-11-13 22:20:00
请问：
（1）为什么要加t:=0呢？
（2）加到什么地方才对？
5 楼
风之落叶 [专家分：40] 发布于 2007-11-13 22:35:00
回楼上：
<1>可能前面用到了t，所以需初始化。
（2）既然是有效次数吗，必须要加到if语句中。
6 楼
abcwuhang [专家分：1840] 发布于 2007-11-16 21:04:00
在第一个begin后加t:=0
我来回复
您所在位置：