Решение уравнения половинным делением - ПРИМЕРЫ ПРОГРАММ - ПРОГРАММИРОВАНИЕ - БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

PRIMAT.ORG
© 2008-2012

ПРИКЛАДНАЯ
МАТЕМАТИКА

Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.


	Вход

НОВОЕ В БИБЛИОТЕКЕ

● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Составление дифференциал...
● Составление дифференциал...
● Производные высших поряд...
● Производные высших поряд...
● Дифференцирование тригон...
● Дифференцирование алгебр...
● Дифференцирование алгебр...

НОВЫЕ ФАЙЛЫ

● Sm графики функций (beta...
● Graf_builder
● Учимся считать
● Мобильный справочник по ...
● Уникальный калькулятор
● Программа для построения...
● «Новости ПриМата» для An...
● Schedule Builder Light 2...
● График
● Sm Калькулятор

    ЛУЧШИЕ ПУБЛИКАЦИИ

● Бухаете? Тогда я иду к в...
● Считаем сумму ряда
● Новый вирус - три десятк...
● Получить кнопку ТИЦ и Pa...
● Программирование под And...
● Матричный калькулятор (3...
● Пара интересных задач
● Небольшая забава для про...
● Немного юмора для матема...
● Продержись восемнадцать ...

    ЛУЧШИЕ МАТЕРИАЛЫ

● Высшая математика. Лекци...
● Высшая математика. Лекци...
● Умножение матриц (Паскал...
● Высшая Математика. Лекци...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Темы курсовых работ (укр...
● Пример использования мно...
● Теория графов плюс бонус...
● Сортировка Хоара (быстра...

    10 ЛУЧШИХ ФАЙЛОВ

● Эконометрика
● Таблица производных
● Шпаргалка по высшей мате...
● Математические формулы
● Гмурман. Теория вероятно...
● Таблица интегралов
● Таблицы неопределенных и...
● Программирование на язык...
● Программирование на Си (...
● Программирование на язык...

Конструктор информеров


	Карта тегов сайта Навигатор-карта сайта Информация о сайте Статистика сайта FAQ (вопрос/ответ)


	На сайте всего: 3 Посетителей: 3 Пользователей: 0


	БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » ПРИМЕРЫ ПРОГРАММ

[ ДОБАВИТЬ ]

Решение уравнения половинным делением

Решение уравнения половинным делением . Предварительно выводится таблица для локализации корней (на некоторм участке может быть не один корень)

program reurpol;
 uses crt;
var
 a,b,n,x,d,c,eps,f:real;

function y(x:real):real;
 begin
 y:=sin(ln(abs(x*x+2)))
 end;
Begin
 clrscr; writeln('Таблица значений функции');
 writeln('Введите начальный и конечный концы интервала');
 write('a='); readln (a);
 write('b='); readln(b);
 writeln('Число точек на интервале:');
 write('n='); readln(n);
 d:=(b-a)/n; x:=a;
 while x<=b do
 begin
 f:=y(x);
 writeln('x=',x:5:3,' f=',f:5:3);
 x:=x+d
 end;
 readln;
 writeln('Нахождение корня: концы интервала, точность вычисления');
 writeln('(a, b и eps)');
 write('a ='); readln (a); write('b ='); readln(b);
 write('eps =');readln(eps);
 {Концы отрезка имеют разные знаки}
 if y(a)*y(b) < 0 then
 begin
 {До тех пор, пока не достигнута заданная точность}
 repeat
 c:=(a+b)/2;
 {Если найден точный корень, то его вывод и выход}
 if y(c)=0 then
 begin
 writeln('Найден точный корень ', c:6:3);
 readln;
 exit
 end
 else
 {Определение нового промежутка для следующей итерации}
 if y(a)*y(c)<0 then b:=c else a:=c;
 until (b-a)<eps;
 writeln('Kорень с точностью ',eps:8:6);
 writeln('равен ', c:8:6);
 end
 else
 {Если на концах отрезка были одинаковые знаки}
 writeln('Корня нет или он не единственен');
 readln
end.

Просмотров [ 333 ] ● 18.08.10 ● Рейтинг [ 0% ]

Комментариев: [ 0 ]


	Украинская Баннерная Сеть

Ваше Имя