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


Текст работы

Нахождение
интегралов в среде Pascal


Текст
задания:
найти
интеграл функции sin (x+10)+x 4=0 используя два метода: метод прямоугольников и
метод трапеций; пользователь вводит значения и выбирает метод решения.


Текст программы :

program
LW_5;

uses

Crt;

var

dx,
x1, x2, e, i, c, s:real;

function
Fx (x:real):real;

begin

Fx:=sin
(x+10)+x*x*x*x; {function}

end;


procedure
CountViaBar;

var

xx1,
xx2:real;

c:longint;

begin

writeln
('–');

writeln
('–>MEthod PRYAMOUGOL''NIKOVVVV');

writeln
('vsego interaciy:', round (abs(x2-x1)/e));

i:=0;

for
c:=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;


procedure
CountViaTrap;

var

xx1,
xx2, xx3:real;

c:longint;

begin

writeln
('–');

writeln
('–>MEthod TRAPECIY');

writeln
('vsego interaciy:', round (abs(x2-x1)/e));

i:=0;

for
c:=1 to round (abs(x2-x1)/e) do begin



Ваше мнение



CAPTCHA