Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11

IF (ABS(x-p)Xk);
WRITELN(' - done.');
END;

PROCEDURE DONE;
BEGIN
CLOSE(f1);
WRITELN(f2,'___________________');
CLOSE(f2);
WRITELN;
END;

PROCEDURE Difur;
BEGIN dC[1]:=C[3]*k2+C[2]*k4-C[1]*k1-C[1]*k3; dC[2]:=C[1]*k3-C[2]*k4; dC[3]:=C[1]*k1-C[3]*k2;
END;

PROCEDURE STROKA;
BEGIN
WRITE(f2,'¦',x:4:1,'¦',c[1]:7:3,'¦',c[2]:7:3,'¦',c[3]:7:3,'¦');
WRITE(f2,sum:3:0,'¦',dc[1]:7:3,'¦',dc[2]:7:3,'¦',dc[3]:7:3,'¦');
WRITELN(f2);
END;

PROCEDURE RK_4;
BEGIN

Difur;

FOR i:=1 TO n DO BEGIN r1[i]:=dC[i];

C[i]:=cPR[i]+r1[i]*(dX/2);

END;

Difur;

FOR i:=1 TO n DO BEGIN r2[i]:=dC[i];

C[i]:=cPr[i]+r2[i]*(dX/2);

END;

Difur;

FOR i:=1 TO n DO BEGIN r3[i]:=dC[i];

C[i]:=cPR[I]+r3[i]*dX;

END;

Difur;

FOR i:=1 TO n DO r4[i]:=dC[i];

FOR i:=1 TO n DO rSR[i]:=((r1[i]+r2[i])*(r2[i]+r3[i])*(r3[i]+r4[i]))/6;
END;

профессиональное портфолио, фотостудия "инфинити-лэнд".


Скачали данный реферат: Ячменьков, Novozhilov, Aver'jan, Юлий, Китаев, Shelomov.
Последние просмотренные рефераты на тему: дипломная работа аудит, курсовики скачать бесплатно, баллов, доклад на тему.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11

Поделитесь этой записью или добавьте в закладки