Курсовая работа: Информатика Алгоритмизация и программирование
x:=a;
for i:= 1 to n do
begin
x:=x+h;
S:=S+f(x);
end;
S := S*h;
write('n=',n:3,' h=',h:12:9);
n:=n*2;
until abs(P-S)/(s*100)<eps;
writeln;
writeln('Result S=',S:10:6,' dS=',dS:12:9);
writeln;
writeln('Process ended');
writeln('Press any key to exit');
repeat until keypressed ;
end .
Данная задача была решена также в MSExcel. Лист с решением задачи приведен ниже. Требуемая точность была достигнута при n=10.
Программа выполненная на языке Microsoft Visual Basic 6.0
Private Sub Command1_Click()
Dim i As Integer
Dim x(1 To 40) As Double
Dim f(1 To 40) As Double
Dim f1(1 To 40) As Double
Dim s(1 To 40) As Double
a = -3 * 3.14
b = 0
e = 0.1
n = 40
h = (b - a) / n