Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
2 / 2 / 2
Регистрация: 18.11.2012
Сообщений: 152

Решение нелинейных уравнений

12.02.2013, 12:11. Показов 3707. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1)метод деления отрезка пополам; 2)метод хорд; 3)метод простых итераций; 4)метод Ньютона(метод касательных)
ЗАДАНИЕ:
отделить корни уравнения аналитически и графически и уточнить один из них методами:половинного деления(дихотомии),касательных,хорд,секу щих,простых итераций с прогрешностью 0,001. сравнить полученные результаты.
x2-20sinx=0
проделать четыре метода и сравнить полученные результаты между собой(можно и устно).
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.02.2013, 12:11
Ответы с готовыми решениями:

Решение нелинейных уравнений
функция такая x=\sqrt{lg(x+2)} решить методом половинного деления,методом хорд и методом касателных границы от 0 до 1 вот что у меня...

Решение нелинейных уравнений

Решение нелинейных уравнений
https://www.cyberforum.ru/attachment.php?attachmentid=369660&stc=1&d=1393335619 Функция под цифрой 3

2
 Аватар для TheRealStanly
0 / 0 / 4
Регистрация: 06.02.2013
Сообщений: 5
12.02.2013, 19:26
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Нахождение значения нелинейного уравнения методом деления отрезка пополам с подсчетом количества итераций
program ne_lin_ur;
const MaxIter=500;
var x,L,R:real;
    n:integer;
    done:boolean;
begin
  writeln('Введите левую и правую границы интервала');
  readln(L,R);
  n:=1;
  done:=true;
  repeat
        x:=(L+R)/2;
        if (sqr(x)-20*sin(x))*(sqr(L)-20*sin(L))<0 then R:=x
        else L:=x;
        inc(n);
        if n<=MaxIter then continue;
        writeln('Ряд расходится!');
        done:=false; break;
  until abs(R-L) < 1e-3;
  if done then writeln('Корень равен: ',x:8:6, '; вычислен за ', n , ' итераций');
end.
0
2 / 2 / 2
Регистрация: 18.11.2012
Сообщений: 152
13.02.2013, 04:45  [ТС]
пример решения,мне нужно в Pascal ABC.
Вложения
Тип файла: rar лабораторка №2-5 описание.rar (2.88 Мб, 72 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
13.02.2013, 04:45
Помогаю со студенческими работами здесь

Решение нелинейных уравнений
х - 2 + sin1/x = 0 a = 1.2, b = 2 С точностью Е = 0.001

Решение нелинейных и трансцендентных уравнений
Решение нелинейных и трансцендентных уравнений (x-1)^2-0.5e^x=0 Методом половинного деления

Решение системы нелинейных уравнений методом Ньютона
помогите решить систему. Начальное приближение (0;0;0)

Решение нелинейных уравнений методом простых итераций
Уравнение 0.25x3+x-1.2501=0 Отрезок, содержащий корень Из того, что сделано пока 1. начальное приближение x=1 2. оригинальное...

Решение систем нелинейных уравнений методом простой итерации
добрый вечер, прошу помощи ибо сам никак не могу понять, есть система sin(x+2*y)-x-y+10=0 3x^2-4y^2+xy+18=0 на отрезке 0&lt;=x&lt;=10,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru