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

[nadyaH]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var F: File of real;
    V: String;
begin
with OpenDialog1 do
  if Execute then
   begin
   AssignFile(f,FileName);
    reset(f);
while (not EOF(F)) do
        begin
          Readln(F, V);
          Memo1.Lines.Add(V);
        end;
end;
end;end.

Readln(F, V);
[Error] Unit1.pas(39): Incompatible types: 'Real' and 'String'

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

[Stilet]

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

F: File of real; на F: Text;
Это для начала.
А вообще если нужен именно файл типизированный то соответственно его создавать не в блокноте а программой.

Если же у тебя файл действительно типизированный то:

var F: File of real;
    V: Real;
begin
with OpenDialog1 do
  if Execute then
   begin
   AssignFile(f,FileName);
    reset(f);
while (not EOF(F)) do
        begin
          Readln(F, V);
          Memo1.Lines.Add(format('%5.2f',[V]);
        end;
end;
end;

[nadyaH]

Readln(F, V)

Unit1.pas(39): Incompatible types
ошибку выдаёт , но другую.

[Stilet]

Внимательно смотри: У тебя V и file of должны быть одного и того же типа!

var F: File of real;
    V: Real;

или

var F: Text;
    V: String;

соответственно. В зависимости от файла естественно. Т.е. в каком виде там данные.

[nadyaH]

var
   F: File of real;
    V: Real;

в строке

Readln(F, V);

ошибка [Error] Unit1.pas(40): Incompatible types

[Stilet]

Потому что файл текстовый: Читай же внимательно что тебе пишут.
Еще раз повторю:тебе нужен либо типизированный файл либо используй Text в качестве переменной для файла и string для V
Или проще:

procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
  if Execute then
          Memo1.Lines.LoadFromFile(FileName);
end;

Если нужно только загрузку сделать.

[nadyaH]

n:=FileSize(F); 
for i:=0 to Memo1.Lines.Count do
 if Seek (F,i-1)>(Seek (F,i+1)< Seek (F,i+2) then  здесь выдаёт ошибку?!
 edit1.text:=Seek (F,i+1);
end;
CloseFile(F)
end.

нужно найти локальный минимум. Если не правильно, то что нужно исправить?!

[Аватар]

А что Seek делает?

[nadyaH]

Seek(var F; NumRec: Longint) — устанавливает позицию чтения-записи на элемент с номером

[Аватар]

Ну и добавьте - процедура, которые как известно ничего не возвращают. И чего вы там сравнить пытаетесь?