Пример 2.2 Вычисление функции

Вычислить значение функции , где

Описание переменных:

Имя	Тип	Семантика
x a y	вещественный вещественный вещественный	аргумент параметр значение функции

Вид формы с компонентами:

Процедура обработки щелчка на кнопке “Расчет”

procedure TForm1.Button1Click(Sender: TObject);

var x,a,y:real;

Begin

x:=StrToFloat(Edit1.text);

if x<=4 then a:=5+2*x

else if x<=5 then a:=3

else a:=sqrt(x+1);

y:=2*x;

Label3.Caption:='a='+FloatToStr(a);

Label4.Caption:='y='+FloatToStr(y)

End;

Процедура обработки щелчка на кнопке “Выход” (ниже в примерах текст данной процедуры приводиться не будет, т.к. полностью идентичен данному)

procedure TForm1.Button2Click(Sender: TObject);

Begin

Close

End;

Сценарий выполнения программы:

- запустить программу (Run);

- в поле Edit1 ввести значение x;

- нажать кнопку “Расчет”;

- просмотреть и проанализировать результаты;

Для завершения работы нажать кнопку “Выход”.

Тесты:

№	x	Эталон	Результат
a	y	a	y
	4,5