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

[Olecinia]

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

простым - перебором..

А не могли бы вы мне еще немного помочь, меня попросили закомментировать каждый цикл и действие, я немного не понимаю...

[Serge_Bliznykov]

А не могли бы вы мне еще немного помочь, меня попросили закомментировать каждый цикл и действие, я немного не понимаю...

ну, не знаю.. наверное, мог бы..
а что Вам непонятно - спрашивайте.

[Olecinia]

Не понимаю, для чего нужны вот эти переменные
s,s1:string

[Serge_Bliznykov]

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

Не понимаю, для чего нужны вот эти переменные
s,s1:string

для того, чтобы вывести число на экран в графическом режиме.
функция outtextXY может выводить только текст.
поэтому, мы число преобразовываем в строку с помощью функции str() и полученную строку выводим в нужное место.

например:

    {подпись оси У}
    str(i*10,s);
    outtextXY(x0-25,y0-round(i*my*10),s);{соответственно засечкам}
    outtextXY(x0-30,y0+round(i*my*10),'-'+s);
    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);

или вывод интервала корней:

outtextXY(50,y0,'intervaly kornej');  {Здесь показывает неправильный ответ}
for i:=1 to n do
 begin
  str(a[i,1],s);
  str(a[i,2],s1);
  outtextXY(50,y0+20*i,'['+s+';'+s1+']');
 end;

[Olecinia]

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

для того, чтобы вывести число на экран в графическом режиме.
функция outtextXY может выводить только текст.
поэтому, мы число преобразовываем в строку с помощью функции str() и полученную строку выводим в нужное место.

Понятно, во все разобралась. Еще раз спасибо за помощь))

Ой нет "девушка блин", а как можно сделать график системы уравнения?

[Serge_Bliznykov]

а как можно сделать график системы уравнения?

вывести график каждого из уравнений, входящих в систему.

Если не ошибаюсь. то тТочка (или точки) пересечения графиков и будут являтся решением данной системы.

[Olecinia]

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

вывести график каждого из уравнений, входящих в систему.

Если не ошибаюсь. то тТочка (или точки) пересечения графиков и будут являтся решением данной системы.

Так я это понимаю, а вот как запрограммировать пересечение двух графиков я не знаю

[Serge_Bliznykov]

Так я это понимаю, а вот как запрограммировать пересечение двух графиков я не знаю

вы, для начала, выведите два графика на одном чертеже. А потом уже поговорим про точку(точки) пересечения этих графиков!

[Olecinia]

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

вы, для начала, выведите два графика на одном чертеже. А потом уже поговорим про точку(точки) пересечения этих графиков!

Я совсем запуталась с построением графика...
uses graph;
function F(x:real):real;
function F2(x:real):real;
begin
F:=2*x*x-5-exp(ln(2)*x); {F(x)- исходная функция}
F2:=2*x+5-exp(ln(2));
end;
var xn,xk,max,min,mx,my,dx:real;
x:real;
x0,y0,i,c,n:integer;
s,s1:string;
a:array[1..20,1..2] of integer;
begin

x0:=0;
initgraph(x0,y0,''); {Графический модуль}
xn:=-7;xk:=7;{Интервал по оси Х}
x0:=getmaxX div 2;
mx:=(x0-30)/xk;{Масштаб по оси Х}
y0:=getmaxY div 2;
max:=F(xn);
min:=F(xn);
x:=xn;
while x<=xk do
begin
if F(x)>max then max:=F(x);
if F(x)<min then min:=F(x);
x:=x+0.05;
end;
while x<=xk do
begin
if F2(x)>max then max:=F2(x);
if F2(x)<min then min:=F2(x);
x:=x+0.05;
end;
if max>abs(min) then my:=(y0-30)/max
else my:=(y0-30)/abs(min);
setbkcolor(15); {Цвет фона}
setcolor(8); {Цвет линий функции}
line(0,y0,getmaxX,y0); {Ось x}
line(x0,0,X0,getmaxY); {Ось y}

for i:=1 to 10 do {максимальное количество делений в одну сторону}
begin
line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));
line(x0-3,y0+round(i*my*10),x0+3,y0+round(i *my*10));
str(i*10,s); {Подпись оси У}
outtextXY(x0-25,y0-round(i*my*10),s);
outtextXY(x0-30,y0+round(i*my*10),'-'+s);
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;
outtextXY(x0+5,y0+10,'0'); {Находим центр графика}
outtextXY(getmaxX-10,y0-10,'X'); {Подписи концов оси x}
outtextXY(x0+5,10, 'Y'); {Подписи концов оси y}
x:=xn;
dx:=0.01;
n:=0;
moveto(x0+round(x*mx),y0-round(F(x)*my));
begin
setcolor(12);
setlinestyle(0,0,1);
lineto(x0+round(x*mx),y0-round(F(x)*my));
if F(x)*F(x+dx)<0 then
begin
setcolor(9);
setlinestyle(0,0,3);
circle(x0+round(x*mx),y0-round(F(x)*my),2);
n:=n+1;
if x<0 then
begin
a[n,2]:=trunc(x);
a[n,1]:=a[n,2]-1;
end
else
begin
a[n,1]:=trunc(x);
a[n,2]:=a[n,1]+1;
end;
end;
x:=x+dx;
end;
x:=xn;
dx:=0.01;
n:=0;
moveto(x0+round(x*mx),y0-round(F2(x)*my));
while x<=xk do
begin
setcolor(12);
setlinestyle(0,0,1);
lineto(x0+round(x*mx),y0-round(F2(x)*my));
if F(x)*F(x+dx)<0 then
begin
setcolor(9);
setlinestyle(0,0,3);
circle(x0+round(x*mx),y0-round(F2(x)*my),2);
n:=n+1;
if x<0 then
begin
a[n,2]:=trunc(x);
a[n,1]:=a[n,2]-1;
end
else
begin
a[n,1]:=trunc(x);
a[n,2]:=a[n,1]+1;
end;
end;
x:=x+dx;
end;
setcolor(12);
outtextXY(x0+30,20,'График функции y=2x^2-5-2^x');
outtextXY(x0+50,40,'На интервале [-7;7]');
y0:=getmaxY-200;
outtextXY(50,y0,'Интервал корней:');
for i:=1 to n do
begin
str(a[i,1],s);
str(a[i,2],s1);
outtextXY(50,y0+20*i,'['+s+';'+s1+']');
end;
for i:=1 to n do begin
x:=a[i,1];
while (abs(F(x))>0.0001) and (x<a[i,2]) do x:=x+0.00001;
str(x:2:6,s);
outtextXY(150,y0+20*i,'x = '+s);
for i:=1 to n do begin
x:=a[i,1];

while (abs(F2(x))>0.0001) and (x<a[i,2]) do x:=x+0.00001;
str(x:2:6,s);
outtextXY(150,y0+20*i,'x = '+s);
end;

readln

end.