Программа в Delphi7

[Serge_Bliznykov]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='random(1,99)';
  Edit2.Text:='random(1,99)';
  Edit3.Text:='random(1,99)';
  Memo1.Clear;
  memo1.Lines.add......
end;

Var x,y,z,f,p : extended;
begin

x:=StrToFloat(Edit1.Text);

В этом месте пишет ошибку. Кроме этого полно других ошибок, но я их пока не вижу.

ну и правильно делает.
ошибка раз.

вы нарушили структуру программы.
поясняю.
вот у Вас есть процедура procedure TForm1.FormCreate
тело процедуры начинается ключевым словом begin, завершается end (я выделил их фиолетовым в вашем коде.. а потом ВДРУГ появляется код
Var x,y,z,f,p : extended;
begin. Это к какой процедуре относится?!
(подозреваю, что Вы хотели "кинуть" кнопку Button на форму, потом щёлкнуть по ней и там уже писать тот код, который сработает по нажатию на данную кнопку...)

ошибка два.
Вы в Edit 1 записываете текст random(1,99)
Ок. записали. А что потом пытаетесь сделать? Вы пытаетесь преобразовать этот текст, считая, что в данном поле есть текстовая запись вещественного числа
функция StrToFloat не найдёт в этом поле числа. Вы получите ошибку, что запись не является корректной записью числа! (и это так и есть!) Процедуры преобразования текста в число не умеют выполнять написанный в них КОД(тем более непонятно какой код)!!
(да и вообще, я бы категорически не рекомедовал Вам пока, на начальном этапе пытаться заставить Delphi выполнять код, написанный в Edit/Memo - это сложно и не нужно Вам!
я бы рекомендовал Вам код на FormCreate заменить, например, на такой код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  Edit1.Text:= random(99)+1;
  Edit2.Text:= random(99)+1;
  Edit3.Text:= random(99)+1;
  Memo1.Lines.Clear;
.....

Главное, не вешать нос и не опускать руки, не ошибается только тот, кто ничего не делает. Будете пытаться - всё у Вас получится!
Успехов в обучении!

[evg_m]

я бы рекомендовал Вам код на FormCreate заменить, например, на такой код:
Edit1.Text:= random(99)+1;

наверное все-таки

Edit1.Text:=FloattoStr( random(99)+1 );

или еще лучше

x:=random(99)+1; 
Edit1.Text:=FloattoStr( x );

чтобы потом не надо было делать
x:=strtofloat(Edit1.Text);

В программе первично переменная (x) а ее отображение вторично
Edit1.Text:=FloattoStr( x );

Кроме тех случаев когда данных вводит человек.
x:=StrToFloat(Edit1.Text);

[Serge_Bliznykov]

evg_m, Вы абсолютно правы.
что на меня морок напал, раз я забыл про преобразование числа в строку при назначении .Text

ну и насчёт второго замечания тоже полностью согласен.

[mta0]

Составил блоксхему, чтобы было легче, переписал код, все равно не хочет компилить, рандом убрал ,ибо это скорее моя прихоть чем условие, без него легче.

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioGroup1: TRadioGroup;
    Label4: TLabel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Memo1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='1';
  Edit2.Text:='2';
  Edit3.Text:='3';
  RadioGroup1.ItemIndex:=1;
  Memo1.Clear;
  memo1.Lines.add('ìîè ðåçóëüòàòû');

  end;

procedure TForm1.Memo1Click(Sender: TObject);
var x,y,z,mi,ma,f,p:extended;
begin
StrToFloat(Edit1.Text);
StrToFloat(Edit2.Text);
StrToFloat(Edit3.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4)):
Memol.Lines.Add('y='+FloatToStrF(y,ffFixed,8,4)):
Memol.Lines.Add('z='+FloatToStrF(z,ffFixed,8,4)):

case Radiogroup1.ItemIndex of
0: f:=sh(x);
1: f:=sqr(x);
2: f:=exp(x);
end;
if f>y then mi:=y else mi:=f;
if y>z then ma:=y else mi:=z;


p:=abs(mi-ma)/2
Memo1.Lines.Add('p='+FloatToStrF(c,fffixed,8,4));
end;

end.

[Serge_Bliznykov]

1-е.
явно опечатка!

Memo1.Lines.Add('p='+FloatToStrF(c,fffixed,8,4));

Вы же, вроде бы, значение переменной P хотите вывести?

2-е.
запомните на будущее,
прежде чем обратиться к любой переменной, надо предварительно в неё что-то записать (обычно это называют "иницилизировать").
Загадка. Буратино получил два яблока в подарок. Вопрос, сколько теперь у него яблок? Ответ - невозможно определить, т.к. мы не знаем, сколько у него было яблок до того, как ему вручили презент!
это я всё веду к тому, что если "вдруг" в Radiogroup1 будет больше трёх пунктов (а из кода можно только предположить, что там три варианта выбора) и выберут любой свыше третьего, значение переменной f становится НЕОПРЕДЕЛЁННОЙ.
для исключения этой возможной проблемы достаточно присвоить f любое значение в начале процедуры (в любом месте до case ... )

3-е.

if f>y then mi:=y else mi:=f;
if y>z then ma:=y else mi:=z;

честно пытался понять смысл этих двух строчек кода, но, каюсь, так и не смог этого сделать.
Что Вы пытаетесь вычислить таким образом?!

[evg_m]

прежде чем обратиться к любой переменной, надо предварительно в неё что-то записать (обычно это называют "иницилизировать").

Кроме тех случаев когда данных вводит человек.
x:=StrToFloat(Edit1.Text);

var x,y,z,mi,ma,f,p:extended;
begin
???:=StrToFloat(Edit1.Text);
???StrToFloat(Edit2.Text);
???StrToFloat(Edit3.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4)):
Memol.Lines.Add('y='+FloatToStrF(y,ffFixed,8,4)):
Memol.Lines.Add('z='+FloatToStrF(z,ffFixed,8,4)):

