Листинг 2.3

… …

implementation

{$R *.dfm}

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

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

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

procedure TForm1.Button1Click(Sender: TObject);

var

x,a,c,f:Real;

begin

a:=StrToFloat(Edit1.Text);

c:=StrToFloat(Edit2.Text);

x:=StrToFloat(Edit1.Text);

f:=Sqrt(Abs(-a*x+c))/Ln(x+Sqr(c));

Label5.Caption:=FloatToStr(f);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Label5.Caption:='';

end;

Пример 2.4. (Задание 2.11) Найти площадь (s) кольца, внутренний радиус которого (radius) равен 20, а внешний – заданному числу .

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

Листинг 2.4

… …

const

radius=20;

var

s,r:real;

begin

r:=...

s:=pi*(Sqr(r)-Sqr(radius));

// s:=pi*(r-radius)*(r+radius);

...

End;

Условный оператор

С помощью условного оператора выбирается и выполняется один из операторов, входящих в его состав. Условный оператор имеет два варианта записи.

Полная форма (ветвление):

If <логическое выражение> Then

Btgib

<оператор1>;

End

Else <оператор2>;

В этом случае в зависимости от значения логического выражения выбирается для выполнения оператор1 или оператор2.

Блок-схема алгоритма if … then … else

Перед словом else знак «;» не ставится.

Неполная форма (обход):

Блок-схема алгоритма if … then

If <логическое выражение> Then

Begin

<оператор>;

End;

В этом случае в зависимости от значения логического выражения выполняется записанный после Then оператор или не производится никаких действий.

Если после Then или Else необходимо выполнить действия, описанные несколькими операторами, то эти операторы должны быть заключены в операторные скобки Begin - End. Такая конструкция называется составным оператором.

Пример 3.1. Даны три стороны треугольника: a, b, c. Вычислить его площадь.

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

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