Комбинированный метод хорд и касательных и график

@INZA · Регистрация: 18.11.2010

Студворк — интернет-сервис помощи студентам

Решить уравнение и сделать график X*X*X*X+X*X*X-10*X*X-34*X-26 методом хорд и касательных с точностью 0,00001.Как к программе добавить график?

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
program metod;
uses crt;
function f(var x:real):real;
begin
f:= X*X*X*X+X*X*X-10*X*X-34*X-26;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x+3*x*x-20*x-34; {первая производная}
end;
function f2(var x:real):real;{вторая производная}
begin
f2:= 12*x*x+6*x-20;
end;
var
a,b:real;
e,e1:real;
x0,tmp:real;
x11,x12:real;
z,x6,y:real;
begin
clrscr;
a:=-10;
b:=10;
e:=0.00001;
x0:=a;
if f(a)*f(b)>0 then writeln('a or b is incorrect')
else
 begin
  x11:=x0-f(x0)/f1(x0);
  x12:=a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
  while  abs(e1-x11)>e do
    begin
     a:=x11;
     b:=x12;
     x11:= a-F(a)/f1(a);
     x12:= a-((b-a)*f(a)/(f(b)-f(a)));
     e1:=(x11+x12)/2;
    end;
  writeln ('koren: ',x11:6:4);
 end;
readln;
end.

@Puporev · 15.11.2011, 13:48

Сообщение от INZA

Как к программе добавить график?

график чего?

Добавлено через 5 минут
А кстати, с чего Вы взяли что эта функция вообще имеет корни?

@INZA · 15.11.2011, 20:27 **[ТС]**

Сообщение от Puporev

график чего?

Добавлено через 5 минут
А кстати, с чего Вы взяли что эта функция вообще имеет корни?

график уравнения в интервале границ корней: в интервале границ корней: у= f(х) хÎ:[хmin,хmax];
посчитал в маткаде

@Puporev · 15.11.2011, 21:47

Pascal
1
2
3
4
a:=-10;
b:=10;
.........
if f(a)*f(b)>0 then writeln('a or b is incorrect')[/quote]

при таких данных, программа сразу заканчивается
f(-10)=8314
f(10)=9634

@INZA · 16.11.2011, 20:17 **[ТС]**

Сообщение от Puporev

Pascal
1
2
3
4
a:=-10;
b:=10;
.........
if f(a)*f(b)>0 then writeln('a or b is incorrect')

при таких данных, программа сразу заканчивается
f(-10)=8314
f(10)=9634[/QUOTE]
а как быть тогда?
а если
a:=-5
b:=0 ?

Добавлено через 21 час 16 минут
помогите пожалуйста

@Puporev · 16.11.2011, 20:34

Я бы не гадал, а нарисовал график функции, нашел интервалы корней, а потом бы уже программу писал.

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
program metod;
uses crt;
function f(var x:real):real;
begin
f:= X*X*X*X+X*X*X-10*X*X-34*X-26;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x+3*x*x-20*x-34; {первая производная}
end;
function f2(var x:real):real;{вторая производная*}
begin
f2:= 12*x*x+6*x-20;
end;
function Komp(a,b,e:real):real;
var x0,e1,tmp:real;
    x11,x12:real;
    z,x6,y:real;
begin
x0:=a;
x11:=x0-f(x0)/f1(x0);
x12:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
while  abs(e1-x11)>e do
 begin
  a:=x11;
  b:=x12;
  x11:= a-F(a)/f1(a);
  x12:= a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
 end;
Komp:=x11;
end;
var e,x1,x2:real;
begin
clrscr;
writeln('Нахождение корней функции F(x)=x^4+x^3-10x^2-26');
writeln('Графически определены интервалы коней (-2;0), (3;5)');
e:=0.00001;
x1:=Komp(-2,0,e);
x2:=Komp(3,5,e);
writeln('Корни x1=',x1:0:6,'  x2=',x2:0:6);
readln
end.

@INZA · 16.11.2011, 20:40 **[ТС]**

нашел корни через WolframAlpfa x≈-1,14216 и x≈4.01047

@Puporev · 16.11.2011, 20:42

Сообщение от INZA

нашел корни через WolframAlpfa x≈-1,14216 и x≈4.01047

Можешь запустить программу, там вроде то же.

@INZA · 16.11.2011, 20:46 **[ТС]**

Сообщение от Puporev

Можешь запустить программу, там вроде то же.

да? спасибо не успел просто глянуть

@Puporev · 16.11.2011, 21:18

