Составить на языке QBASIC программу нахождения корня уравнения 2х- 3 ln /x/ — 2 = 0 с заданной точностью e = 10^(-4) двумя методами: 1) методом дихотомии (деления отрезка пополам) Координаты концов отрезка a =0,08 и b=3. 2)методом простых итераций. Обосновать выбор точки нулевого приближения x0 (выразить из уравнения х=φ(х); проверить условие: /φ′(х0)/< 1 ) Если метод не применим, вывести соответствующее сообщение - PureBasic(Бейсик)

disel

1

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
CLS
e = .0001
a = .08
b = 1.5
x = (b - a) / 2 + a
sigma = 2 * x - 3 * LOG(x) - 2
iter = 0
  
DO WHILE sigma > e OR -sigma > e
 x = (b - a) / 2 + a
 sigma = 2 * x - 3 * LOG(x) - 2
 iter = iter + 1
 IF sigma > 0 THEN
  a = x
 ELSE
  b = x
 END IF
LOOP
  
PRINT "x1 = "; x
PRINT "iteracii: "; iter
  
a = 1.5
b = 3
x = (b - a) / 2 + a
sigma = 2 * x - 3 * LOG(x) - 2
iter = 0
DO WHILE sigma > e OR -sigma > e
 x = (b - a) / 2 + a
 sigma = 2 * x - 3 * LOG(x) - 2
 iter = iter + 1
 IF sigma > 0 THEN
  b = x
 ELSE
  a = x
 END IF
LOOP
  
PRINT "x2 = "; x
PRINT "iteracii: "; iter

2

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
CLS
e = .0001
a = .08
b = 1.5
sigma = 999999
iter = 0
FOR i = a TO b STEP e
  Y = 2 * i - 3 * LOG(i) - 2
  iter = iter + 1
  IF ABS(Y) < sigma THEN
    X = i
    sigma = ABS(Y)
  END IF
NEXT
  
PRINT "X1 = "; X
PRINT "iteracii: "; iter
  
a = 1.5
b = 3
sigma = 999999
iter = 0
FOR i = a TO b STEP e
  Y = 2 * i - 3 * LOG(i) - 2
  iter = iter + 1
  IF ABS(Y) < sigma THEN
    X = i
    sigma = ABS(Y)
  END IF
NEXT
  
PRINT "X2 = "; X
PRINT "iteracii: "; iter

Похожие записи/страницы:

Leave a Comment