честно пытался понять смысл этих двух строчек кода, но, каюсь, так и не смог этого сделать.

mi[nimum]
ma[ximum]
и в этом случае возникает вопрос (к ТС), а если человек введет
edit1.text:='3';(x)
edit2.text:='2';(y)
edit3.text:='1';(z)

abs(mi-ma) === ma-mi (c учетом телепатических догадок выше!) но без учета кода!

[mta0]

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioGroup1: TRadioGroup;
    Label4: TLabel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Memo1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:=' ';
  Edit2.Text:=' ';
  Edit3.Text:=' ';
  RadioGroup1.ItemIndex:=0;
  Memo1.Clear;
  memo1.Lines.add('ìîè ðåçóëüòàòû');
end;

procedure TForm1.Memo1Click(Sender: TObject);
var x,y,z,mi,ma,f,p:extended;
begin
StrToFloat(Edit1.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4));
StrToFloat(Edit2.Text);
Memo1.Lines.Add('y='+FloatToStrF(y,ffFixed,8,4));
StrToFloat(Edit3.Text);
Memo1.Lines.Add('z='+FloatToStrF(z,ffFixed,8,4));

case Radiogroup1.ItemIndex of
0: f:=exp(x)-exp(-x)/2;
1: f:=sqr(x);
2: f:=exp(x);
end;
if f>y then mi:=y else mi:=f;
if y>z then ma:=y else mi:=z;
p:=abs(mi-ma)/2;
Memo1.Lines.Add('p='+FloatToStrF(p,fffixed,8,4));
end;

end.

Подправил .Осталась только одна проблема. Не считывает значение переменных , тоесть в мемо пишет x=0 y=0 z=0 p=0 ? , как это решить?

[mta0]

[Serge_Bliznykov]

вместо:

StrToFloat(Edit1.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4));
StrToFloat(Edit2.Text);
Memo1.Lines.Add('y='+FloatToStrF(y,ffFixed,8,4));
StrToFloat(Edit3.Text);
Memo1.Lines.Add('z='+FloatToStrF(z,ffFixed,8,4));

должно быть:

x := StrToFloat(Edit1.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4));
y := StrToFloat(Edit2.Text);
Memo1.Lines.Add('y='+FloatToStrF(y,ffFixed,8,4));
z := StrToFloat(Edit3.Text);
Memo1.Lines.Add('z='+FloatToStrF(z,ffFixed,8,4));

[mta0]

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

вместо:

должно быть:

x := StrToFloat(Edit1.Text);
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4));
y := StrToFloat(Edit2.Text);
Memo1.Lines.Add('y='+FloatToStrF(y,ffFixed,8,4));
z := StrToFloat(Edit3.Text);
Memo1.Lines.Add('z='+FloatToStrF(z,ffFixed,8,4));

Благодаою вас