Информатика. Часть 2. Мойзес О.Е - 145 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

145
Файл с исходными данными 'Lagrange.dat'
0.5 1.125
1.0 1.250
1.5 1.875
2.2 3.102
2.7 3.782
3.0 4.001
3.7 3.879
4.1 3.501
4.5 3.196
5. Демонстрационная программа по теме «Численное
интегрирование»
program Integral;
(*
Демонстрационная программа по теме
"Численное интегрирование. Метод прямоугольников."
*)
uses Graph;
const
{ Параметры графика }
Xmin= 0.25; Xmax= 2.75; Ymin= 0; Ymax= 0.9;
dNx1= 40; dNx2= 20; dNy1= 20; dNy2= 40;
X1 = 0.5; Y1 = 0; dX = 0.5; dY = 0.2;
{ Данные для
расчета интеграла }
a=0.5; {Левая граница интеграла}
b=2.5; {Правая граница интеграла}
N=7; {Количество отрезков разбиения}
{ Подынтегральная функция }
function F(x:real):real;
begin F:=2*x*exp(-x) end;
var
Nx1,Nx2,Ny1,Ny2:integer;
x,y,h,xc,yc,Int:real;
S:string;
dr,dm,i,j,xcr:integer;
{Функция масштабирования по оси OХ}
function Kx(x:real):integer;
begin
Kx:=round(N
x1+(Nx2-Nx1)*(X-Xmin)/(Xmax-Xmin))
end;
{Функция масштабирования по оси OY}
function Ky(y:real):integer;
begin
Ky:=round(Ny2-(Ny2-Ny1)*(Y-Ymin)/(Ymax-Ymin))
end;
BEGIN

Страницы