Помогите разобраться почему не работает проект

@Сергей_Могилев · Регистрация: 16.10.2016

Author24 — интернет-сервис помощи студентам

помогите разобраться почему не работает проект? что в коде не так??? вроде при компиляции ошибок нету, но не вычесляет

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,f:extended;
begin
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=StrToFloat(Edit3.Text);
   if x*z>9 then f:=exp(z)+exp(x)+power(z,x);
   if x*z<9 then f:=power(x,z)+ln(z)-power(x,3)*power(z,2)*y;
   if x*z=9 then f:=Sqrt(x)+Sqrt(y)+power(z,2)-power(x,2)*power(z,3);
   Memo1.Lines.Add(FloatToStrF(f,ffFixed,8,2))
end ;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.text:='0';
  Edit2.text:='0';
  Edit3.text:='0';
  Memo1.Clear;
   end;
     end.

@Puporev · 06.11.2016, 15:44

Сообщение от Сергей_Могилев

но не вычесляет

Все вычисляет если числа входят в ОДЗ. Нужно посмотреть ОДЗ для x,y,z и если не входит кто-то, то выводить сообщение что f не определено.

@Сергей_Могилев · 06.11.2016, 16:01 **[ТС]**

а не подскажете как это в коде прописать правильно, я в этом новичек

@Puporev · 06.11.2016, 16:12

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var x,y,z,f:extended;
begin
  Memo1.Clear;
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=StrToFloat(Edit3.Text);
  if(z<=0)or(x<0)or(y<0) then Memo1.Lines.Add('Значение f не определено')
  else
   begin
    if x*z>9 then f:=exp(z)+exp(x)+power(z,x)
    else  if x*z<9 then f:=power(x,z)+ln(z)-power(x,3)*power(z,2)*y
    else  f:=Sqrt(x)+Sqrt(y)+power(z,2)-power(x,2)*power(z,3);
    Memo1.Lines.Add(FloatToStrF(f,ffFixed,8,2))
   end;
end;

@Сергей_Могилев · 06.11.2016, 16:19 **[ТС]**

подскажите пожалуйста,куда этот кусок кода вставить в моем проекте?

@Puporev · 06.11.2016, 16:20

Разуй глазки, это не кусок кода а вся твоя процедура

Delphi

1	procedure TForm1.Button1Click(Sender: TObject);

@Сергей_Могилев · 07.11.2016, 21:45 **[ТС]**

все равно не вычисляет результат, проект компилируется, в полях edit ввожу значения x,y,z нажимаю Button но поле Memo1 пустое. Что-то все равно не так, укажите на ошибку

Добавлено через 1 минуту

Delphi

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
 var x,y,z,f:extended;
begin
  Memo1.Clear;
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=StrToFloat(Edit3.Text);
  if(z<=0)or(x<0)or(y<0) then Memo1.Lines.Add('значение f не определено')
  else
   begin
    if x*z>9 then f:=exp(z)+exp(x)+power(z,x)
    else  if x*z<9 then f:=power(x,z)+ln(z)-power(x,3)*power(z,2)*y
    else  if x*z=9 then f:=Sqrt(x)+Sqrt(y)+power(z,2)-power(x,2)*power(z,3);
    Memo1.Lines.Add(FloatToStrF(f,ffFixed,8,2))
   end;
  end;
 end.

@cfbogd · 07.11.2016, 21:47

Сообщение от Сергей_Могилев

но поле Memo1 пустое

memo не будет пустое, в любом случае выведет сообщение

@Сергей_Могилев · 07.11.2016, 21:56 **[ТС]**

так вот не выводит сообщение, я уже все перепробовал,не получается

@cfbogd · 07.11.2016, 21:59

Сообщение от Сергей_Могилев

все перепробовал

все удаляете с формы, компилите, заново кидаете компоненты и отдельно,вставляете нужный код в нужные процедуры.

@Сергей_Могилев · 07.11.2016, 22:01 **[ТС]**

я так уже делал,и не один раз причем,результат нулевой, все компилируется, ошибок нет, но программа не работает

@cfbogd · 07.11.2016, 22:02

Сообщение от Сергей_Могилев

программа не работает

вместо Memo1.Lines.Add попробуйте showmessage

@Сергей_Могилев · 07.11.2016, 22:13 **[ТС]**

результат такой же

Добавлено через 6 минут
не получается у меня

@cfbogd · 07.11.2016, 22:36

Сообщение от Сергей_Могилев

не получается у меня

а жаль... создайте новый проект и попробуйте еще раз (3 TEdit,1 TButton, 1 TMemo)

@Сергей_Могилев · 07.11.2016, 22:50 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 procedure TForm1.Button1Click(Sender: TObject);
 var x,y,z,f:extended;
begin
  Memo1.Clear;
  x:=StrToFloat(Edit1.Text);
  y:=StrToFloat(Edit2.Text);
  z:=StrToFloat(Edit3.Text);
  if(z<=0)or(x<0)or(y<0) then Memo1.Lines.Add('значение f не определено')
  else
   begin
    if x*z>9 then f:=exp(z)+exp(x)+power(z,x)
    else  if x*z<9 then f:=power(x,z)+ln(z)-power(x,3)*power(z,2)*y
    else  if x*z=9 then f:=Sqrt(x)+Sqrt(y)+power(z,2)-power(x,2)*power(z,3);
    Memo1.Lines.Add(FloatToStrF(f,ffFixed,8,2))
   end;
  end;
end.

Добавлено через 2 минуты
то же самое,не считает, где что я не так делаю?

@cfbogd · 07.11.2016, 23:35

Сообщение от Сергей_Могилев

я не так делаю?

я хз, у меня все считает (D7)

@Сергей_Могилев · 07.11.2016, 23:41 **[ТС]**

я разобрался) в инспекторе объектов события по Button1 не включил OneClick Button1Click. Просто я в этом деле новичек, вот сижу разбираюсь, читаю инфу, первый курс,вы уж извините

@Puporev · 08.11.2016, 07:41

Сообщение от Сергей_Могилев

все равно не вычисляет результат, проект компилируется, в полях edit ввожу значения x,y,z нажимаю Button но поле Memo1 пустое.

Скорее всего Вы просто скопировали код и вставили в проект, а кнопку не инициировали.
Зайдите в инспектор объектов на вкладку Events для Button1 и посмотрите что а окошке против OnClick, скорее всего ничего, если так, то кликните в окошечке, чтобы появилось Button1Click.

@Сергей_Могилев · 08.11.2016, 07:44 **[ТС]**

Спасибо, я разобрался

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	07.11.2016, 22:36	14
	Сообщение от Сергей_Могилев не получается у меня а жаль... создайте новый проект и попробуйте еще раз (3 TEdit,1 TButton, 1 TMemo) 0

@Сергей_Могилев 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 13
	07.11.2016, 23:41 [ТС]	17
	я разобрался) в инспекторе объектов события по Button1 не включил OneClick Button1Click. Просто я в этом деле новичек, вот сижу разбираюсь, читаю инфу, первый курс,вы уж извините 0

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	08.11.2016, 07:41	18
	Сообщение от Сергей_Могилев все равно не вычисляет результат, проект компилируется, в полях edit ввожу значения x,y,z нажимаю Button но поле Memo1 пустое. Скорее всего Вы просто скопировали код и вставили в проект, а кнопку не инициировали. Зайдите в инспектор объектов на вкладку Events для Button1 и посмотрите что а окошке против OnClick, скорее всего ничего, если так, то кликните в окошечке, чтобы появилось Button1Click. 0

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.11.2016, 15:44	2
	Сообщение от Сергей_Могилев но не вычесляет Все вычисляет если числа входят в ОДЗ. Нужно посмотреть ОДЗ для x,y,z и если не входит кто-то, то выводить сообщение что f не определено. 0

@Сергей_Могилев 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 13
	06.11.2016, 16:01 [ТС]	3
	а не подскажете как это в коде прописать правильно, я в этом новичек 0

@Сергей_Могилев 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 13
	06.11.2016, 16:19 [ТС]	5
	подскажите пожалуйста,куда этот кусок кода вставить в моем проекте? 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	07.11.2016, 21:47	8
	Сообщение от Сергей_Могилев но поле Memo1 пустое memo не будет пустое, в любом случае выведет сообщение 0

@Сергей_Могилев 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 13
	07.11.2016, 21:56 [ТС]	9
	так вот не выводит сообщение, я уже все перепробовал,не получается 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	07.11.2016, 21:59	10
	Сообщение от Сергей_Могилев все перепробовал все удаляете с формы, компилите, заново кидаете компоненты и отдельно,вставляете нужный код в нужные процедуры. 0

@Сергей_Могилев 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 13
	07.11.2016, 22:01 [ТС]	11
	я так уже делал,и не один раз причем,результат нулевой, все компилируется, ошибок нет, но программа не работает 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	07.11.2016, 22:02	12
	Сообщение от Сергей_Могилев программа не работает вместо Memo1.Lines.Add попробуйте showmessage 0

@Сергей_Могилев 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 13
	07.11.2016, 22:13 [ТС]	13
	результат такой же Добавлено через 6 минут не получается у меня 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	07.11.2016, 23:35	16
	Сообщение от Сергей_Могилев я не так делаю? я хз, у меня все считает (D7) 0

@Сергей_Могилев 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 13
	08.11.2016, 07:44 [ТС]	19
	Спасибо, я разобрался 0