Помогите найти ошибку: Delphi. Программа вычисления значения функции

[Vladislav125]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Label2: TLabel;
    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.FormCreate(Sender: TObject);
begin
Edit1.text:='0,5';
Memo1.Clear;
Memo1.Lines.Add;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,y,a,b,pi:extended;
begin

x:=StrToFloat(Edit1.Text);
Memo1.Lines.Add(' x='+Edit1.Text);
if x>Pi then y:=1-exp(-a*x)*sin(a*x+b);
if (x>=-Pi) and (x<=Pi) then y:=1-exp(-a*x)*(a*x+b)
      else Y:=1-(exp(-a*x)+exp(-b*x);
 Memo1.Lines.Add(' y='+FloatToStrF(y,ffGeneral,8,2));
end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

подсчитайте количество открывающихся скобок ( и закрывающихся )
скобочку потеряли...

ну и в логике if тоже ошибка:

f x>Pi then y:=1-exp(-a*x)*sin(a*x+b)
else
  if (x>=-Pi) and (x<=Pi) then y:=1-exp(-a*x)*(a*x+b)
  else y:=1-(exp(-a*x)+exp(-b*x));

[Vladislav125]

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

[Serge_Bliznykov]

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

но значение не показывает

кнопочку нажимали?
ничего не происходит?
Ошибок нет?

кстати,

var x,y,a,b,pi:extended;
begin

x:=StrToFloat(Edit1.Text);
Memo1.Lines.Add(' x='+Edit1.Text);
if x>Pi then y:=1-exp(-a*x)*sin(a*x+b);

А как Вы думаете, чему будет равно значение переменной Pi ?!

[Vladislav125]

кнопку F9 нажал программа запустилась, нажимаю кнопку выполнить нечего не происходит

[Serge_Bliznykov]

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

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

значит, Вы забыли назначить кнопке обработчик события (onClick)

Откройте форму в дизайнере Delphi, выделите кнопку и сделайте по ней двойной клик мышкой.
если откроется код procedure TForm1.Button1Click(Sender: TObject);
то сохраняйте проект, компилируйте и запускайте/проверяйте.


Если что-то не получится - запакуйте исходники проекта в архив (только исходники - это файлы с расширением *.pas, *.dfm, *.dpr) и полученный архив прикрепите к сообщению на форуме (см. Загрузить вложения / Управление вложениями).

да, и событие FormCreate тоже не назначено.
чтобы его назначить сделайте двойной клик в любое свободное место формы. (или выберите форму, в Object Inspector переключитесь на закладку Events и там кликните на строчке onCreate)
если сделаете правильно, то откроется редактор кода внутри процедуры procedure TForm1.FormCreate(Sender: TObject);
begin

[Vladislav125]

Компилировал ошибок нет но все равно не выводится значение

[ura_111]

А данные (в моём случае - число "77" ввел)?

333.jpg

[ura_111]

Я думаю, что нет.
Я думаю, надо что-то вроде такого:

1.jpg


Расскажи о циклах (например, "for"): зачем нужен, что делает, как пользоваться...

[Vladislav125]

а так там все правильно? если что задание на вверху темы