关于循环的问题，请教(20分)

M

moshengren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #1

比如数字123
我们要输出：123，312，231
我们把数字想象成头尾相连就应该能看明白了
但现在数字的个数是不确定的
我该怎么实现这个输出呢
如输入1234，我们要输出：1234，4123，3412，2341

 

L

linbren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #2

这个研究一下八皇后问题应该就解决了。

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #3

procedure TForm1.Button1Click(Sender: TObject);
var S:String;
I,Len:Integer;
begin
S:='12345';
Len:=Length(S);
S:=S+S;
for I:=1 to Len do
Memo1.Lines.Append(Copy(S,I,Len));
end;

 

M

moshengren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-19

• #4

棒！