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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

142
writeln(f2,' Результаты расчёта теплоёмкости циклопропана');
writeln(f2);
writeln(f2,' Т, К Ср, Дж/моль*К Ср расч., Дж/моль*К');
for i:=1 to m do
begin
yr[i]:=a[1]+a[2]*x[i]+a[3]*sqr(x[i]);
writeln(f2,x[i]:6:0,' ',y[i]:12:2,yr[i]:15:2);
end;
close(f2);
end.
4. Демонстрационная программа по теме интерполяция
program Lagrange;
(*
Демонстрационная программа по теме
"Интерполяционнная формула Лагранжа".
*)
uses Graph;
const
Nmax=10; {Максимальное количество элементов в массивах Х и Y}
{ Параметры графика }
Xmin= 0.1; {Минимальное значение на оси ОХ. }
Xmax= 4.7; {Максимальное значение на оси ОХ. }
Ymin= 1; {Минимальное значение на оси О
Y. }
Ymax= 4.5; {Максимальное значение на оси ОY. }
dNx1= 40; {Отступ рамки слева. }
dNx2= 20; {Отступ рамки справа. }
dNy1= 20; {Отступ рамки сверху. }
dNy2= 20; {Отступ рамки снизу. }
X1 = 0.5; {Точка начала нумерации по
оси ОХ.}
Y1 = 1; {Точка начала нумерации по оси ОY.}
dX = 0.5; {Шаг нумерации по оси ОX. }
dY = 0.5; {Шаг нумерации по оси ОY. }
var
X,Y:array[1..Nmax] of real; {Массивы исходных данных. }
N, {Количество элементов в массивах Х
и Y}
Nx1,Nx2, {Границы рамки: левая, правая, }
Ny1,Ny2:integer; {верхняя, нижняя. }
{Прочие служебные переменные}
F:text;
xx,yy,h:real;
S:string;
dr,dm,i,j,xcr:integer;
P:real;
{Функция масштабирования по оси OХ}
function Kx(x:real):integer;
begin
Kx:=round(Nx1+(Nx2-Nx1)*(X-Xmin)/(Xmax-Xmin))
end;
{Функция масштабирования по
оси OY}
function Ky(y:real):integer;
begin
Ky:=round(Ny2-(Ny2-Ny1)*(Y-Ymin)/(Ymax-Ymin))

Страницы