Разработка программы для вычисления интеграла по формуле средних прямоугольников

Для получения эталонных результатов для данной программы в рамках курсовой работы был использован частично-автоматизированный метод с использование стороннего ПО.

Входными данными (данные, вводимые с помощью устройств ввода в вычислительную систему для обработки и (или) хранения) являются: нижний и верхний предел отрезка интегрирования, коэффициенты подынтегральной функции, число точек (узлов) в которых вычисляется значение подынтегральной функции.

Выходными данными (результат обработки данных, представляемый для внешнего представления) являются значения уравнения, полученные методом средних прямоугольников.

Согласно заданию курсовой работы, необходимо разработать программу для вычисления интеграла по формуле средних прямоугольников, используя для оценки точности двойной просчет при n1= 6 и n2=8.

Результат вычисления проверочной программы при входных данных:

a = 4; b=12; f = 1/4+6*x; n = 6

Результат вычисления проверочной программы при входных данных:

a = 4; b=12; f = 1/4+6*x; n = 8

Эталонные результаты, полученные при частично-автоматизированном просчете и результаты, полученные данной программой, совпадают. В целях более точного тестирования программы, произведем сравнение эталонного результата и результата работы программы с другими входными данными.

Результат вычисления проверочной программы при входных данных:

a = 1; b=9; f = 4/7+3*x; n = 6

Результат работы разработанной программы

Результат вычисления проверочной программы при входных данных:

a = 1;

b = 9;

f = 4/7+3*x;

n = 8

Эталонные результаты, полученные при частично-автоматизированном просчете и результаты, полученные разработанной программой, совпадают во всех случаях. Из этого следует, что программа работает верно.

Заключение

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

Для выполнения поставленной задачи, был составлен алгоритм математического решения, составлена логическая блок-схема и затем написана программа. Было проведено тестирование, путем сравнения ответов при ручном просчете и результатов, полученных с помощью данной программы. Тестирование показало, что программа работает верно.

Приложение

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

uses crt;

procedure TitlePage;

begin

ClrScr;

WriteLn();

WriteLn(* *');

WriteLn(' * *', '* *':75); WriteLn(' *','*':77); WriteLn(' *','*':77);

WriteLn(' *','*':77); WriteLn(' *','*':77); WriteLn(' *','*':77); WriteLn(' *','*':77);

WriteLn(' *', 'Программа для вычисления интеграла':54,'*':23);

WriteLn(' *', 'по формуле средних прямоугольников':54,'*':23);

WriteLn(' *','*':77); WriteLn(' *','*':77); WriteLn(' *','*':77); WriteLn(' *','*':77);

WriteLn(' *','*':77); WriteLn(' *','*':77); WriteLn();

WriteLn(' *', 'студентка 361 группы *':77); WriteLn(');

WriteLn(' *','*':77); WriteLn(' *','*':77);

WriteLn(' * * * * *','Для продолжения нажмите Enter':43, '* * * * *':26);

end;

function F(k1,k2,k3,x:real):real; { Вычисление подынтегральной функции }

begin

F:=k1/(k2+k3*x);

end;

function SafeReadLn:real; {Защищенный от некорректного ввода ReadLn}

var InputLine:string; //входная строка

value:real; //буфер для хранения числового значения

err:integer; //значение ошибки

begin

repeat

ReadLn(InputLine);

val(InputLine,value,err);

if err=0 then SafeReadLn:=value

else Write('Ошибка ввода. Попробуйте еще раз: ');

until err=0;

end;

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

var a,b,h,k1,k2,k3,x,y,U:real; i,n:integer;

TitleBar:string;

begin

TitlePage; readln;

ClrScr;

WriteLn(' * * * * *','Вычисление интеграла':39, ' * * * * *':28);

WriteLn(' * * *', '* * *':71);

repeat

Write(' Введите нижний предел: '); a:=SafeReadLn;

Write(' Введите верхний предел: '); b:=SafeReadLn;

if a>b then

begin

WriteLn; WriteLn(' Ошибка ввода:');

WriteLn('Коэффициент нижнего предела не может быть больше верхнего. Попробуйте еще раз.');

WriteLn;

end;

Размещено на Allbest.ru