Текст программы

procedure TForm1.Button1Click(Sender: TObject);

var x,y:real;

begin

x:=strtofloat(edit1.Text);

y:=4-(sqrt(x*x*x*x+1)/abs(x)*(5-x*x));

label4.Caption:=floattostr(y);

end;

Комментарии к программе.

Для данной программы на форму помещаем следующие компоненты: Button, Edit, Label.

В данной программе используется процедура implementation.

Edit – нужен для написания текста в окошках.

Label – нужен для ввода переменных значений.

Button – это кнопка которая по нажатию выводит ответ.