0 / 0 / 0
Регистрация: 08.10.2017
Сообщений: 151
1

С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0

24.03.2018, 18:30. Показов 1891. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание: С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0 и e^x+x*x=0
Процедурный тип и относящиеся к нему подпрограммы должны быть описаны в отдельном модуле.
Модуль я создала, но основная программа не хочет работать. Помогите пожалуйста

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
program prtip;
uses crt, MOD1;
 
 
var x1,x2:real;
  begin
  clrscr;
 
  writeln('[1; 3] : ', iteracia(a1,b1,f1,prf1):6:5);
  writeln('f(x)= ',f1(iteracia(a1,b1,f1,prf1)):6:8);
  writeln;
 
  writeln(' [0;1] : ', iteracia(a2,b2,f2,prf2):6:5);
  writeln('f(x)= ',f2(iteracia(a2,b2,f2,prf2)):6:8);
  readln
end.
 
 
unit MOD1;
interface
const
  e = 0.0001;
  a1 = 1; 
  b1 = 3;
  a2 = 0;  
  b2 = 1;
type
  tip = function (x : real): real; 
 
implementation
 
function f1(x : real) : real;
begin
  f1 := ln(x) - x + 1.8
end;
 
function prf1(x : real) : real;   
begin
  prf1 := 1/x - 1
end;
 
function f2(x : real) : real;
begin
  f2 := exp(x) - x*x
end;
 
function prf2(x : real) : real;   
begin
  prf2 := exp(x) - 2*x
end;
 
function iteracia(a,b:real; f,prf:tip):real;
var
  x, m:real;
  n:byte;
begin
 
  x:=(a+b)/2;   
  repeat
   x:=x-f(x)/prf(x);
  until abs(f(x))<e;
  iteracia:=x;
end;
begin
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2018, 18:30
Ответы с готовыми решениями:

Найти корни системы линейных уравнений методом простой итерации с точностью до 0,001
Всем привет. Я начал решать, но до конца не понял. Читаю теорию в методичке и интернете - не...

Уточнить корни уравнения в заданном диапазоне с погрешностью методом Ньютона
Уточнить корни уравнения в заданном диапазоне с погрешностью E &lt; 10 -3 методом Ньютона: ...

Уточнить корни уравнения в заданном диапазоне с заданной погрешностью методом Ньютона
уточнить корни уравнения в заданном диапазоне с погрешностью E&lt;{10}^{-3} методом...

Уточнить корень уравнения методом простой итерации
здравствуйте. посмотрите пожалуйста мой код и исправьте его где неправильно. вот задание и код :...

3
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.03.2018, 18:37 2
Модуль и программа это разные файлы.
Модуль сохранить с именем MOD1.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit MOD1;
interface
const
  e = 0.0001;
  a1 = 1;
  b1 = 3;
  a2 = 0;
  b2 = 1;
type
  tip = function (x : real): real;
 
implementation
 
function f1(x : real) : real;
begin
  f1 := ln(x) - x + 1.8
end;
 
function prf1(x : real) : real;
begin
  prf1 := 1/x - 1
end;
 
function f2(x : real) : real;
begin
  f2 := exp(x) - x*x
end;
 
function prf2(x : real) : real;
begin
  prf2 := exp(x) - 2*x
end;
 
function iteracia(a,b:real; f,prf:tip):real;
var
  x, m:real;
  n:byte;
begin
 
  x:=(a+b)/2;
  repeat
   x:=x-f(x)/prf(x);
  until abs(f(x))<e;
  iteracia:=x;
end;
begin
end.
Программа, с другим именем.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt, MOD1;
var x1,x2:real;
  begin
  clrscr;
 
  writeln('[1; 3] : ', iteracia(a1,b1,f1,prf1):6:5);
  writeln('f(x)= ',f1(iteracia(a1,b1,f1,prf1)):6:8);
  writeln;
 
  writeln(' [0;1] : ', iteracia(a2,b2,f2,prf2):6:5);
  writeln('f(x)= ',f2(iteracia(a2,b2,f2,prf2)):6:8);
  readln
end.
0
0 / 0 / 0
Регистрация: 08.10.2017
Сообщений: 151
24.03.2018, 20:00  [ТС] 3
Все равно пишет неизвестное имя в строчке
Pascal
1
writeln('[1; 3] : ', iteracia(a1,b1,f1,prf1):6:5);
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
24.03.2018, 20:19 4
Не знаю как вы копируете, у меня ошибок нет.
Миниатюры
С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0  
0
24.03.2018, 20:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2018, 20:19
Помогаю со студенческими работами здесь

Уточнить один из корней уравнения методом простой итерации
Отделить корни уравнения x2^x=1 и уточнить один из них методом простой итерации с точностью 0,001.

Методом простой итерации вычислить корень уравнения с точностью Е=0,0001
Помогите пожалуйста написать программу на паскале) Методом простой итерации вычислить корень...

Методом дихотомии уточнить все корни уравнений
Методом дихотомии с погрешностью 0.001 уточнить все корни уравнений ln(x)-x+2.1=0 и exp(y)-3y^2=0

Решение нелинейных уравнений методом простой итерации
Реализовать заданный алгоритм для уравнения x^3+x^2-1=0, решив уравнение с заданной пользователем...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru