Вычислить значение выражения в заданном интервале

@Ладок · Регистрация: 10.05.2014

Author24 — интернет-сервис помощи студентам

Ребят, помогите пожалуйста написать программу в паскале. вот задание: x²-ln(1+x)-3, в интервале [2;3]
очень прошу вас

@Cyborg Drone · 11.05.2014, 03:05

Ладок, задание неполное. Вычислить значение однократно, с проверкой диапазона ввода, или протабулировать функцию на интервале? Если последнее, то нужно ещё количество значений функции или шаг табуляции.

@Ладок · 11.05.2014, 12:41 **[ТС]**

Решение нелинейного уравнения методом простой итерации.
Условия задание: x2-ln(1+x)-3 , интервал [2;3] , приближенное значение корня 2,0267
надо ур-ие разбить на два в виде: 1) у=х и 2)у= φ(х)
интервал нужен для построение графика, но его можно не рисовать

@Cyborg Drone · 11.05.2014, 13:48

Ладок, телепаты уволились. Скажите для начала, x2 это какая-то величина или просто x*x? Наверное, всё же второе. Не желаете осваивать редактор сообщений и редактор формул - написали бы x^2 или x*x. Никогда не полагайте, что то, что для Вас само собой разумеется, понятно и другим. Выражайте свои мысли чётко и ясно. Ну да ладно. Я проверил, действительно, y=x²-ln(1+x)-3 имеет на указанном интервале один указанный корень.

Но Вы не выдали тайны, с какой точностью следует этот корень вычислить...

И ещё. Я не постигаю, для какой цели для нахождения корня уравнения методом простых итераций разбивать уравнение на две части. Тем более, то, что Вы написали, слегка тривиально: 1) у=х и 2)у=φ(х)=x²-ln(1+x)-3. И зачем это нужно?

@Ладок · 11.05.2014, 15:45 **[ТС]**

Cyborg Drone, Прошу прощения, только осваиваю это. Спасибо за понимание)
да, уравнение действительно выглядит так: у=x*x-ln(1+x)-3
но мне нужно это уравнение написать в турбо паскале, не могли бы вы помощь мне в этом?
просто оформить как программу,а приближенный корень видимо для рисунка

@Puporev · 11.05.2014, 15:53

Pascal

uses crt;
function F(x:real):real;
begin
   F:=x*x-ln(1+x)-3;
end;
var e,f1,f2,x,x1,x2,a,b:real;
    n,i:integer;
begin
clrscr;
a:=2;
b:=3;
e:=0.0001;
if F(a)=0 then
  begin
     writeln('x=a=',a:0:4);
     readln;
     exit;
  end
else if F(b)=0 then
   begin
     writeln('x=b=',b:0:4);
     readln;
     exit;
   end
else if F(A)*F(B)>0 then WriteLn('Границы интервала заданы некорректно!')
else begin
n:=round((b-a)/e);
x1:=a; f1:=F(x1);
for i:=1 to n do
  begin
   x2:=x1+(b-a)/n;
   f2:=F(x2);
   if f1*f2 <= 0 then writeln('x = ', (x2 + x1)/2:0:4);
   x1:=x2; f1:=f2;
  end;
end;
readln
end.

@Ладок · 11.05.2014, 22:33 **[ТС]**

Puporev, извините за глупые вопросы, но что значит про границы?мне туда что написать нужно?
т.е. программа может не пойти?

@Puporev · 12.05.2014, 07:31

Если границы заданы, то это можно и не писать, просто это проверка диапазона на корректность.
Можете написать и так, без проверки

Pascal

uses crt;
const a=2.0;
      b=3.0;
      e=0.0001;
function F(x:real):real;
begin
   F:=x*x-ln(1+x)-3;
end;
var f1,f2,x,x1,x2:real;
    n,i:integer;
begin
clrscr;
if F(a)=0 then
  begin
     writeln('x=a=',a:0:4);
     readln;
     exit;
  end
