Реферат: Нахождение интегралов в среде Pascal
Нахождениеинтегралов в среде Pascal
Текст задания:найтиинтеграл функции sin (x+10)+x4=0 используя два метода: метод прямоугольников иметод трапеций; пользователь вводит значения и выбирает метод решения.
/>
/>
Текстпрограммы:
programLW_5;
uses
Crt;
var
dx,x1, x2, e, i, c, s:real;
functionFx (x:real):real;
begin
Fx:=sin(x+10)+x*x*x*x; {function}
end;
procedureCountViaBar;
var
xx1,xx2:real;
c:longint;
begin
writeln('–');
writeln('–>MEthod PRYAMOUGOL''NIKOVVVV');
writeln('vsego interaciy:', round (abs(x2-x1)/e));
i:=0;
forc:=1 to round (abs(x2-x1)/e) do begin
write('integration ', c, chr(13));
xx1:=Fx(x1+c*e);
xx2:=Fx(x1+c*e+e);
i:=i+abs(xx1+xx2)/2*e;
end;
writeln('–');
writeln('INTEGRAL=', i);
end;
procedureCountViaTrap;
var
xx1,xx2, xx3:real;
c:longint;
begin
writeln('–');
writeln('–>MEthod TRAPECIY');
writeln('vsego interaciy:', round (abs(x2-x1)/e));
i:=0;
forc:=1 to round (abs(x2-x1)/e) do begin
write('Integration ', c, chr(13));
xx1:=Fx(x1+c*e);
xx2:=Fx(x1+c*e+e);
ifxx2>xx1 then xx3:=xx1 else xx3:=xx2;
i:=i+abs(xx2-xx1)*e+abs(xx3)*e;
end;
writeln('–');
writeln('INTEGRAL=', i);
end;
begin
clrscr;
writeln('vvedite ishodniye zna4eniya:');
write('NA4AL''NOYE ZNE4ENIYE x (x1)='); Readln(x1);
write('KONE4NOYE ZNA4ENIYE x (x2)='); Readln(x2);
write('TO4NOST'' VbI4ISLENIY (e)='); Readln(e);
writeln('–======vvedite metod====== – :');
writeln('DLYA METODA PRYAMOUGOL''NIKOV VVEDITE 1, DLYA METODA TRAPECIY VVEDITE 2');
//writeln('DLYA METODA TRAPECIY VVEDITE 2');
readln(s);
ifs=1 then begin
CountViaBar;
end;
ifs=2 then begin
CountViaTrap;
end;
readln;
end.