Witajcie forumowicze! Przejdę do konkretu, mianowicie mam wykonać na zaliczenie program, który generuje n 6cio liczbowych ciągów z zakresu 1-49. Problemem jest dla mnie to że każdy kolejny ciąg nie może zawierać liczb z poprzednich ciągów ( jeśli ciąg pierwszy to [1,3,5,7,8,9] to następne ciągi nie mogą zawierać tych liczb). Jak wiadomo przy takim założeniu mogę wygenerować maksymalnie 8 ciągów. Niestety nie jestem zbyt dobry w Pascalu..
program project1;
uses CRT;
var i,j,k,n,s,x,OK:integer;
A:array[1..100,1..6] of integer;
begin
ClrScr;
write('Podaj liczbe ciagow: ');
readln(n);
if n>8 then writeln(' NIE MA TYLU CIAGOW! program wygeneruje do 8 6-cio liczbowych ciagow z zakresu 1-49 ')
else
if n<=8 then
randomize;
for i:=1 to n do
for j:=1 to 6 do
repeat
OK:=1;
repeat
A[i,j]:=random(49);
until A[i,j]<>0;
for k:=1 to j-1 do
if (A[i,k]=A[i,j]) then OK:=0;
until OK<>0;
for i:=1 to n do
for s:=1 to 5 do
for j:=1 to 2 do
if A[i,j]>A[i,j+1] then
begin
if n>8 then break
else
if n<=8 then
x:=A[i,j]; A[i,j]:=A[i,j+1]; A[i,j+1]:=x;
end;
if n<=8 then writeln('WYNIKI');
for i:=1 to n do
begin
if n>8 then break
else
if n<=8 then
writeln(i,' ciag: ');
for j:=1 to 6 do
begin
writeln(' ',A[i,j]);
end;
writeln;
readln;
end;
readkey;
end.
Proszę pomóżcie mi jeśli umiecie dokończyć program, za pomoc będę bardzo wdzięczny!