Автор Тема: Подсчет циклов в Паскале, найти корни уравнения методом половинного деления  (Прочитано 4352 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Anastasia_Right

  • Новичок
  • *
  • Сообщений: 18
    • Просмотр профиля
Здравсвуйте всем,
Я паскаль изучала довольно давно, но вот теперь срочно нужно решить задачку.
Точнее - нужно найти корни уравнения методом половинного деления.
Саму программу я написала:

Program one;
uses crt;
function F(x:real):real;
begin
F:=x*x-sqrt(x)-1;
end;
var a,b,c,x,e:real;
begin
clrscr;
writeln('Find the root if the equationя F:=x*x-sqrt(x)-1=0 on the interval [0;1] up 0.00001');
a:=0;
b:=1;
e:=0.00001;
repeat
c:=(a+b)/2;
if F(a)*F(c)<=0 then b:=c
else a:=c;
until b-a<e;
x:=(a+b)/2;
writeln('x=',x:0:6);
readln
end.

Вот, все вроде бы считает, но мне бы еще нужно подсчитать количество раз, которе программе приходится повторять это деление до заданной точности.
Подскажите пожалуйста, как это сделать?
Спасибо заранее.
« Последнее редактирование: 22 Октября 2011, 12:35:47 от Asix »
Улыбайтесь - пусть окружающие ломают голову над тем, что у вас на уме.

Оффлайн holloloh

  • Пользователь
  • **
  • Сообщений: 40
    • Просмотр профиля
Re: Подсчет циклов в Паскале
« Ответ #1 : 10 Октября 2011, 18:42:03 »
1) лучше 2*e, так ты наверняка найдешь с заданной точностью
2)просто заводишь переменную n, которая увеличивается с каждым проходом цикла

 

Найти ошибки в программе, составить блок-схему алгоритма, Паскаль

Автор Murmansk

Ответов: 27
Просмотров: 9892
Последний ответ 22 Февраля 2010, 18:52:06
от InfStudent
Java Script. Правьте, плиз, две программы, не могу найти ошибку..

Автор Round

Ответов: 5
Просмотров: 3513
Последний ответ 02 Апреля 2010, 18:31:07
от Round
Дан текстовый файл со строками. Найти повторяющиеся слова и заменить

Автор bifshtex

Ответов: 7
Просмотров: 5290
Последний ответ 08 Января 2010, 21:10:33
от InfStudent
Помогите найти ошибку в программе на С++ (диффур второго порядка)

Автор artecovez

Ответов: 1
Просмотров: 3273
Последний ответ 27 Апреля 2010, 19:38:10
от Данила
Курсовик Borland C++, матрица, найти количество нулевых элементов

Автор ivanets

Ответов: 0
Просмотров: 3820
Последний ответ 20 Декабря 2010, 00:16:01
от ivanets