Question

一个关于delphi的repeat循环语句的很菜的问题

var
i:integer;
begin
i:=0;
repeat
i:=i+3;
memo1.Lines.Add(inttostr(i));
until
i =10;

“i =10;”显然是个漏洞。那么想限定在10以内的每次循环执行加3的数（即3、6、9），“i >=10;”则多了12；
“i <=10;”则不能循环了。

这个语句怎么写？
to yeye55:

若不用图形界面的方式，用控制台来显示怎么写？

*************************
*************************
如果用for-to-do语句实现上述同样功能该怎样写？

Answer 1

两个办法，Repeat是先执行后判断，使用While do语句，先判断后执行，就不会出现多了12的情况，但要注意用while就最后变化i
还有个办法，就是在 memo1.Lines.Add(inttostr(i))前面加个if i<10 then, i 在变化循环也在继续，但不代表每次循环都要打印啊
一般打印N的倍数，也很少用加的，大多是For循环你要的那个区间，然后判断 i mod n = 0 就做

Answer 2

while语句:
i:=3;
while(i<=10)do
begin
i:=i+3;
memo1.Lines.Add(inttostr(i));
end;

for语句:
for i:=1 to 3 do
memo1.lines.add(inttostr(i*3));

repeat语句:
i:=3;
repeat
memo1.lines.add(inttostr(i*3));
i:=i+3;
until i>10;

控制台(本程序在delphi2006下编译通过):
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i:integer;
begin
i:=3;
while(i<=10)do
begin
writeln(i);
i:=i+3;
end;
end.

Answer 3

i:=0;
repeat
i:=i+3;
memo1.Lines.Add(inttostr(i));
until
(i+3)>10;

PS：控制台程序设计我没有学过，不会。

Answer 4

for i:=1 to 10 do
if (i mod 3)=0 then
Memo1.Lines.Add(inttostr(i));

Answer 5

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,ii:Integer;

begin
ii:=0;
for i:=0 to 10 do
begin
ii:=ii+3;
if ii<10then
WriteLn(inttostr(ii));
end;
readln; //回车键退出

end.