Метод Итерраций

@geforse · Регистрация: 06.10.2009

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

Мне нужно решить уравнение методом Итерраций, с кодом вроде нет проблем, а вот с уравнением

Помогите, как правильно написать его на языке Pascal
[BIMG]http://forum.pascal.net.ru/index.php?act=Attach&type=post&id=8246[/BIMG]

Нужно ввести Х (на отрезке [0-1]) и вывести получившийся корень

@Давид · 06.10.2009, 17:42

Вот ваше уравнение!
sqrt(exp(ln(1)*(-0.4)*sqr(x)))-arctan(x/sqrt(1-x*x))

@Mihanus_SA · 06.10.2009, 18:22

а я не знаю как написать производную от этого уравнения[BIMG]http://pic.ipicture.ru/uploads/091005/lfJ1vCjK2S.png[/BIMG]
на языке pascal,помогите пожалуйста

@Давид · 06.10.2009, 18:23

Mihanus_SA, А что вас в школе математике не учат?

@Mihanus_SA · 06.10.2009, 18:27

Сообщение от Давид

Mihanus_SA, А что вас в школе математике не учат?

мы производные не проходили(((сам теперь жалею что выбрал простую школу а не лицей какой нить(
Помоги пожалуйста

@Давид · 06.10.2009, 18:55

Mihanus_SA, Я конечно не сильно помню производные, но судя по формулам с точки зрения математике то решение выглядит вот так:
Y'=1/2*sqrt(1-x)*(-x)+sin(sqrt(1-x))*1/2*(sqrt(1-x));
Проверяйте...все таки вам задали!

Добавлено через 4 минуты
Производную можно вичислять либо численно, либо аналитически!!!!

@S2dent · 06.10.2009, 18:56

Хочу поправить ответ Давид'а Вы еще забыли умножить на производную подкоренной функции, правильно должно быть так:
Y'=-1/2*sqrt(1-x)+sin(sqrt(1-x))*(-1/2)*(sqrt(1-x));

@Давид · 06.10.2009, 19:12

Правда минус в начале является лишним!

@S2dent · 06.10.2009, 19:15

Правда минус в начале является лишним!

Почему? Вроде не является, т.к. производная (1-х) это -1..

@Давид · 06.10.2009, 19:17

S2dent, Точно...подкоренная функция равна -1 и знак идет вперед)))Спасибо!

@Mihanus_SA · 06.10.2009, 20:17

спасибо вам обоим)))))

Добавлено через 11 минут
а почему при вводе значений он выдаёт ошибку,проверьте если не трудно,заранее благодарен

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Program N20;
 uses crt;
 var
  x,x1,e:real;
  i:byte;
 begin
  textbackground(black);
 repeat
  clrscr;
  textbackground(red);
  window(5,5,40,15);
  clrscr;
  textcolor(white);
   writeln('vvod x na promezutke [0;1)=');
   readln(x);
  until(x>=0)and(x<1);
  i:=0;
  e:=0.001;
  x1:=Sqrt(1-x)-Cos(Sqrt(1-x))/(-1/2*sqrt(1-x)+sin(sqrt(1-x))*(-1/2)*(sqrt(1-x)));
  while abs(x1-x)>e do
                     begin
                      x:=x1;
                      x1:=Sqrt(1-x)-Cos(Sqrt(1-x))/(-1/2*sqrt(1-x)+sin(sqrt(1-x))*(-1/2)*(sqrt(1-x)));
                      i:=i+1;
                     end;
  textbackground(magenta);
  window(40,20,70,30);
  clrscr;
  textcolor(yellow);
   writeln('pechati x1=',x1:5:4);
   writeln('kolichestvo interachii=',i);
  readln;
 end.

выдаёт ошибку 207 Invalid floating operation
а задание было вот таким:
Cоставить структурированную программу для нахождения корня уравнения [BIMG]http://pic.ipicture.ru/uploads/091005/lfJ1vCjK2S.png[/BIMG] на отрезке [0;1) с абсолютной прогрешностью E = 10(в минус третьей степени) Методом Ньютона. В Программе предусмотреть подсчет и выдачу на печать количество итераций необходимых для вычислений.Выполнить в 2 окнах разного цвета.в окне (вверху слева) ввод
внизу справа вывод

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@geforse 1 / 1 / 0 Регистрация: 06.10.2009 Сообщений: 26

	Метод Итерраций 06.10.2009, 17:25. Показов 1200. Ответов 10 Метки нет (Все метки) Мне нужно решить уравнение методом Итерраций, с кодом вроде нет проблем, а вот с уравнением Помогите, как правильно написать его на языке Pascal [BIMG]http://forum.pascal.net.ru/index.php?act=Attach&type=post&id=8246[/BIMG] Нужно ввести Х (на отрезке [0-1]) и вывести получившийся корень 1

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	06.10.2009, 17:42
	Вот ваше уравнение! sqrt(exp(ln(1)(-0.4)sqr(x)))-arctan(x/sqrt(1-x*x)) 0

@Mihanus_SA 2 / 2 / 0 Регистрация: 05.10.2009 Сообщений: 53
	06.10.2009, 18:22
	а я не знаю как написать производную от этого уравнения[BIMG]http://pic.ipicture.ru/uploads/091005/lfJ1vCjK2S.png[/BIMG] на языке pascal,помогите пожалуйста 1

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	06.10.2009, 18:23
	Mihanus_SA, А что вас в школе математике не учат? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	06.10.2009, 18:55
	Mihanus_SA, Я конечно не сильно помню производные, но судя по формулам с точки зрения математике то решение выглядит вот так: Y'=1/2sqrt(1-x)(-x)+sin(sqrt(1-x))1/2(sqrt(1-x)); Проверяйте...все таки вам задали! Добавлено через 4 минуты Производную можно вичислять либо численно, либо аналитически!!!! 0

@S2dent 55 / 53 / 24 Регистрация: 10.05.2009 Сообщений: 216
	06.10.2009, 18:56
	Хочу поправить ответ Давид'а Вы еще забыли умножить на производную подкоренной функции, правильно должно быть так: Y'=-1/2sqrt(1-x)+sin(sqrt(1-x))(-1/2)*(sqrt(1-x)); 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	06.10.2009, 19:12
	Правда минус в начале является лишним! 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	06.10.2009, 19:17
	S2dent, Точно...подкоренная функция равна -1 и знак идет вперед)))Спасибо! 1