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

[Olecinia]

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

Вы не ответили на мой вопрос, что Вас в этом коде не устроило?!
Почему Вы решили, что
?!

Мне выдает интервал корней [0,0] [0,1] [0,0]

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

Вы не ответили на мой вопрос, что Вас в этом коде не устроило?!
Почему Вы решили, что
?!

Вот так получается в ответе...

[Serge_Bliznykov]

Вот так получается в ответе...

ух ты, прелесть какая!
Это из области невероятного!

Код программы скопирован с форума верно?
Ошибок никаких не выдаётся?
А расскажите, пожалуйста, запускаете программу в какой среде?!
(какой у Вас компилятор Паскаля и какая ОС?)

[Olecinia]

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

ух ты, прелесть какая!
Это из области невероятного!

Код программы скопирован с форума верно?
Ошибок никаких не выдаётся?
А расскажите, пожалуйста, запускаете программу в какой среде?!
(какой у Вас компилятор Паскаля и какая ОС?)

У меня turbo pascal 7.0
ОС Windows 8.1

[Serge_Bliznykov]

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

У меня turbo pascal 7.0
ОС Windows 8.1

а что, разве Turbo Pascal 7.0 просто так запускается под Windows 8 ??! :]]
Или же Вы используете эмуляторы-виртуалки, типа DosBox ?!
Кстати, под DOSBox пробовали запускать программу?


ну и ещё. я внимательно посмотрел на скриншоты.
Вы ТОЧНО запускаете ДРУГУЮ программу!! Какую - мне сие не ведомо!
(посмотрите, например, в коде, который представлен здесь, в теме, есть
outtextXY(50,y0,'intervaly kornej');
Где у Вас на скриншоте этот текст: "intervaly kornej" ?!!!

[Olecinia]

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

а что, разве Turbo Pascal 7.0 просто так запускается под Windows 8 ??! :]]
Или же Вы используете эмуляторы-виртуалки, типа DosBox ?!
Кстати, под DOSBox пробовали запускать программу?

Интересно, может дело правда в программе, попробую через DosBox запущу, а скажите в последнем цикле где вы выводили x вы каким принципом пользовались?

[Serge_Bliznykov]

где вы выводили x вы каким принципом пользовались?

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

в переменной n - число интервалов.
делаем цикл по всем интервалам.

 for i:=1 to n do begin
   x:=a[i,1];  {присваиваем x значение левой границы интервала}

   {пока значение функции по модулю далеко от нуля (функция отличается более чем на нужную точность) и 
          x не достиг правой границы интервала, увеличиваем x на малюсенький шажочек}
   while (abs(F(x))>0.0001) and (x<a[i,2]) do x:=x+0.00001; 

   str(x:2:6,s); {полученное значение X преобразуем в строку s }

   outtextXY(150,y0+20*i,'x = '+s); {выводим текст "x = " и найденное перебором значение x}
 end;

Интересно, может дело правда в программе, попробую через DosBox запущу

ещё раз повторяю вопрос - Вы какую программу собственно запускаете? Почему у Вас скриншот отличается от того, что я привёл? Вы изменяли код программы?!

[Olecinia]

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

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

ещё раз повторяю вопрос - Вы какую программу собственно запускаете? Почему у Вас скриншот отличается от того, что я привёл? Вы изменяли код программы?!

Ничего не меняю, запускаю через turbo pascal 7

[Аватар]

Ничего не меняю, запускаю через turbo pascal 7

Но другую. Иначе откуда "interval korni" вместо "intervaly kornej"?

[Olecinia]

Сообщение от Аватар

Но другую. Иначе откуда "interval korni" вместо "intervaly kornej"?

Запустила другую версию с помощью DOSBOX, все получилось, спасибо за помощь!

[Serge_Bliznykov]

все получилось, спасибо за помощь!

Ура!
С чем я Вас (и всех принявших участие в обсуждении) и поздравляю!