Цитата:
Сообщение от Sergei47
Вот здесь ошибку выдает  ... |
Да, здесь он действительно выдаёт ошибку duplicat identifier(2 одинаковых имени). Так переменуйте переменную f на f1 или что-нибудь подобное.
Но далее он всё равно выдаст ошибку invalid floating operation.
Для борьбы с этим я предлагаю поставить перед вычислением f поставить if. Тогда функция будет иметь вид
Код:
Function f(xf,yf:real):real;
begin
if (xf>0)and(yf>0) then
f:=(1-exp(xf)+sqr(yf))/(sqrt(xf)+sqrt(yf));
end; {f}