Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
23.02.2014
Формат файла
.html — Html-документ
Архив
997507.zip — 1.45 kb
  • naxozhdenie-integralov-v-srede-pascal_997507_1.html — 2.36 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Нахождениеинтегралов в среде 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;



Ваше мнение



CAPTCHA