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

[Stilet]

Фуххх...

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; f,m:double;
begin
with OpenDialog1 do                          
  if Execute then begin
   with Memo.Lines do begin
    LoadFromFile(FileName);
    CommaText:=StringReplace(Text,' ','',[rfreplaceall]);
    
    for i:=0 to Count-1 do begin
     f:=StrToFloat(Strings[i]);
     if (i=0)or(f<m) then m:=f;
    end;
    
    Append(format('Локальный минимум = %5.2f',[m]));
   end;
  end;
end;

Не проверял. Но смысл - работать с текстовым файлом преобразовывая его части строк представляющие числа в числа.

[Serge_Bliznykov]

var
   F: File of real;

....
файл.txt

nadyaH, перечитывайте и повторяйте:
"Файл вещественных чисел, заданный в условии НЕ ЯВЛЯЕТСЯ текстовым. Нельзя использовать ТЕКСТОВЫЙ файл, там, где нужно использовать ТИПИЗИРОВАННЫЙ (он же двоичный, он же бинарный) файл."

Как только Вы поймёте, что файл вещественных чисел нужно предварительно создать (и вы напишете программку, которая создаёт данный файл), после этого сразу всё у Вас получится.

[nadyaH]

Stilet

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end. в последней строчке выдаёт ошибку! Из за чего?

[Аватар]

в последней строчке выдаёт ошибку! Из за чего?

Из-за кривых рук Stilet, попал

[Stilet]

Я что end; еще один в примере забыл? О_о

в последней строчке выдаёт ошибку!Из за чего?

Наверное из-за того что там что-то неправильно.

[nadyaH]

разницы не какой нету, что есть end,что его нету. В Project1 выдаёт ошибку.

[Stilet]

Опять 25/5...
О чем должна нам говорить фраза "выдает ошибку" как ты думаешь? Когда уже новички поймут что экстрасенсов как и Деда Мороза не существует?

[nadyaH]

Пост № 31 вроде всё тоже самое.
Ошибку выдаёт.

[nadyaH]

[Предупреждение] Unit1.pas(41): переменная 'm', возможно, не былa инициализированa.

[ZX Spectrum-128]

Предупреждение (warning) не ошибка. Просто просят обратить внимание на этот факт. Если нужно, то инициализируйте данную переменную.