y=ln(x^2+e^|x|+1);интервал отрезок [1,10],шаг 0.5
Нужно разработать программу табулирования функции,вынести их значение на экран,Разработать 3 варианта вычисления с использованием 3 видов циклов, для контроля подсчитать сумму значений функций и результаты вывести отдельно в одном файле
Я сделала 1 способом,но он не работает
var
x,y:real;
x0,x1,dx:real;
i,n:integer;
begin
writeln('x0 x1 dx');
readln(x0,x1,dx);
n:=Round((x1-x0)/dx);
writeln('x':3,'y':6);
for i:=0 to n do
begin
x:=x0+dx*i;
y:=ln(x*x+exp((abs(x))+1);
writeln(x:6:2,y:6:2);
end;
readln;
end.