else if F(b)=0 then
   begin
     writeln('x=b=',b:0:4);
     readln;
     exit;
   end
else
 begin
  n:=round((b-a)/e);
  x1:=a; f1:=F(x1);
  for i:=1 to n do
   begin
    x2:=x1+(b-a)/n;
    f2:=F(x2);
    if f1*f2 <= 0 then writeln('x = ', (x2 + x1)/2:0:4);
    x1:=x2; f1:=f2;
   end;
 end;
readln
end.

@Ладок · 15.05.2014, 13:37 **[ТС]**

Puporev, Снова здравствуйте, сейчас будет глупо это спрашивать, но вот эта программа яв-ся решением вот этого задания:
вычислить значение функции у=f(x) и аргумента х на отрезке [a,b]
функция:x*x-ln(1+x)-3;
отрезок [2,3]
Извините ещё раз за глупые вопросы)

@Puporev · 15.05.2014, 13:59

Да, вроде эту решал...

@Ладок 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 5
		1
	Вычислить значение выражения в заданном интервале 11.05.2014, 00:01. Показов 1184. Ответов 9 Метки нет (Все метки) Ребят, помогите пожалуйста написать программу в паскале. вот задание: x²-ln(1+x)-3, в интервале [2;3] очень прошу вас 0

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,006
	11.05.2014, 03:05	2
	Ладок, задание неполное. Вычислить значение однократно, с проверкой диапазона ввода, или протабулировать функцию на интервале? Если последнее, то нужно ещё количество значений функции или шаг табуляции. 0

@Ладок 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 5
	11.05.2014, 12:41 [ТС]	3
	Решение нелинейного уравнения методом простой итерации. Условия задание: x2-ln(1+x)-3 , интервал [2;3] , приближенное значение корня 2,0267 надо ур-ие разбить на два в виде: 1) у=х и 2)у= φ(х) интервал нужен для построение графика, но его можно не рисовать 0

@Cyborg Drone Модератор 9870 / 5238 / 3306 Регистрация: 17.08.2012 Сообщений: 16,006
	11.05.2014, 13:48	4
	Ладок, телепаты уволились. Скажите для начала, x2 это какая-то величина или просто xx? Наверное, всё же второе. Не желаете осваивать редактор сообщений и редактор формул - написали бы x^2 или xx. Никогда не полагайте, что то, что для Вас само собой разумеется, понятно и другим. Выражайте свои мысли чётко и ясно. Ну да ладно. Я проверил, действительно, y=x²-ln(1+x)-3 имеет на указанном интервале один указанный корень. Но Вы не выдали тайны, с какой точностью следует этот корень вычислить... И ещё. Я не постигаю, для какой цели для нахождения корня уравнения методом простых итераций разбивать уравнение на две части. Тем более, то, что Вы написали, слегка тривиально: 1) у=х и 2)у=φ(х)=x²-ln(1+x)-3. И зачем это нужно? 0

@Ладок 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 5
	11.05.2014, 15:45 [ТС]	5
	Cyborg Drone, Прошу прощения, только осваиваю это. Спасибо за понимание) да, уравнение действительно выглядит так: у=x*x-ln(1+x)-3 но мне нужно это уравнение написать в турбо паскале, не могли бы вы помощь мне в этом? просто оформить как программу,а приближенный корень видимо для рисунка 0

@Ладок 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 5
	11.05.2014, 22:33 [ТС]	7
	Puporev, извините за глупые вопросы, но что значит про границы?мне туда что написать нужно? т.е. программа может не пойти? 0

@Ладок 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 5
	15.05.2014, 13:37 [ТС]	9
	Puporev, Снова здравствуйте, сейчас будет глупо это спрашивать, но вот эта программа яв-ся решением вот этого задания: вычислить значение функции у=f(x) и аргумента х на отрезке [a,b] функция:x*x-ln(1+x)-3; отрезок [2,3] Извините ещё раз за глупые вопросы) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.05.2014, 13:59	10
	Да, вроде эту решал... 0