Как получить действительные числа?

Question

[DivineDraft]

Ошибка: Program1.pas(15) : Нельзя преобразовать тип function(a: real;b: real): real к real
Условия задания: Даны действительные числа x, y. Получить h (x, y) + h2 (x-y), xy), h4 (x-y, x+y) + h (1, 1), где h:=(a/1+sqr(a))+(b/1+sqr(a))-((a-b)*sqr(a-b));

function h (a,b:real):real;
begin
h:=(a/1+sqr(a))+(b/1+sqr(a))-((a-b)*sqr(a-b));
end;

var x,y,k:real;

begin
read(x,y);
write(h(x,y)+ sqr(h) *(x-y), x*y);
end.

Что не так делаю?

Answer 1

[longclaps]

function h (a,b:real):real;
begin
result:=(a/1+sqr(a))+(b/1+sqr(a))-((a-b)*sqr(a-b));
end;

Comments

[DivineDraft]

Доброго времени суток, теперь появляется след. ошибка
Program1.pas(12) : Нет перегруженной подпрограммы с такими типами параметров

если h в середине убрать - программа запускается, как можно ее преобразить в данном условие?

[longclaps]

DivineDraft, h в середине должна вызываться с параметрами:
write(h(x,y)+ sqr(h(что-то там)) *(x-y), x*y);

[DivineDraft]

longclaps, благодарю