Метод хорд - ПРИМЕРЫ ПРОГРАММ - ПРОГРАММИРОВАНИЕ - БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

PRIMAT.ORG
© 2008-2012

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

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


	Вход

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

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

НОВЫЕ ФАЙЛЫ

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

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

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

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

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

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

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

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


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


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


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

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

[ ДОБАВИТЬ ]

Метод хорд

Решение уравнения методом хорд. Численный метод. Язык Паскаль.

program metod_hord;
uses crt;
var a, b, x, eps :real;

function f(x:real):real;
{Oписание функции для уравнения f(x) = 0}
begin
 f:=x*x*x*x-2*x-4
end;

{Описание метода хорд}
function horda (a,b, eps:real):real;
 var n:integer; x0,x1:real;
 begin
 n:=0; x1:=0;
 repeat
 x0:=x1;
 x1:=a-((b-a)*f(a))/(f(b)-f(a));
 if f(x1)<>0 then
 if f(a)*f(x1)<0 then b:=x1
 else a:=x1
 else
 begin
 writeln('Число итераций =',n, 'x0=',x1);
 horda:=x1;
 exit
 end;
 n:=n+1;
 writeln('Итерация ', n,', a=', a:8:5,' b=', b:8:5);
 writeln('x',n, ' = ',x1:8:5,' f(x', n, ')=', f(x1):8:5);
 readln;

 until (abs(x0-x1)<eps) {or (abs(f(b)-f(a))<1e-5)};
 horda:= x1
end;

Begin
 TextBackGround(Blue); TextColor(Yellow); ClrScr;
 write('a = ');readln(a);
 write('b = ');readln(b);
 write('epsilon = ');readln(eps);
 x:=horda(a,b,eps);
 writeln('Приближенное значение корня с точностью ',eps:7:5);
 writeln('x =',x:8:6);
 readln
End.

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

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

никто ● 29.11.11

мне вовсе не понравилось, чушь какая то, вовсе не интересно и не оригинально

admin ● 29.11.11

выложи свою оригинальную и интересную версию :)

Михаил ● 19.04.11

А производная 2штрих и 3 штрих тут написана


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

Ваше Имя