SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
tim91
Цитата:| Дело в том, что n- неизвестно |
только два способа решать такие проблемы:
либо использовать динамическое выделение памяти (либо по одному элементу добавлять в память, либо, как предлагает derelict, при первом проходе по файлу посчитать, сколько будет чисел, потом выделить память и дальше записывать туда)
либо, очень часто допустимо ведение ограничения - сколько чисел может быть МАКСИМАЛЬНО в файле. Например. говорим, что в файле может быть не больше 5000 элементов и пишем так:
Код:
const MaxN = 5000;
var
n, j : integer;
f: text;
a: array [1..MaxN] of real;
begin
assign(f, 'numbers.txt');
reset(f);
n := 0;
while Not Eof(f) do begin
inc(n);
readln(f, a[n]);
end;
close(f);
WriteLn('Прочитали ',n:1,' чисел.');
for j := 1 to n do write(a[j], ' ');
readln;
end. |
в принципе, перед inc(n) можно (и в реально жизни) НУЖНО проверить что N<MaxN |
