помогите вычислить значение функции

[Jeksik]

помогите пожалуйста вычислить значение функции

[Goblin]

Я наверное здесь один такой, который отвечает на подобные вопросы.

По подробней можно, или ты клаву бережешь.

[Jeksik]

на языке паскаль)

[maladoy]

program odin;
uses crt;
var a,b,x,y:real;
function power (j : real; k : real) : real;
begin
power:=exp(ln(j)*k);
end;
begin
a:=-1.4;
b:=1.5;
x:=0.5;
while a<=-0.1 do

begin
a:=a+0.1;
while x<=3.1 do
begin
if x<b then y:=sin(abs(a*x+power(b,a)))
else y:=sin (abs(a*x)-power(b,a));

x:=x+0.2;
end;
end;
writeln(a:4:2,' ',x:4:2,' ',y:4:2);// вывод только последних значений ибо
// заипало ждать!!!!!!!
readln;
end.

[Jeksik]

спасибо)))))большое))

[maladoy]

с тебя отзыв!!!!!!!!!!