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

[nadyaH]

Что нужно дописать, чтобы возвращалось значение и сравнивались элементы?

[Аватар]

Сначала как минимум прочитать из файла

[Stilet]

nadyaH

Ну. Сама же написала - устанавливает. Зачем ты его в If вставила? Он же только курсор в открытом файле устанавливает, а ничего не читает.

[ZX Spectrum-128]

Если я правильно понимаю, цикл идет до memo.lines.count, котрый 0
То есть и не выполнится
До n гоните цикл

I:=0;
Read(f,x);
Left:=x;
For i:=1 to n-1 do
  Begin
     Seek(f,i-1);
      Read(f,x);
      Left:=x;
      Seek(f,i);
      Read(f,x);
      Middle:=x;
      Seek(f,i+1);
      Read(f,x);
      Right:=x;
// и пошло сравнение
End;

[nadyaH]

procedure TForm1.Button1Click(Sender: TObject);
var
   F: File of real;
    Right,Middle,Left,x,n,V: Real;
    i:integer;
begin
with OpenDialog1 do                          //
  if Execute then                            //÷òåíèå ôàéëà
          Memo1.Lines.LoadFromFile(FileName);//
n:=FileSize(F); 
I:=0;
Read(f,x);
Left:=round(x);
For i:=1 to n-1 do   в этой строчке ошибка.
  Begin
     Seek(f,i-1);
      Read(f,x);
      Left:=x;
      Seek(f,i);
      Read(f,x);
      Middle:=x;
      Seek(f,i+1);
      Read(f,x);
      Right:=x;
if (middle<right) and (middle<Left) then
edit1.Text:=FloatToStr(middle);
End;
end;
end.

Что нужно исправить?

[ZX Spectrum-128]

N = 0 скорее всего. Перед filesize

AssignFile(f,filename);
// filename берется из opendialog как не помню, посмотрите
// в справке что-то типа OpenDialog.Filename
Reset(f);
// и в конце работы
CloseFile(f);

И зачем вы файл в memo пихаете? Вам от диалога только имя файла нужно.

[Stilet]

n:=FileSize(F);

Что это? Зачем???
А это?:

For i:=1 to n-1 do в этой строчке ошибка.
Begin
Seek(f,i-1);
Read(f,x);

Зачем??
Можно увидеть содержимое файла? Можешь его прикрутить к теме?
Ибо тот пример что я дал исключает эти твои seek() и иже с ним в корне, причем конкретно и радикально.

[ZX Spectrum-128]

Кхм, вот что значит читать тему не сначала ))
Что-то девушка меня совсем запутала.

[Stilet]

Что-то девушка меня совсем запутала.

Да не только тебя. Пусть прикладывает файл. Иначе... На столбе мочало - начинай сначала.

[nadyaH]

procedure TForm1.Button1Click(Sender: TObject);
var
   F: File of real;
    Right,Middle,Left,x,V: Real;
    i:integer;
begin
with OpenDialog1 do                          //
  if Execute then                            //чтение файла
          Memo1.Lines.LoadFromFile(FileName);// Эту часть мы сделали.

Теперь нужно найти первый локальный минимум!
I:=2;
x:=2;
Left:=round(x); //
  Begin
     Seek(f,i-1);
      Read(f,x);
      Left:=x;
      Seek(f,i);
      Read(f,x);
      Middle:=x;
      Seek(f,i+1);
      Read(f,x);
      Right:=x;
if (middle<right) and (middle<Left) then
edit1.Text:=FloatToStr(middle); 
End;
CloseFile(f);
end;
end.

В файле могут находиться любые вещественные числа.