Программа в Delphi7

[mta0]

Привет гуру программирования и новички! Мне срочно нужна ваша помощь! До того как поступил (2 недели назад) я никогда не видел делфи и не знал что такое программирование. Сейчас изо всех сил пытаюсь его осваивать. Плохо получается, решил зарегаться тут, у вас, потому что помощи попросить больше не у кого.Перейдем к проге. Бьюсь над ней 2 час, все мои одногруппники сделали ее за час и меньше , а мне что-то не идет. Помогите, а....

[Вадим Мошев]

В каком виде помощь? Вам готовую программу нужно или что?

[mta0]

Сообщение от Вадим Мошев

В каком виде помощь? Вам готовую программу нужно или что?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;

    procedure FormCreate(Sender: TObject);
    procedure Memo1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}





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('ðåç-òû ñò. ãð. 353504 Òîëñòîëóöêîãî Ì.À.')

end;


Var x,y,z,f,p : extended;
begin
x:=StrToFloat(Edit1.Text);
Y:=strtofloat(edit2.text);
z:=strtofloat(edit3.text);
Memol.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:=cos(x);
1: f:=sqr(x);
2: f:=exp(x);
p:=abs(min-max)/2

end;

if f>y then max:=f else max:=y;
 if f<y then min:=f else min:=y


if y<z then min:=y else min:=z;
if y>z then max:=y else max:=z



if checkbox1.Checked then
memo1.lines.add('max='+inttostr(round(ma)))
                else
memo1.Lines.add('max='+FloattostrF(ma,ffGeneral,8,2));


if checkbox1.Checked then
memo1.lines.add('min='+inttostr(round(mi)))
                else
memo1.Lines.add('min='+FloattostrF(mi,ffGeneral,8,2));


end;



end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[mta0]

Сообщение от Вадим Мошев

В каком виде помощь? Вам готовую программу нужно или что?

Var x,y,z,f,p : extended;
begin
x:=StrToFloat(Edit1.Text);
Y:=strtofloat(edit2.text);
z:=strtofloat(edit3.text);

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




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[mta0]

Сообщение от Вадим Мошев

В каком виде помощь? Вам готовую программу нужно или что?

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

[Вадим Мошев]

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

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

Отлично. Напишу. Сколько платите?

[mta0]

Сообщение от Вадим Мошев

Отлично. Напишу. Сколько платите?

намек понял ) нет не надо писать.

[mta0]

Сообщение от Вадим Мошев

Отлично. Напишу. Сколько платите?

Мне не нужно готовое, мне научится надо.

[Вадим Мошев]

Вот вам ссылка полезная http://www.delphi-manual.ru/
Должно помочь. И ещё. Если сейчас вы уже ничего не можете сделать, остановитесь, ложитесь спать, а задачу пробуйте решить на свежую голову.

[mta0]

Сообщение от Вадим Мошев

Вот вам ссылка полезная http://www.delphi-manual.ru/
Должно помочь. И ещё. Если сейчас вы уже ничего не можете сделать, остановитесь, ложитесь спать, а задачу пробуйте решить на свежую голову.

Благодарю за совет.