Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Валерьевна
0 / 0 / 0
Регистрация: 13.05.2013
Сообщений: 42
1

Отделить корни уравнения f(x)=0 графическим методом

26.05.2013, 14:05. Просмотров 1214. Ответов 2
Метки нет (Все метки)

Отделить корни уравнения f(x)=0 графическим методом.Найти приблеженное значение наименьшего по абсолютной величине значения корня методом половинного деления с заданной точностью E. На печать вывести значение корня , значение функции(невязку), число шагов(иттераций), выполненных при нахождении корня.
f(x)=lnx+2x-1 , E=0,001
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 14:05
Ответы с готовыми решениями:

Отделить корни уравнения графическим методом
1. Составить алгоритм и программу для решения задачи: Отделить кони уравнения...

Отделить корни уравнения
Здравствуйте. помогите пожалуйста 1)Отделить корни уравнения графически и...

Отделить корни уравнения графически
Отделить корни уравнения графически и уточнить один из них методом половинного...

Отделить корни заданного уравнения на с++
Привет всем. Задание такое: С помощью ЭВМ(языка с++ или Фартрана, или Pascal)...

Отделить корни и решить уравнение методом деления отрезка
1) Отделить Корни заданного уравнения f(x)=2*(x^2)-5-(2^x) 2) Решить это же...

2
Торович
207 / 207 / 213
Регистрация: 03.07.2012
Сообщений: 446
26.05.2013, 17:00 2
Лучший ответ Сообщение было отмечено Валерьевна как решение

Решение

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Program gr0104;
uses
  graph,
  crt;
const
  eps = 0.001;  
var
  s : string;
  g, h, x0, y0, y1, x1 : integer;
  n, i : word;
  max, min, dx, x, y, mx, my, a1, b1, a, b : real;
function f(x:real):real;
begin
   f := ln(x) + 2*x - 1;
end;
begin
  clrscr;
  g := detect;
  InitGraph(g,h,' ');
  SetBkColor(0);
  ClearDevice;
  a := 0.02; b := 1.5;
  x0 := 30;
  mx := (GetMaxX-2*x0)/b;
  Line(x0,30,x0,GetMaxY-30); 
  max := f(a); min := f(a);
  x := a;
  while x<=b do begin
    if f(x) > max then max := f(x);
    if f(x) < min then min := f(x);
    x := x + eps;
  end;
    if min>=0 then   
   begin
    y0 := GetMaxY-30;
    my := (y0-30)/max;
   end
  else
    if max<=0 then   
     begin
      y0 := 30;
      my := (GetMaxY-60)/-min;
     end
    else    
     begin
      y0 := round(getmaxY*max/(max-min)-60); 
      my := (y0-30)/max;
     end;
  Line(10,y0,GetMaxX-30,y0); 
  y := 0;
  for i := 1 to 15 do
    begin
      moveto(x0-5,y0-round(y*my));
      lineto(x0+5,y0-round(y*my));
      y := y + 0.2;
      str(y:0:1,s);
      outtextxy(x0+5,y0-round(y*my),s);
    end;
  y := 0;
  for i := 1 to 20 do
    begin
      moveto(x0-5,y0+round(y*my));
      lineto(x0+5,y0+round(y*my));
      y := y + 0.2;
      str(y:0:1,s); s := '-'+s;
      outtextxy(x0+5,y0+round(y*my),s);
    end;
  x := 0;
   for i := 1 to 25 do
    begin
      moveto(x0+round(x*mx),y0-5);
      lineto(x0+round(x*mx),y0+5);
      str(x:0:1,s);
      outtextxy(x0+round(x*mx),y0+10,s);
      x := x + 0.1;
    end;    
  outtextxy(x0+round(0.67*mx),y0+35,'Nachalnoe pribligenie X=0.67');
  x := a;
  moveto(x0+round(x*mx),y0-round(f(x)*my));
  while x<=b do
   begin
    lineto(x0+round(x*mx),y0-round(f(x)*my));
    x := x + eps;
   end; 
  a := 0.6; b := 0.7; i := 0;
  repeat
    x := (a+b)/2;
    if f(a)*f(x)<=0 then b := x
    else a := x;
    inc(i);
  until abs(a-b)<=eps;
  x := (a+b)/2;
  writeln('значение корня x = ',x:0:3);
  writeln('f(',x:0:3,') = ',f(x):0:3);
  writeln('Число итераций : ',i);
  readln;
end.
0
Валерьевна
0 / 0 / 0
Регистрация: 13.05.2013
Сообщений: 42
08.06.2013, 18:52  [ТС] 3
спасибо!

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, то вы можете выразить свою благодарность, нажав кнопку "Спасибо" внизу самого поста
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.06.2013, 18:52

Отделить корни графически и уточнить один из них методом половинного деления и касательных с точностью 0,001.
Пожалуйста отзовитесь! Нужна ваша помощь!!! Не разбираюсь вообще!! Отделить...

На отрезке [0; 1] найти корни уравнения x^5 - 0,3|x-1|= 0 методом простых итераций
Помогите пожалуйста с решением, не понимаю как данное задание выполнить!..

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


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

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

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