Паскаль.Файлы.

[sunrise7]

Дан файл вещественных чисел. Найти общее количество его локальных экстремумов, т. е. локальных минимумов и локальных максимумов
помогите, пожалуйста решить

[whatever]

Что понимать под "локальными"? Файл вещественных чисел, по сути, это набор вещественных числел => существует один минимум и один максимум.

[sunrise7]

локальный минимум элемент, который меньше своих соседей. локальный максимум,который больше соседей.

[whatever]

type
  fl=file of real;
procedure create(var T:fl);
var
  x:real;
  i:integer;
begin
  randomize;
  rewrite(T);
  for i:=1 to 20 do
    begin
      x:=random(25)/7;
      write(T,x);
    end;
  closefile(T);
end;

var
  T:Fl;
  a,b,c:real;
  count:integer;
begin
  assignfile(t,'input.txt');
  create(T);
  reset(T);
  while not eof(T) do
    begin
      read(t,a);
      write(a:2:2,' ');
    end;
  writeln;
  writeln;
  reset(T);
  read(T,a);
  read(T,b);
  read(T,c);

  count:=0;
  if (b>a)and(b>c) then
    begin
      write('Lmax=',b:2:2,' ');
      inc(count);
    end;
  if (b<a)and(b<c) then
    begin
      write('Lmin=',b:2:2,' ');
      inc(count);
    end;

  while not EOF(T) do
  begin
    a:=b;
    b:=c;
    read(t,c);
    if (b>a)and(b>c) then
      begin
        write('Lmax=',b:2:2,' ');
        inc(count);
      end;
    if (b<a)and(b<c) then
      begin
        write('Lmin=',b:2:2,' ');
        inc(count);
      end;
  end;
writeln;
writeln('count= ',count);
readln;
end.

Первое и последнее число в расчет не брал.

[s-andriano]

Сообщение от sunrise7

локальный минимум элемент, который меньше своих соседей. локальный максимум,который больше соседей.

А как узнать, где в файле расположены соседи данного элемента?

[Serge_Bliznykov]

s-andriano, не глумитесь, плиз!
ну очевидно, что любой элемент в файле, кроме первого и последнего, имеет соседей:
элемент, расположенный непосредственно ДО текущего, и элемент, расположенный сразу ПОСЛЕ текущего.
вот эти элементы и являются его соседями...

[sunrise7]

спасибо большое)

[s-andriano]

Сообщение от Serge_Bliznykov

s-andriano, не глумитесь, плиз!
ну очевидно, что любой элемент в файле, кроме первого и последнего, имеет соседей:
элемент, расположенный непосредственно ДО текущего, и элемент, расположенный сразу ПОСЛЕ текущего.
вот эти элементы и являются его соседями...

Элементы могут располагаться ДО либо ПОСЛЕ только в структурированных данных, например, в массиве, списке либо последовательности.
Файл сам по себе предопределенной структуры не имеет, структура (если она есть) задается внешней программой, работающей с этим файлом.

Я ПРЕДПОЛАГАЮ, что условие следует читать как "Дан файл, содержащий последовательность...". Но это только мои догадки. Прояснить задачу и рассеять возникающие сомнения IMHO должен автор вопроса.
Кстати, если мои предположения верны, то приведенный код задачу не решает, т.к. первый и последний элементы последовательности могут быть даже глобальными экстремумами, поэтому не рассматривать их в качестве локальных (т.е. "претендентов" на глобальный) методически неправильно.
Есть и другие проблемы:
3, 5, 5, 4 - очевидно, локальный максимум, но программа его не найдет.

Ну и общее замечание: прежде, чем заново открывать файл, его рекомендуется сначала закрыть.

[whatever]

Сообщение от s-andriano

Элементы могут располагаться ДО либо ПОСЛЕ только в структурированных данных, например, в массиве, списке либо последовательности.
Файл сам по себе предопределенной структуры не имеет, структура (если она есть) задается внешней программой, работающей с этим файлом.

Я ПРЕДПОЛАГАЮ, что условие следует читать как "Дан файл, содержащий последовательность...". Но это только мои догадки. Прояснить задачу и рассеять возникающие сомнения IMHO должен автор вопроса.
Кстати, если мои предположения верны, то приведенный код задачу не решает, т.к. первый и последний элементы последовательности могут быть даже глобальными экстремумами, поэтому не рассматривать их в качестве локальных (т.е. "претендентов" на глобальный) методически неправильно.

Доля здравого смысла, конечно, есть, но я не думаю, что стоит искать такие "подковырки" в задаче для первокурсника.
P.S.

3, 5, 5, 4 - очевидно, локальный максимум, но программа его не найдет.

В сообщении №3 четко прослеживается строгое неравенство. Это тоже на совести ТС.

Ну и общее замечание: прежде, чем заново открывать файл, его рекомендуется сначала закрыть.

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

[s-andriano]

Сообщение от whatever

В сообщении №3 четко прослеживается строгое неравенство. Это тоже на совести ТС.

Как мы выяснили, топикастеру свойственно ошибаться.
И когда данное топикастером определение явно противоречит общепринятому, мне кажется, на это нужно обратить внимание.
Опять же, нигде нет утверждения, что элемент - единственное число. Почему бы в качестве элемента не рассматривать всю совокупность подряд идущих чисел, имеющих одинаковую величину?