Курсовая работа: Информатика Алгоритмизация и программирование

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

К-во Просмотров: 544
Бесплатно скачать Курсовая работа: Информатика Алгоритмизация и программирование