uses crt;
function Func(x:real;z:real):real;
begin
if x<z then
begin
Func:=sqr(x)+sqr(sqr(x+3));
end
else
begin
Func:=exp(x*ln(3))+exp(x*ln(2));
end;
end;
const a=-1;
b=-0.8;
h=0.01;
c=-1;
var i:word;
begin
clrscr;
i:=0;
while (a+i*h<=b) do
begin
writeln('y(',a+i*h:2:2,'):=',Func(a+i*h,c):2:4);
inc(i);
end;
readkey;
end.
Построить таблицу функций (Pascal)
никак не могу решить задачу:
Построить таблицу функций "y" на отрезке [a,b] с шагом "h" вводя соответствующую функцию в разделе Function
y={S^2 + (S+3)^4, если S<-1
{3^S + 2^S, если S>=-1
a=-2; b=0; h=0,1
Помогите пожалуйста
Построить таблицу функций "y" на отрезке [a,b] с шагом "h" вводя соответствующую функцию в разделе Function
y={S^2 + (S+3)^4, если S<-1
{3^S + 2^S, если S>=-1
a=-2; b=0; h=0,1
Помогите пожалуйста
спасибо