Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
kilo45
0 / 0 / 3
Регистрация: 31.10.2017
Сообщений: 48
1

Методом итераций вычислить с точностью eps корень уравнения

08.03.2018, 16:45. Просмотров 133. Ответов 2
Метки нет (Все метки)

Помогите решить задание чайнику , пожалуйста
Методом итераций вычислить с точностью eps корень уравнения. Начальное приближение к корню равно 0.
Пример x-(sin(x)/2)-1=0

Код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
 y,z,eps:real;
function f(x:real): real; 
begin
 f := x-(sin(x)/2)-1;
end;
 
begin
eps:=strtofloat(Edit1.Text);
y :=strtofloat(Edit2.Text);
z := f(y);
 
while abs(z-y) > eps do
 y := z;
 z := f(y);
 Edit3.Text:=FloatToStr(х);
 end;
 end.
Выводит ошибку [Error] Unit133.pas(45): Undeclared identifier: 'x' --- почему? function f(x:real): real;
если var х,y,z,eps:real;--- все равно выдает такую же ошибку
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2018, 16:45
Ответы с готовыми решениями:

C точностью до 0.00001 найти корень уравнения методом итераций (Delphi)
уравнение cos(x^2) - 10*x=0 a=0,b=2 - интервал. Пожалуйста помогите, зачет...

Методом хорд вычислить с точностью E корень уравнения
Методом хорд вычислить с точностью E корень уравнения X^2-sin5x=0 Корень...

Программа не вычисляет корень уравнения методом простых итераций
Нужно вычислить корень уравнения ln(7,622x) – 8,59х +10,5 = 0. Что-то не...

Найти корень уравнения методом хорд с заданной точностью
срочно!Найти корень уравнения методом хорд с заданной точностью....

Найти корень нелинейного уравнения F(x) методом простых итераций. Начальное значение (x[SUB]0[/SUB]) и погрешность (\epsilon ) вводятся с клавиатуры
Найти корень нелинейного уравнения F(x) методом простых итераций. Начальное...

2
D1973
Модератор
3550 / 2560 / 1249
Регистрация: 21.01.2014
Сообщений: 10,764
Записей в блоге: 3
Завершенные тесты: 1
08.03.2018, 17:11 2
Цитата Сообщение от kilo45 Посмотреть сообщение
Edit3.Text:=FloatToStr(х);
А как Вы думаете, в данной строке кода переменная х вообще видится?

Добавлено через 1 минуту

Не по теме:

Боюсь, тонкий намек не поможет... Тупо вместо х написать z...

1
kilo45
0 / 0 / 3
Регистрация: 31.10.2017
Сообщений: 48
08.03.2018, 17:22  [ТС] 3
получатся х спрятан в функции....
ааа понял надо z

Delphi
1
Edit3.Text:=FloatToStr(z);
Извиняюсь тупанул

намек понял))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.03.2018, 17:22

Вычислить с заданной точностью корень уравнения
1. Вычислить с точностью корень уравнения X*4+0,8x*3- 0,4x*2-1,4x-1,2=0...

Вычислить бесконечную сумму с заданной точностью eps (eps>0).
Вычислить бесконечную сумму с заданной точностью eps (eps>0). Считать, что...

Найти корень нелинейного уравнения F(x)=0 методом половинного деления. Крайние значения предела ([a,b]) , содержащий корень и погрешность (\epsilon )
Найти корень нелинейного уравнения F(x)=0 методом половинного деления. Крайние...


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

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

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