Текст программы

Текст программы. program trs uses crt, graph var a, breal Границы отрезка r, r2real Предыдущее и текущее приближенные значения интеграла ninteger Счетчик Интегрируемая функция function fxrealreal begin f1xlnx0.43429 end Метод трапеций function trapa, brealnintegerreal var sreal Полученная сумма hreal Шаг minteger Счетчик begin hb-an-1 Определяется шаг sfafb2 Начальное значение суммы for m1 to n-2 do ssfamh Суммиование остальных элементов trapsh Возвращается значение интеграла end Метод Симпсона function simpsona, brealnintegerreal var sreal Сумма hreal Шаг minteger Счетчик mninteger Очередной множитель begin hb-an-1 Рассчитывается шаг sfafb Начальное значение шага mn4 Первый мнодитель - 4 Суммирование остальных элементов for m1 to n-2 do begin ssmnfahm if mn4 then mn2 else mn4 Именение мноителя 2 4 end simpsonsh3 Возвращается вычисленное значение end Процедура вычисления порядка числа procedure normareal var nreal begin Если число слишком мало - возвращается ноль if a 0.00001 then n0 else begin Если число меньше единицы if a 1 then begin n1 repeat aa10 nn10 until trunca 0 end else begin Если число больше единицы n1 repeat aa10 nn10 until trunca0 end end an end Построение графика функции procedure outgrpxmin, xmax, ymin, ymaxreal var drv, modeinteger mx, myreal Масштабы по осям xx, yyreal Текущие координаты sxreal Шаг по оси X dltx, dltyinteger Приращение на графике при смещении графика sstring Строка begin Инициализация графики drvVGA modeVGAHi initgraphdrv, mode, Выяснение порядков минимумов и максимумов normxmax normymax normyminyminymin10 normxminyminymin10 if xminxmax 0.01 then dltx20 else dltx0 if yminymax 0.01 then dlty20 else dlty0 Расчет масштабов mx500xmax-xmin my400ymax-ymin Расчет приращения по X sxxmax-xmin550 Вывод системы координат settextjustify1,1 xxxmin repeat setcolor1 linetrunc40mxxx-xmindltx,20,trunc40mxxx- xmindltx,469 strxx42,s setcolor15 outtextxytrunc40mxxx-xmindltx,475,s xxxx50sx until xx xmax50sx yyyminymax-ymin10 repeat setcolor1 line41,trunc470-myyy-ymin-dlty,630,trunc 470-myyy-ymin-dlty stryy42,s setcolor15 outtextxy20,trunc470-myyy-ymin-dlty, s ymax-ymin10 until yy ymaxymax-ymin10 line40,0,40,480 line0,470,640,470 line40,0,38,10 line40,0,42,10 line640,470,630,472 line640,470,630,468 Вывод графика xxxmin repeat yyfxx putpixeltrunc40mxxx-xmindltx, trunc470-my yy-ymin-dlty,7 xxxxsx until xx xmax outtextxy300,10, Press ESC to continue repeat until readkey27 closegraph end Основная программа begin Ввод границ отрезков clrscr write Введите A,B readlna, b Выводится график функции outgrpa, b,fb, fa Вычисляется интеграл по методу трапеций n3 rtrapa, b,n Начальное значение repeat r2r Запоминается предыдущее значение nn2 Увеличивается количество шагов rtrapa, b,n Рассчитывается новое значение until absr-r2 0.001 Повторяется до достижения необходимой точности Вывод результатов writeln Резльтат по методу трапеций равен, r63 writeln для получения необходимой точности интервал был разбит на writelnn, отрезков Вычисляется интеграл по методу Симпсона n3 rsimpsona, b,n Начальное значение repeat r2r Запоминается предыдущее значение nn2 Увеличивается количество шагов rsimpsona, b,n Рассчитывается новое значение until absr-r2 0.001 Повторяется до достижения необходимой точности Вывод результатов writeln writeln Резльтат по методу Симпсона равен, r63 writeln для получения необходимой точности интервал был разбит на writelnn, отрезков end. 6.