Developing.ru

Всем привет! Люди, если можете подскажите плиз
Даны действительные a,b,c.
g(a,b) cos(x+y) cos(x-y)
получить g(a,c) * ---------, где g(x,y) = ----------- * ----------
g(b,c) sin(x+y) sin(x-y)

Я в этом деле новичек...
Нвид задачка на 5 минут, только чтото у меня не выходит...

чтото страшное вышло))))))))))))))))
вот так правильно будет:
Даны действительные a,b,c.
получить g(a,c) *(g(a,b)/g(b,c) ), где g(x,y) =( cos (x+y)/sin(x+y) ) * ( cos(x-y)/sin(x-y) )

И в чем проблема?
function g(x,y:real):real;
begin
g:=( cos (x+y)/sin(x+y) ) * ( cos(x-y)/sin(x-y) );
end;

А в программе, после того, как задали a,b,c:
writeln(g(a,c) *(g(a,b)/g(b,c) ));

Большое спасибо! Все получилось