заполнение массива данными из файла Опции

[VEDA]

Вот такая задача:

В текстовом файле содержится последовательность действительных чисел. Вычислить произведение чисел, порядковые номера которых кратны трем. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры.

Как объяснить что данные из файла это массив? Ничего не могу поделать

это все что вышло

[klem4]

1. открываешь текстовый файл (содержащий числа) для чтения (reset)
2. обнуляешь счетчик (count = 0); и произведение (p = 1)
3. начинаешь цикл прохода по файлу (while not eof(f) do beign ...)
в цикле:
a. читаешь очередное значение (readln(f, value));
б. увеличиваешь счетчик на 1 (count = count + 1)
в. проверяешь: if (count mod 3) = 0 ( если число кратно трем, то )then p := p * value; (добавляешь значение к произведению)
конец цикла.

4. открываешь файл для записи (append)
5. дописываешь в него значение value: writeln(f, value);
6. закрываешь файл.

вроде все

Файлы



добавлено:
или я что-то не так понял ?


Сообщение отредактировано: klem4 - 2.12.2007 2:31