Решение линейных уравнений. Pascal

Листинг программы

{Основная программа}

program LINEY;
Uses Crt, Graf, MenuMd, Graph;
const
e=0.0001;

Procedure Podgot(i:byte); {PodgotovkaDannix}
begin
window(10,10,70,10);
textbackground(red);
...

Цель:
1. Практика в использовании аналитических численных методов определения корней линейных алгебраических уравнений;
2. практика в построении простейших типов алгоритмических структур и использование процедур – функций.

Математическая постановка задачи.
Для заданого алгебраического уравнения аx3 + bx2 + cx +d = 0, abcd- вещественные, отделить корни и определить их с точностью E на ЭВМ, пользуясь заданным методом.

Вариант № 3.
1. Метод отделения корней: графический, аналитический.
2. Точность определения корня: Е=0,0001.
3. Методы определения корней: метод хорд.
4. а=1; в=-0,1: с=0,4: d=-1.5.

Вывод
Получил навыки в использовании аналитических численных методов определения корней линейных алгебраических уравнений, а также в построении простейших типов алгоритмических структур и использование процедур – функций.

p.s. В работе содежится исходный код, описан математический алгоритм и анализ результатов.