С графиком.

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
98
99
100
101
102
103
104
105
106
107
uses crt,graph;
function f(var x:real):real;
begin
f:= X*X*X*X+X*X*X-10*X*X-34*X-26;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x+3*x*x-20*x-34; {первая производная}
end;
function f2(var x:real):real;{вторая производная*}
begin
f2:= 12*x*x+6*x-20;
end;
function Komp(a,b,e:real):real;
var x0,e1,tmp:real;
    x11,x12:real;
    z,x6,y:real;
begin
x0:=a;
x11:=x0-f(x0)/f1(x0);
x12:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
while  abs(e1-x11)>e do
 begin
  a:=x11;
  b:=x12;
  x11:= a-F(a)/f1(a);
  x12:= a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
 end;
Komp:=x11;
end;
var a,b,x,x1,x2,e:real;{границы интервала, значение корня, точность}
    i:integer;{счетчик циклов}
    gd,gm,x0,y0,xi,yi:integer;{переменные для работы в граф. режиме}
    min,max:real;{мин и макс для оси Y}
    mx,my:real;{массшатабы для перевода реальных координат в экранные}
    s:string[10];{строка для перевода чисел в текст для вывода на экран в граф. режиме}
begin
clrscr;
writeln('Nahozdenie kornej functii F(x)=x^4+x^3-10x^2-26');
writeln('Graphicheski opredeleny intervaly (-2;0), (3;5)');
e:=0.00001;
x1:=Komp(-2,0,e);
x2:=Komp(3,5,e);
writeln('Korni x1=',x1:0:6,'  x2=',x2:0:6);
readln;
gd:=0;
initgraph(gd,gm,'');{переходим в графический режим}
a:=-5;{интервал построения графика}
b:=5;
x0:=getmaxX div 2;{0 по Х и масштаб по Х}
mx:=(x0-30)/b;
x:=a;
max:=F(a);
min:=F(a);
while x<=b do
 begin
  if F(x)>max then max:=F(x);
  if F(x)<min then min:=F(x);
  x:=x+0.25;
 end;
y0:=round(getmaxY*max/(max-min));{0 по Y и масштаб по Y}
my:=(y0-20)/max;
{ось Х}
line(0,y0,getmaxX,y0);
outtextXY(getmaxX-10,y0-15,'X');
for i:=1 to round(b) do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  str(i,s);
  outtextXY(x0+round(i*mx),y0+10,s);
  outtextXY(x0-round(i*mx),y0+10,'-'+s);
 end;
{ось У}
line(x0,5,x0,getmaxY-5);
outtextXY(x0-20,5,'Y');
for i:=1 to round(b) do
 begin
  line(x0+3,y0-round(i*my*100),x0-3,y0-round(i*my*100));
  str(i*100,s);
  outtextXY(x0-10,y0-round(i*my*100),s);
  line(x0+3,y0+round(i*my*100),x0-3,y0+round(i*my*100));
  outtextXY(x0-20,y0+round(i*my*100),'-'+s);
 end;
{подписи значений корней}
settextstyle(0,1,1);
setcolor(11);
str(x1:0:6,s);
outtextXY(x0+round(x1*mx),y0-90,s);
str(x2:0:6,s);
outtextXY(x0+round(x2*mx),y0-90,s);
setlinestyle(0,1,3);
circle(x0+round(x1*mx),y0,2);
circle(x0+round(x2*mx),y0,2);
{построение графика}
x:=a;
while x<=b do
 begin
  xi:=x0+round(x*mx);
  yi:=y0-round(F(x)*my);
  putpixel(xi,yi,12);
  x:=x+0.001;
 end;
readln
end.

@moren · 26.11.2011, 15:23

Сообщение от Puporev

С графиком.

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
98
99
100
101
102
103
104
105
106
107
uses crt,graph;
function f(var x:real):real;
begin
f:= X*X*X*X+X*X*X-10*X*X-34*X-26;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x+3*x*x-20*x-34; {первая производная}
end;
function f2(var x:real):real;{вторая производная*}
begin
f2:= 12*x*x+6*x-20;
end;
function Komp(a,b,e:real):real;
var x0,e1,tmp:real;
    x11,x12:real;
    z,x6,y:real;
begin
x0:=a;
x11:=x0-f(x0)/f1(x0);
x12:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
while  abs(e1-x11)>e do
 begin
  a:=x11;
  b:=x12;
  x11:= a-F(a)/f1(a);
  x12:= a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
 end;
