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

[mfractus]

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

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

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

[Lapp]

Интересно, как иногда совсем несложный вопрос становится интересным предметом для обсуждения..

Во-первых, должен признать, что вот тут:

(Добавлено: ) хотя, else я все же оставил бы..

- я снова ощибся. Если вносить чтение первого элемента в цикл, то ELSE применять нельзя. Извиняюсь. Но это наводит на другие мысли (см. ниже)..

Для целых чисел можно обойтись -MaxInt-1, а для вещественных или строк или ещё чего придётся уже делать иначе. Но выносить первый элемент наружу всё равно не надо.

first := true;
while not Eof(f) do begin
  read(f, buf);

  if (buf > Max) or first then begin
    first := false;
    Max:=buf;
    Imax:=i;
  end;

  if (buf < Min) or first then begin
    first := false;
    Min:=buf;
    Imin:=i;
  end;

end;

А мне не нравится добавление новой (логической) переменной и проверка ее на каждом проходе цикла..

Короче, я повторюсь, что в первом моем фрагменте кода есть ошибка, и ее необходимо исправить. Предложено два варианта, но в обоих есть некоторый недостаток - трата времени в цикле. Если мой код подправить вот так:

  reset(f);
  if not eof(f) then begin
    read(f,min);
    max:= min;
    while not eof(f) do begin
      read(f,a);
      if a<min then min:=a else if a>max then max:=a
    end;
    {обработка результатов}
  end
  else writeln('файл пуст');

- то, может, с потерей элегантности, исполняться он будет более эффективно . Лишний код - не всегда лишняя работа (компьютера) . И не надо забывать, что после нахождения макс и мин все равно придется обрабатывать ситуацию с пустым файлом при обработке результатов (см. задание). А в этом варианте она обрабатывается за один раз..