Лабораторная работа №3
“Вычисление конечных сумм и произведений”
Вариант – 18
(задание из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Задание:
Вычислить значение интеграла по формуле трапеций при n=30 (J=h[(f(a)+f(b))/2+(n-1)сумма(k=1) f(xk)], где h=(b-a)/n; xk=a+k*h; f(xk) – подынтегральная функция, где с=2.1
5
J=S sinx/sqrt(c+x*x*x) dx
1.5
Блок схема алгоритма:
Текст программы:
program Lab3;
uses crt;
const c=2.1; {Constants}
a=1.5;
b=5;
var S,h,xk : real; {Announcement variables}
i,n : integer;
begin
clrscr;
n:=30;
h:=(b-a)/n;
S:=(sin(a)/sqrt(c+a*a*a)+sin(b)/sqrt(c+b*b*b))/2;
for i:=1 to n do {Cycle with headline with at a walk 1}
begin
xk:=a+i*h;
s:=s+sin(xk)/sqrt(c+xk*xk*xk);
end;
writeln('*** Conclusion of importance of the integral on formula of the trapezoids ***');
writeln('S=',h*S:5:4);{Formed conclusion}
Readln;
end.
Контрольный расчёт:
S=0.1736
|
Главная
Каталог файлов
