Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Выражение

Листинг программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: 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,a:integer;

e,h,f,g,b,c,d,i:real;

begin

x:=StrToInt(Edit1.Text);

y:=StrToInt(Edit2.Text);

a:=x-y;

if a>0 then

begin

b:=sqrt(a);

c:=ln(a);

d:=10*c;

e:=d/b;

f:=(x*Pi)/180;

g:=sin(f);

h:=exp(g);

i:=e*h;

Label1.caption:=floatToStr(c);

end

else

begin ShowMessage ('нет решений');

end;

end;

end.

Копия формы:

Дата добавления: 2015-10-21