紧急求救,谢谢!!(100分)

  • 主题发起人 主题发起人 happyallday
  • 开始时间 开始时间
H

happyallday

Unregistered / Unconfirmed
GUEST, unregistred user!
请问在下面这段程序中
var i,n,z,y,sum:integer;
begin
sum:=0;
for i:=1 to 9 do
begin
if text='-' then
continue;
z:=strtoint(text);
for n:=8 to 1 do
//跳过
begin
y:=z*n;
sum:=sum+y;
end;
// 跳过
end;
我调试的时候发现"for n:=8 to 1 do
"就不运行了,总是跳过这段,请问是怎么一回事,
谢谢各位帮忙,谢谢!!
 
for n:=8 do
wnto 1 do
//跳过
 

Similar threads

S
回复
0
查看
685
SUNSTONE的Delphi笔记
S
S
回复
0
查看
896
SUNSTONE的Delphi笔记
S
S
回复
0
查看
645
SUNSTONE的Delphi笔记
S
S
回复
0
查看
873
SUNSTONE的Delphi笔记
S
后退
顶部