delphi編程 字符串取字符進行組合

程序代碼：

{$apptype?console}?//設置程序為非圖形界面，TURBO?PASCAL等無需這壹行

var

n,a,b,c,d:integer;

s:string;

begin

s:='01234';

n:=length(s);

for?a:=1?to?n-3?do

for?b:=a+1?to?n?do

for?c:=b+1?to?n?do

for?d:=c+1?to?n?do

writeln(s[a],s[b],s[c],s[d]);

end.

運行過程：

上一篇:Ug8.0數控編程課程

下一篇:ug能壹條刀路光內圓孔兩側嗎?