Типизированные файлы Опции

[mfractus]

Доброго времени суток! Прошу помощи в решении задачи. Заранее спасибо!

Текст задачи.

Сформировать файл G. Определить сумму и произведение наибольшего и наименьшего из значений компонент. Заменить значением суммы первую и последнюю компоненты, а на значение произведения – увеличить каждую третью компоненту файла. Файл вывести до и после преобразования.

[mfractus]

Спасибо за ответ! Да, два куска соединить. Вот я тут работал с другой программой, которая вычисляет сумму и произведение.

Текст программы:

Код

[code=pas]
Program Files_0;
var
   F: file of integer;
   S,P, buf:integer;
begin
     Assign(F,'.dat');
     rewrite(F);
     writeLn('Введите первую компоненту файла');
     readLn(buf);
     while buf<>999 do
           begin
                write(F,buf);
                writeLn('Введите следующую компоненту:');
                readLn(buf);
           end;
     S:=0;
     P:=1;
     reset(F);
     while not EOF(F) do
           begin
                read(F,buf);
                S:=S+buf;
                P:=P*buf;
           end;
           writeLn('Найденная сумма равна:',S);
           writeLn('Найденное произведение равно:',P);
           close(F);
end.

Возник вопрос, read(F,buf); тоже стоит после while not EOF(F) do, тем не менее программа исправно работает. В чем тут дело не пойму.

Сообщение отредактировано: mfractus - 5.03.2011 15:24