Цитата:
Сообщение от макс122
Задание2. Ввести с клавиатуры x, y и вычислить, используя метод промежуточного аргумента: z=5-2y*Ctg|x-y| стпень пятерки -|x-y| язык паскаль...
|
Вроде так:
Код:
var
a,b,x,y,z:real;
function func(x,y:real):real;
begin
a:=abs(x-y);
b:=cos(a)/sin(a);
z:=5-2*y*b*b*b*b*b-a;
end;
begin
write ('x=');
readln(x);
write ('x=');
readln(x);
func(x,y);
write ('z=',z);
readln
end.