3.2 Процедура «Вычисление интеграла»
Procedure
Integral;
begin
M:=50;
k:=10;
while
true do
begin
write('ўўҐ¤ЁвҐ
n');read(n);
h:=(m-k)/n;
S:=F(M)+F(k);
for
i:=1 to n do
begin
t:=k+i*h;
if
i mod 2=0 then s:=s+2*f(t)
else
s:=s+4*f(t);
End;
writeln('S=',S*h/3:6:4);
end;
end;
begin
clrscr;
koef;
pokazateli;
integral;
readln;
end.
СПИСОК
ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1
http://www.tsput.ru/res/math/mop/lections/lection_1.htm
2
http://www.coolreferat.com/Линейная_парная_регрессия
3
Я.В.Казаков, А.С.Грошев. Лабораторный
практикум по информатике. Часть 2.
Программирование в системе Турбо
Паскаль. Я.В.Казаков, А.С.Грошев.
4
http://www.exponenta.ru/educat/systemat/goritskii/part2/LR8/1.asp
5http://www.machinelearning.ru/wiki/index.php?title=%D0%9B%D0%B8%D0%BD%D0%B5%D0%B9%D0%BD%D0%B0%D1%8F_%D1%80%D0%B5%D0%B3%D1%80%D0%B5%D1%81%D1%81%D0%B8%D1%8F
15