Du må selv fifle med at dele det op på flere filer. Hvad er der i øvrigt
galt med en fil på 160 MB?
Hilsen
Uffe
const
maxtal = 35; { prøv med 10 første gang programmet køres}
var
output: text;
tal1,tal2,tal3,tal4,tal5,tal6,tal7: integer;
begin
assign(output,'lottotal.txt');
rewrite(output);
for tal1:= 1 to maxtal-6 do
for tal2:= tal1+1 to maxtal-5 do
for tal3:= tal2+1 to maxtal-4 do
for tal4:= tal3+1 to maxtal-3 do
for tal5:= tal4+1 to maxtal-2 do
for tal6:= tal5+1 to maxtal-1 do
for tal7:= tal6+1 to maxtal do
writeln(output,tal1:2,' ',tal2:2,' ',tal3:2,' ',tal4:2,' ',tal5:2,'
',tal6:2,' ',tal7:2);
close(output);
end;
"zenzor" <zenzor.news@kandu.dk> wrote in message
news:Cyyg8.244$O3.19193@news010.worldonline.dk...
> Hej.
> Hvem kan hjælpe med en Turbo Pascal rutine (DOS) der kan udskrive alle
> 8.347.680
> mulige lotto kombinationer til X antal txt filer.
> En enkelt fil vil nok være lige rigeligt,da den vil fylde 160-170 MB.
>
> På forhånd tak.
> Zenzor.
>
> --
> Leveret af:
>
http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>