Пример 2.2. (Задание 2.2)

Форма приложения во время проектирования

Приложение во время выполнения

Листинг 2.2

// Коды, генерируемые средой программирования Delphi

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Button1: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//----------------------------------------------------------

// Ниже находятся коды, которые необходимо

// написать самостоятельно

procedure TForm1.Button1Click(Sender: TObject);

var

a:real;

begin

a:=StrToFloat(Edit1.text);

Edit2.Text:=FloatToStr(Exp(1/3*Ln(a+1)));

end;

//----------------------------------------------------------

end.

Пример 2.3. (Задание 2.4)

Приложение во время выполнения

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