Вывод чисел в файл.

[гризлик]

Здраствуйте!
Возникла необходимость в написании программы которая записала бы в файл все комбинации чисел от 0 до 9999999999. Я конечно понимаю что это школьный курс, но я этот курс закончил более 15 лет назад и никогда больше не писал. Моих знаний хватило только на это:

var
f: file;
a: longint;
begin
assign(f,'list.txt');
rewrite(f);
a:=0;
while a>999999999 do begin
a:=a+1;
writeln(f,a);
end;
close(f);
end.

На строке writeln(f,a) выводится ошибка 63 - Неверный тип файла. Какой правильный тип я должен задать переменой f?
И еще, тип longint имеет предел в 2147483647, а мне нужен 9999999999. Соответственно тоже какой правильный тип нужен*
Спасибо!

[Serge_Bliznykov]

0 до 9999999999

Вас совсем не смущает, что текстовый файлик будет около 110 Гб размером? (если надо, несложно подсчитать размер файла, который должен получиться, с точностью до байта!)
Генерится он будет явно не быстро (думаю, что около 15-20 минут).
А зачем? Что Вы будете с этим файлом делать?!

Какой правильный тип я должен задать переменой f?

так это зависит от типа файла, который Вы хотите получить.
Если нужен ТЕКСТОВЫЙ файл, тогда:

var f : TextFile;

тип longint имеет предел в 2147483647, а мне нужен 9999999999.

берите int64

[гризлик]

Спасибо!

Вас совсем не смущает, что текстовой файлик будет около 110 Гб размером?

Нет. Я вполне себе отдаю отчет что он будет большим

так это зависит от типа файла, который Вы хотите получить.
Если нужен ТЕКСТОВЫЙ файл, тогда:
Код:

var f : TextFile;

Цитата:
тип longint имеет предел в 2147483647, а мне нужен 9999999999.
берите int64

Я так понимаю я должен модуль еще какой-то подключить?

[гризлик]

Вроде разобрался. Переменой f нужно присвоить тип Text. И в while не тот знак поставил. Перпутал < нужно вместо > С мальнькими числами работает. А вот с 10 значным числом проблемы. Int64 в Турбо Паскале вообще нет оказывается. Какой еще тип можно задать?

[Stilet]

На правах быдлокода:

var s:string; i:array[1..9] of integer; 
...
s:='';
for i[1]:=1 to 9 do for i[2]:=1 to 9 do for i[3]:=1 to 9 do for i[4]:=1 to 9 do 
for i[5]:=1 to 9 do for i[6]:=1 to 9 do for i[7]:=1 to 9 do for i[8]:=1 to 9 do 
for i[9]:=1 to 9 do 
 for j:=1 to 9 do write(f,i[j]); writeln;
end;

А вообще можно ИМХО рекурсивную функцию написать, которая бы формировала строку поразрядно.

[гризлик]

Спасибо!
Я на Фри Паскале все сделал. Там этого геморроя нету Да и потом подумал что действительно столько комбинаций мне не нужно. Я просто изначально планировал словарик числовой создать, а потом подумал что в принципе и номеров телефонов хватит

var
f: text;
a: int64;
begin
assign(f,'list1.txt');
rewrite(f);
a:=81000000;
while a<9900000000 do begin
if (a>89999999) and (a<9030000000) then a:=9030000001;
if (a>9039999999) and (a<9050000000) then a:=9050000001;
if (a>9069999999) and (a<9090000000) then a:=9090000001;
if (a>9299999999) and (a<9510000000) then a:=9510000001;
if (a>9519999999) and (a<9530000000) then a:=9530000001;
if (a>9539999999) and (a<9600000000) then a:=9600000001;
if (a>9689999999) and (a<9800000000) then a:=9800000001;
a:=a+1;
writeln(f,a);
end;
close(f);
end.

И этого хватит. Хоть школу вспомнил Вообщем еще раз всем спасибо!!!

[Stilet]

Ну если "побыстрячку" то можно и так. Но лучше длинную арифметику.

[гризлик]

Разрешите еще один нубский вопросик тут задать?
Нужно что бы программа вывыодила цифры от 001 до 999
Подскажите пожалуйста чего нехватает в цикле?

var
a,b,c :integer;
begin
a:=0;
b:=0;
c:=0;
while (a<>10) and (b<>10) and (c<>10) do begin
c:=c+1;
if c=10 then begin
c:=0;
b:=b+1;
end;
if b=10 then begin
c:=0;
b:=0;
a:=a+1;
end;
writeln(a,b,c);
end;
end.

В данный момент выводятся числа до 1000, а мне нужно чтобы он на 999 останавливался. Изночально в while вместо 10 стояли 9, то тогда он только до 900 доходит.

[гризлик]

вопрос снят.

[Stilet]

Нужно что бы программа вывыодила цифры от 001 до 999

Старый коварный студенческий ход:

var i:integer;
begin
 for i:=0 to 999 do
  if (i < 10) then write('00',i) else
   if (i < 100) then write('0',i) else
    if (i < 1000)=0 then write(i);
end.