{Hej
Oto caly kod, dziala nawet dobrze...ale plik Wynik.txt jest straszenie miejsco-zerny
Jest možliwo˜† zrobienia tego w jeszcze inny sposob, za pomoce repeat until
ale nie mam czasu sie w tym teraz grzebac... zreszta w takiej formie to jest
nawet czytelniejsze (mam taka nadzieje :)
3maj sie
SHIFT
www.shiftcompany.prv.pl}

Const Zn:Array[1..8]of Char=('A','B','C','D','E','F','G','H');
{TABLICA wszystkich znakow uzywanych dalej w programie}

Type
Liczby=record
A,B,C,D,E,F,G,H:Byte;
end;

Var T:Text;
L:Liczby;


Begin
Assign(T,'Wynik.txt');Rewrite(T);
write('Zaczynamy: ciagi 2-znakowe...');
{Dla CiĄg˘w 2 znakowych:}
For L.A:=1 to 8 do
For L.B:=1 to 8 do
Begin
writeln(T,Zn[L.A]+Zn[L.B]);
End;
flush(T);
writeln('juz.');
write('Szukamy dalej: ciagi 3-znakowe...');
{Dla CiĄg˘w 3 znakowych:}
For L.A:=1 to 8 do
For L.B:=1 to 8 do
For L.C:=1 to 8 do
Begin
writeln(T,Zn[L.A]+Zn[L.B]+Zn[L.C]);
End;
flush(T);
writeln('gotowe.');
write('Coraz wolniej: ciagi 4-znakowe...');
{Dla CiĄg˘w 4 znakowych:}
For L.A:=1 to 8 do
For L.B:=1 to 8 do
For L.C:=1 to 8 do
For L.D:=1 to 8 do
Begin
writeln(T,Zn[L.A]+Zn[L.B]+Zn[L.C]+Zn[L.D]);
End;
flush(T);
writeln('no! skonczylem');
write('Poprzeczka coraz wyzej: ciagi 5-znakowe...');
{Dla CiĄg˘w 5 znakowych:}
For L.A:=1 to 8 do
For L.B:=1 to 8 do
For L.C:=1 to 8 do
For L.D:=1 to 8 do
For L.E:=1 to 8 do
Begin
writeln(T,Zn[L.A]+Zn[L.B]+Zn[L.C]+Zn[L.D]+Zn[L.E]);
End;
flush(T);
writeln('uff.. koniec');
write('Poziom zaawansowany: ciagi 6-znakowe...');
{Dla CiĄg˘w 6 znakowych:}
For L.A:=1 to 8 do
For L.B:=1 to 8 do
For L.C:=1 to 8 do
For L.D:=1 to 8 do
For L.E:=1 to 8 do
For L.F:=1 to 8 do
Begin
writeln(T,Zn[L.A]+Zn[L.B]+Zn[L.C]+Zn[L.D]+Zn[L.E]+Zn[L.F]);
End;
flush(T);
writeln('juz.. skonczylem..jeszcze tylko 2');
write('Poziom ultra-zaawansowany: ciagi 7-znakowe...');
{Dla CiĄg˘w 7 znakowych:}
For L.A:=1 to 8 do
For L.B:=1 to 8 do
For L.C:=1 to 8 do
For L.D:=1 to 8 do
For L.E:=1 to 8 do
For L.F:=1 to 8 do
For L.G:=1 to 8 do
Begin
writeln(T,Zn[L.A]+Zn[L.B]+Zn[L.C]+Zn[L.D]+Zn[L.E]+Zn[L.F]+Zn[L.G]);
End;
flush(T);
writeln('rety...udalo sie :) ');
writeln('WOW teraz jak sie uda to juz super');
writeln('ile to liczb?...8x8x8x8x8x8x8x8..: ',8*8*8*8*8*8*8*8,'...: ciagi 8-znakowe...');
{Dla CiĄg˘w 8 znakowych:}
For L.A:=1 to 8 do
For L.B:=1 to 8 do
For L.C:=1 to 8 do
For L.D:=1 to 8 do
For L.E:=1 to 8 do
For L.F:=1 to 8 do
For L.G:=1 to 8 do
For L.H:=1 to 8 do
Begin
writeln(T,Zn[L.A]+Zn[L.B]+Zn[L.C]+Zn[L.D]+Zn[L.E]+Zn[L.F]+Zn[L.G]+Zn[L.H]);
End;
Close(T);
writeln('YEAH KONIEC PROGRAMU :)');
writeln('wcisnij < Enter> ');
readln;
End.