Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.12.2015
Сообщений: 9
1

Поиск корней уравнения

10.01.2021, 20:17. Показов 451. Ответов 1
Метки нет (Все метки)

Добрый вечер. Необходимо найти корни уравнения. Два метода. Итераций и половинного деления. Вроде бы всё решил, но считает неверно
Начальные приближения:
-2.9;0;2.2
Уравнение:
Кликните здесь для просмотра всего текста
Поиск корней уравнения

Код программы:
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Корни;
 
 
Var X, XL, XP, FL, FX, X0, X00, X1, dx, eps: real;
it, k : integer;
U:=X/2-exp(ln(x)/5)+0.2;
Begin
  Writeln('Введите XL, XP, eps, k'); Readln(XL, XP, eps, k); Writeln;
    X0:=(XL+XP)/2; it:=0;
  repeat X1:=U; dx:=abs(X1-X0); X00:=X0; X0:=X1; it:=it+1;
  until dx<eps;
  Writeln('Метод простых итераций'); Writeln('X1= ', X1:k+3:k, '':3, 'X0= ', X00:k+3:k, '':3, 'Номер итерации =', it:3);
   
   FL:=U; it:=0;
  repeat X:=(XL+XP)/2; FX:=X/2-exp(ln(x)/5)+0.2;
  if FL*FX<0 then XP:=X else XL:=X; it:=it+1;
  until abs(XP-XL)<eps;
  Writeln('Метод метод половинного деления'); Writeln('XP= ', XP:k+3:k,'':3, 'XL= ', XL:k+3:k, '':3, 'Номер итерации = ', it:3);
 
  Readln;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2021, 20:17
Ответы с готовыми решениями:

Вычисление корней квадратного уравнения
Допустим я хочу написать функцию для вычисления корней квадратного уравнения. Она будет примерно...

Нахождение корней квадратного уравнения
реализовать в виде модуля набор подпрограмм для выполнения следующих операций с квадратными...

Вычислить наибольший из корней уравнения
Вычислить наибольший из корней уравнения. Точность нахождения корня ε = 10−6. При...

Нахождение корней уравнения методом Ньютона
Помогите пожалуйста составить структурированную программу для нахождения корня уравнения...

1
4348 / 2116 / 2115
Регистрация: 10.12.2014
Сообщений: 8,159
11.01.2021, 07:12 2
Это разве на месте:
Pascal
6
U:=X/2-exp(ln(x)/5)+0.2;
А потом после такого:
Pascal
10
  repeat X1:=U; dx:=abs(X1-X0); X00:=X0; X0:=X1; it:=it+1;
Вы думаете какие данные будут в XL, чтобы вычислять это:
Pascal
15
16
17
  repeat X:=(XL+XP)/2; FX:=X/2-exp(ln(x)/5)+0.2;
  if FL*FX<0 then XP:=X else XL:=X; it:=it+1;
  until abs(XP-XL)<eps;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2021, 07:12

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

разработать программу определения корней уравнения
разработать программу определения корней уравнения. y=sqr(x)-2

Ветвление: вычисления корней квадратного уравнения
Написать программу вычисления квадратного уравнения типа ax2+bx+c=0. Где a,b и c вводятся с...

Нахождение корней нелинейного уравнения 4 методами
Если кому не сложно, пожалуйста, откликнитесь. Через поиск просматривала темы, но не очень-то...

Программа для вычисления корней квадратного уравнения
Проверьте прошу. Знаю, что слишком детская но все же. Program Korni1; var a, b , c, x, x1, x2, d...

Нахождение корней уравнения методом простых итераций
Исходное уравнение : 3*x-14+exp(x)-exp(-x) = 0 Интервал,где находится корень : Решил...

Используя схему Горнера вычислить один из корней уравнения
x^3-18*x+33=0


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.