Листинг1.8. Функция gauss модуля integral
Function gauss(F:real_fun;x0,x1:real;deg:word):real;
var
Index:word;
a,b,sum:real;
begin
a:=0.5*(x1-x0);
b:=0.5*(x1+x0);
sum:=0.0;
for index:=1 to deg do begin
sum:=sum+F(a*zero[index]+b)*weight[index];
if KeyPressed then
Halt;
end;
gauss:=a*sum;
end;
end.
Заключение
В данной работе были рассмотрены различные методы интегрирования определенных интегралов и их реализация на языке программирования высокого уровня Pascal. Таким образом было показано, что данный язык программирования возможно использовать для решения различных задач из области высшей математики и численных методов. В данной работе затронута лишь одна проблема – проблема вычисления интегралов, но Pascal позволяет решать и такие проблемы как: решение дифференциальных уравнений, вычисление с полиномами, решение нелинейных уравнений, вычисления связанные с линейной алгеброй.
Литература
Немнюгин С.А. Turbo Pascal, 2 - издание – С-П.: Питер, 2003-544 с.
Большой энциклопедический словарь: под редакцией Ю.В. Прохорова – М.: Большая Российская энциклопедия, 2000. – 845 с.
Do'stlaringiz bilan baham: |