Паскаль в голове

[br.dmitriy]

<!--emo&:)-->[img]style_emoticons/<#EMO_DIR#>/smile.gif[/img]<!--endemo--> Граждане свободного города, напишите в Паскале тему задания. Да сбудутся Ваши ЛУДШИЕ ожидания!!!

Найти значение функции y = f (x) при изменении x є [ xo, xk], шагом h

b√‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
x + 3,8
Y = —————————
(sin x + a³)²

а = 1,6
b = 4,3
xo = (-3)
xk = 2
h = 0,5

[Night Angel]

Не уверен, что всё правильно, ты бы ответы выложил для проверки хоть. Корень степени n это число в степени 1/n?

Код: выделить все

var a,b,x0,xk,h,y,x,t1,t2:real;

function Power(Base,Exponent: Real): Real;
var
Tmp: Real;
begin
Power:=0;
if Int(Exponent/2)=Exponent/2 then Base:=Abs(Base);
if Exponent=0 then begin
Power:=1;
Exit
end;
if Base=0 then begin
power:=0;
exit
end;
if Base>0 then begin
Tmp:=Exp((Abs(Exponent))*Ln(Base));
if Exponent>0 then begin
power:=Tmp;
exit
end;
if Exponent<0 then begin
power:=1/Tmp;
exit
end;
end;
if Base<0 then begin
Tmp :=Exp((Abs(Exponent))*Ln(Abs(Base)));
if Exponent>0 then begin
power:=-Tmp;
exit
end;
if Exponent<0 then begin
power:=-1/Tmp;
exit
end;
end;
end;

begin
a:=1.6;
b:=4.3;
x0:=-3;
xk:=2;
h:=0.5;
x:=x0;
while x<=xk do
begin
t1:=x+3.8;
t1:=Power(t1, 1/b);
t2:=sqr(sin(x)+a*a*a);
y:=t1/t2;
writeln('X=',x:2:1, ' Y=', y:1:6);
x:= x + h;
end;
end.