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 – это кнопка которая по нажатию выводит ответ.