Цитата:
2. составить программу на языке паскаль для вычисления определенного интеграла методом трапеций
Точность вычислений 10 (в -3 степени)
интеграл (от 0 до П/2) (Cosx+2) dx
|
Чуток не успел
ну да ладно хоть ответ проверил
Код:
program Integral;
uses
Crt, Dos;
var
dx,x1,x2,e,i:real;
function Fx(x:real):real;
begin
Fx:=cos(x)+2;
end;
procedure CountViaTrap;
var
xx1,xx2,xx3:real;
c:longint;
begin
writeln('Iterations:',round(abs(x2-x1)/e));
i:=0;
for c:=1 to round(abs(x2-x1)/e) do begin
write('Iteration ',c,chr(13));
xx1:=Fx(x1+c*e);
xx2:=Fx(x1+c*e+e);
if xx2>xx1 then xx3:=xx1 else xx3:=xx2;
i:=i+abs(xx2-xx1)*e+abs(xx3)*e;
end;
writeln('integral = ',i);
end;
begin
writeln('x1= 0 '); x1:=0;
writeln('x2=pi/2 '); x2:=pi/2;
writeln('e=0.001 '); e:=0.001;
CountViaTrap;
ReadLn;
end.