В файле переставить компоненты..., В обратном порядке... Опции

[dimaeyeore]

Привет всем !! Помогите пожалуйста решить лабу:
Ввести с клавиатуры файл F действ. чисел. Компоненты файла, стоящие между наибольшим и наименьшим компонентом, переставить в обратном порядке. Выдать на печать преобразованный файл.
Умоляю

[Ozzя]

Код

F:file of real;
...
{ Ввести файл }
...
ReWrite(f);
while (Не признак конца ввода } do
begin
  read(r);
  write(f,r);
end;

Найти макс. и мин. элементы - элементарная задача. Поищи на форуме.
Для упрощения файл можно считать в массив. Но можно и без него. Тогда при чтении чисел из файла запоминай номера позиций.

Поменять числа в файле:
Примерно так:

Код

for i:=1 to MaxPos to Minpos do
begin
  ...
seek(f,i);
read(i,r);
temp:=r;
seek(f,maxpos-i);
write(f,temp);
...
end;

Все вышесказанное для идеального случая, когда и макс. и мин. по одному.

Сообщение отредактировано: Ozzя - 16.12.2005 10:04