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

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
Просмотров: 11577
Последний ответ 22 Февраля 2010, 18:52:06
от InfStudent
Java Script. Правьте, плиз, две программы, не могу найти ошибку..

Автор Round

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

Автор bifshtex

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

Автор artecovez

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

Автор ivanets

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