Курсовая работа: Решение математических задач с помощью алгоритмического языка Turbo Pascal, Microsoft Excel, пакета MathCAD и разработка программ в среде Delphi
writeln ('y=',y: 10: 3,' n=',n);
readkey;
end.
Результаты работы программы
a=0 b=1 n=1000 y=0.117
Блок-схема алгоритма решения задания №2.3
?????????? ????????????? ????????? методом Симпсона :
Текст программы вычисления
определенного интеграла с
автоматическим выбором шага
program avtomaticheskiyshag;
uses crt;
var e,a,b,s,h,sn,sn1: real;
i,n: integer;
function f (x: real): real;
var y: real;
begin
f: =1/sqr (3*sin (x) +2*cos (x));
end;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
write ('e='); read (e);
sn: =0;
sn1: =0;
n: =100;
repeat
n: =n*2;
h: = (b-a) /n;