Вычислить значение функции f(a,b ), нужно решить с помощью подпрограмм.
Код
uses crt;
function ONE(x,y:real):real;
var
k:real;
begin
k:=sqr(x)+x*y+sqr(y);
ONE:=sqrt(k);
end;
function TWO(x:real):real;
begin
TWO:=x+x*x+x*x*x+x*x*x*x;
end;
function THREE(x,y:real):real;
begin
THREE:=x+y;
end;
var
a,b,x,y,f,f1,f2,f3,f4:real;
begin
clrscr;
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
a:=x;
b:=y;
f1:=THREE(x,y)+ONE(x,y);
f2:=TWO(x);
x:=-a/b;
f3:=TWO(x);
x:=a/b;
y:=-b/a;
f4:=THREE(x,y)+ONE(x,y);
f:=f1/f3+f4/f2;
write(f:0:3);
readln;
end.
function ONE(x,y:real):real;
var
k:real;
begin
k:=sqr(x)+x*y+sqr(y);
ONE:=sqrt(k);
end;
function TWO(x:real):real;
begin
TWO:=x+x*x+x*x*x+x*x*x*x;
end;
function THREE(x,y:real):real;
begin
THREE:=x+y;
end;
var
a,b,x,y,f,f1,f2,f3,f4:real;
begin
clrscr;
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
a:=x;
b:=y;
f1:=THREE(x,y)+ONE(x,y);
f2:=TWO(x);
x:=-a/b;
f3:=TWO(x);
x:=a/b;
y:=-b/a;
f4:=THREE(x,y)+ONE(x,y);
f:=f1/f3+f4/f2;
write(f:0:3);
readln;
end.
Как сделать программу проще, чтоб не надо было вводить все эти f1, f2...