[KycTo]

Сообщение от Sharky

А в твоей функции я не вижу резаулта, забыл что ли?

Код:

function f(x: double): double;  
begin  
  f:=x*x*x*x;  
  if x <= 1 then f:=x;  
  if x <= 0 then f:=0;  
end;  
  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  a: double;  
begin  
  a:=StrToFloat(Edit1.Text);  
  Edit2.Text:=FloatToStr(f(a));  
end;  
  
end.