一个关于算法的问题！送大分！

Question

Delphi不是C改用While语句吧K := 0;
I := 1;
J := 1;
while I <= 10 do
begin
  while J <= 6 do
  begin
    Inc(K);
    Inc(J, 2);
  end
  Inc(I, 2);
end;
  我不知道这是不是算法？！

Answer 1

VB里的For语句可用 step 2，但Delphi好象不能用，用While好了。

Answer 2

用while 和 repeat 可以间接实现

Answer 3

用while 和 repeat 可以间接实现   

Answer 4

用for 也可以，但危险
for i:= 0 to 10 do begin
  i:= 1+1; //Step is 2
  writeln(i);
end;

Answer 5

德克斯特:
系统提示：
[Error] Unit1.pas(37): Assignment to FOR-Loop variable 'i'

Answer 6

CoolSlob：
我 是 这样写的：
  K := 0;
I := 1;
J := 1;
while I <= 10 do
begin
  while J <= 6 do
  begin
    k:=K+1;
    j:=j+2;
  end;
  i:=i+2;
  label1.Caption:=inttostr(k);
end;
但运行后，结果是3？
能不能在帮看！

Answer 7

K := 0;
I := 1;
J := 1;
while I <= 10 do
begin
  while J <= 6 do
  begin
    k:=K+1;
    j:=j+2;
  end;
  i:=i+2;
  label1.Caption:=inttostr(k); // 这条语句的位置不当，放到下一个End的后面看看吧，我也不知道你想干嘛！！
end;

Answer 8

//呵呵，我搞错了K := 0;
I := 1;
while I <= 10 do
begin
  J := 1;      ////////////////////////注意位置！！！！！！！！！！！！！！！
  while J <= 6 do
  begin
    k:=K+1;
    j:=j+2;
  end;
  i:=i+2;
  label1.Caption:=inttostr(k); // 这条语句的位置不当，放到下一个End的后面看看吧，我也不知道你想干嘛！！
end; 

Answer 9

在里面再加一次一不就行啦
for i:=1 to 10 do
 begin 
  for j:1 to 6 do 
   begin       
    k:=K+1;
    j:=j+1;
   end;
 i=I=1;
end;     

Answer 10

用While语句实现最好,没必要再玩别的花样。
当然我可以这样实现：
在  Fortran中：
do i=1,10,2
  do j=1,6,2
    k=k+1
  enddo
enddo然后做成动态链接库，然后用Delphi调用。
各位满意不？:)

Answer 11

for i:=1 to 10 do begin
  for j:1 to 6 do begin
      k:=K+1;
      j:=j+1;
  end;
  i:=i+1;
end;
记住，注意循环的起始值和终止值，否则结果不对

Answer 12

var
  I, J: Integer;
begin
  for J := 1 to 10 do begin
    I := J * 2 - 1;
    {I}
  end;  
end;

Answer 13

谢谢各位！
如果i和j的类型都不是整形呢？是longint 怎么办？