1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
for i:=0 to nb-1 do begin
for j:=0 to nb-1 do begin
for k:=0 to nb-1 do begin
for l:=0 to nb-1 do begin
for m:=0 to nb-1 do begin
for n:=0 to nb-1 do begin
for o:=0 to nb-1 do begin
for p:=0 to nb-1 do begin
if ( ((i <> j)and(i <> k)and(i <> l)and(i <> m)and(i <> n)and(i <> o)and(i <> p))
and((j <> k)and(j <> l)and(j <> m)and(j <> n)and(j <> o)and(j <> p))
and((k <> l)and(k <> m)and(k <> n)and(k <> o)and(k <> p))
and((l <> m)and(l <> n)and(l <> o)and(l <> p))
and((m <> n)and(m <> o)and(m <> p))
and((n <> o)and(n <> p))
and((o <> p))
) then begin
inc(a);
setlength(tab, a);
tab[a-1] := tab_1[i] +tab_2[i,j] + tab_1[j];
tab[a-1] := tab[a-1] +tab_1[k] + tab_2[k,l] + tab_1[l];
tab[a-1] := tab[a-1] +tab_1[m] + tab_2[m,n] + tab_1[n];
tab[a-1] := tab[a-1] +tab_1[o] + tab_2[o,p] + tab_1[p];
end;
end;
end;
end;
end;
end;
end;
end;
end; |
Partager