Komp:=x11;
end;
var a,b,x,x1,x2,e:real;{границы интервала, значение корня, точность}
    i:integer;{счетчик циклов}
    gd,gm,x0,y0,xi,yi:integer;{переменные для работы в граф. режиме}
    min,max:real;{мин и макс для оси Y}
    mx,my:real;{массшатабы для перевода реальных координат в экранные}
    s:string[10];{строка для перевода чисел в текст для вывода на экран в граф. режиме}
begin
clrscr;
writeln('Nahozdenie kornej functii F(x)=x^4+x^3-10x^2-26');
writeln('Graphicheski opredeleny intervaly (-2;0), (3;5)');
e:=0.00001;
x1:=Komp(-2,0,e);
x2:=Komp(3,5,e);
writeln('Korni x1=',x1:0:6,'  x2=',x2:0:6);
readln;
gd:=0;
initgraph(gd,gm,'');{переходим в графический режим}
a:=-5;{интервал построения графика}
b:=5;
x0:=getmaxX div 2;{0 по Х и масштаб по Х}
mx:=(x0-30)/b;
x:=a;
max:=F(a);
min:=F(a);
while x<=b do
 begin
  if F(x)>max then max:=F(x);
  if F(x)<min then min:=F(x);
  x:=x+0.25;
 end;
y0:=round(getmaxY*max/(max-min));{0 по Y и масштаб по Y}
my:=(y0-20)/max;
{ось Х}
line(0,y0,getmaxX,y0);
outtextXY(getmaxX-10,y0-15,'X');
for i:=1 to round(b) do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  str(i,s);
  outtextXY(x0+round(i*mx),y0+10,s);
  outtextXY(x0-round(i*mx),y0+10,'-'+s);
 end;
{ось У}
line(x0,5,x0,getmaxY-5);
outtextXY(x0-20,5,'Y');
for i:=1 to round(b) do
 begin
  line(x0+3,y0-round(i*my*100),x0-3,y0-round(i*my*100));
  str(i*100,s);
  outtextXY(x0-10,y0-round(i*my*100),s);
  line(x0+3,y0+round(i*my*100),x0-3,y0+round(i*my*100));
  outtextXY(x0-20,y0+round(i*my*100),'-'+s);
 end;
{подписи значений корней}
settextstyle(0,1,1);
setcolor(11);
str(x1:0:6,s);
outtextXY(x0+round(x1*mx),y0-90,s);
str(x2:0:6,s);
outtextXY(x0+round(x2*mx),y0-90,s);
setlinestyle(0,1,3);
circle(x0+round(x1*mx),y0,2);
circle(x0+round(x2*mx),y0,2);
{построение графика}
x:=a;
while x<=b do
 begin
  xi:=x0+round(x*mx);
  yi:=y0-round(F(x)*my);
  putpixel(xi,yi,12);
  x:=x+0.001;
 end;
readln
end.

не стал создавать отдельную тему, как к этой программе добавить ввод с клавиатуры границы интервала ,точность и ввод из файла?

@Puporev · 26.11.2011, 15:31

Сообщение от moren

ввод с клавиатуры границы интервала

Это бессмысленно, интервал определяется заранее графически или таблично.

Сообщение от moren

точность и ввод из файла?

Так с клавиатуры или из файла?

@moren · 26.11.2011, 15:37

Сообщение от Puporev

Это бессмысленно, интервал определяется заранее графически или таблично.

я знаю но сказали так и чтобы если интервал был неправильным то выдавало что неправильно

Сообщение от Puporev

Так с клавиатуры или из файла?

и так и так
из файла считывается только для построения графика (т.е. в самой программе прошли данные и записались в файл а процедура графика их считала и построила )

@Puporev · 26.11.2011, 15:53

Да ну нафиг, делай если нужно, а я такое не люблю, бессмыслица какая-то, или у тебя вообще другое задание.

@INZA · 11.12.2011, 22:10 **[ТС]**

Сообщение от Puporev

С графиком.

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
98
99
100
101
102
103
104
105
106
107
uses crt,graph;
function f(var x:real):real;
begin
f:= X*X*X*X+X*X*X-10*X*X-34*X-26;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x+3*x*x-20*x-34; {первая производная}
end;
function f2(var x:real):real;{вторая производная*}
begin
f2:= 12*x*x+6*x-20;
end;
function Komp(a,b,e:real):real;
var x0,e1,tmp:real;
    x11,x12:real;
    z,x6,y:real;
begin
x0:=a;
x11:=x0-f(x0)/f1(x0);
x12:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
while  abs(e1-x11)>e do
 begin
  a:=x11;
  b:=x12;
  x11:= a-F(a)/f1(a);
  x12:= a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
 end;
