Счетчик чисел

[Ратмир]

Помогите пожалуйста не выводит все числа в файл в чем ошибка

Program Ex1;
Var F,: text;
i: longint;

Begin
Assign(F,'b.txt');
Rewrite(F);

for i:=13092087 to 99999999 do
Writeln(F,i);

Close(F);
Readln;
end.

[Doholyan]

for i:=13092087 to 99999999 do
begin
Write(F,i);
Write(i);
end;
а, вообще сторайся использывать цикл с while not EOF

[puporev]

Да программа синтаксически правильно написана, только как Вам удалось прочитать файл? Его размеры превышают все допустимые пределы для текстовых файлов. Что-то больше 300 Мб.

[Greblin]

Сообщение от puporev

Да программа синтаксически правильно написана, только как Вам удалось прочитать файл? Его размеры превышают все допустимые пределы для текстовых файлов. Что-то больше 300 Мб.

Примерно 828 мегов Хороший способ поиздеваться над Notepad'ом
2 Doholyan, а можете мне, тёмному, объяснить причём тут while not eof, если файл на запись открывается?

[puporev]

Я просто посчитал количество чисел, умножил на 4 байта.

Хороший способ поиздеваться над Notepad'ом

Да и Ворд пишет больше 32 Мб, не могу прочитать.

[Greblin]

Сообщение от puporev

Я просто посчитал количество чисел, умножил на 4 байта.

Файл текстовый, числа занимают по 8 байт + 2 байта на перевод строки

[Doholyan]

Greblin
___________
При чем тут...на запись или на чтение...
выход из цикла....или нужно было ему голову еще забивать на счет "метки условия" для выхода из цикла???

[Greblin]

Сообщение от Doholyan

Greblin
___________
При чем тут...на запись или на чтение...
выход из цикла....или нужно было ему голову еще забивать на счет "метки условия" для выхода из цикла???

Doholyan, при том, что когда вы функцией Rewrite открываете файл на запись, а потом пытаетесь вызвать eof, BP выдаёт ошибку компиляции, а Delphi runtime error. Сами подумайте, при вызове rewrite файл очищается. И что же должен выдать бедный eof?

[Gapro]

while not eof

Означает - Считывать, пока не кончаться строки в файле

[Gapro]

Вернее не считывать, а делать операторы, указанные в цикле