Komp:=x11;
end;
var a,b,x,x1,x2,e:real;{границы интервала, значение корня, точность}
    i:integer;{счетчик циклов}
    gd,gm,x0,y0,xi,yi:integer;{переменные для работы в граф. режиме}
    min,max:real;{мин и макс для оси Y}
    mx,my:real;{массшатабы для перевода реальных координат в экранные}
    s:string[10];{строка для перевода чисел в текст для вывода на экран в граф. режиме}
begin
clrscr;
writeln('Nahozdenie kornej functii F(x)=x^4+x^3-10x^2-26');
writeln('Graphicheski opredeleny intervaly (-2;0), (3;5)');
e:=0.00001;
x1:=Komp(-2,0,e);
x2:=Komp(3,5,e);
writeln('Korni x1=',x1:0:6,'  x2=',x2:0:6);
readln;
gd:=0;
initgraph(gd,gm,'');{переходим в графический режим}
a:=-5;{интервал построения графика}
b:=5;
x0:=getmaxX div 2;{0 по Х и масштаб по Х}
mx:=(x0-30)/b;
x:=a;
max:=F(a);
min:=F(a);
while x<=b do
 begin
  if F(x)>max then max:=F(x);
  if F(x)<min then min:=F(x);
  x:=x+0.25;
 end;
y0:=round(getmaxY*max/(max-min));{0 по Y и масштаб по Y}
my:=(y0-20)/max;
{ось Х}
line(0,y0,getmaxX,y0);
outtextXY(getmaxX-10,y0-15,'X');
for i:=1 to round(b) do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  str(i,s);
  outtextXY(x0+round(i*mx),y0+10,s);
  outtextXY(x0-round(i*mx),y0+10,'-'+s);
 end;
{ось У}
line(x0,5,x0,getmaxY-5);
outtextXY(x0-20,5,'Y');
for i:=1 to round(b) do
 begin
  line(x0+3,y0-round(i*my*100),x0-3,y0-round(i*my*100));
  str(i*100,s);
  outtextXY(x0-10,y0-round(i*my*100),s);
  line(x0+3,y0+round(i*my*100),x0-3,y0+round(i*my*100));
  outtextXY(x0-20,y0+round(i*my*100),'-'+s);
 end;
{подписи значений корней}
settextstyle(0,1,1);
setcolor(11);
str(x1:0:6,s);
outtextXY(x0+round(x1*mx),y0-90,s);
str(x2:0:6,s);
outtextXY(x0+round(x2*mx),y0-90,s);
setlinestyle(0,1,3);
circle(x0+round(x1*mx),y0,2);
circle(x0+round(x2*mx),y0,2);
{построение графика}
x:=a;
while x<=b do
 begin
  xi:=x0+round(x*mx);
  yi:=y0-round(F(x)*my);
  putpixel(xi,yi,12);
  x:=x+0.001;
 end;
readln
end.

почему то во Free запускается график а в турбо его пропускает.В чём проблема ?

@Puporev · 11.12.2011, 22:16

Проблема вероятно в системе которая не принимает полноэкранный режим Dos. У меня одинаково пашет и во Фрее и в ТП.

@INZA · 11.12.2011, 22:17 **[ТС]**

Сообщение от Puporev

Проблема вероятно в системе которая не принимает полноэкранный режим Dos. У меня одинаково пашет и во Фрее и в ТП.

и что делать ?(запускаю на ноуте)

@Puporev · 11.12.2011, 22:21

Сообщение от INZA

и что делать ?

Запускать во Фрее Паскаль.

@INZA · 11.12.2011, 22:24 **[ТС]**

Сообщение от Puporev

Запускать во Фрее Паскаль.

программа модульная всё написано в турбо, так что не вариант

@Puporev · 11.12.2011, 22:25

Сообщение от INZA

программа модульная всё написано в турбо,

И в чем проблема? Все программы, написанные в Турбо у меня запускаются во Фрее, ингда модуль Crt приходится менять на WinCrt.
Эта программа сто пудов запускается во Фрее.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@INZA 61 / 57 / 2 Регистрация: 18.11.2010 Сообщений: 499
	16.11.2011, 20:40 [ТС]
	нашел корни через WolframAlpfa x≈-1,14216 и x≈4.01047 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	26.11.2011, 15:53
	Да ну нафиг, делай если нужно, а я такое не люблю, бессмыслица какая-то, или у тебя вообще другое задание. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	11.12.2011, 22:16
	Проблема вероятно в системе которая не принимает полноэкранный режим Dos. У меня одинаково пашет и во Фрее и в ТП. 0