обходимо получить значения функций у в нескольких промежуточных точках Хо, хх, Хп, то процедура должна вызываться повторно (с х=Хи, xE=Xk+i для k=0,\,,,,,n-\), при этом последующие-обращения для экономии машинного времени можно осуществить с /г=false. Входными параметрами FKT должны быть х, у, п. Выходной параметр z представляет собой совокупность производных z[k]=fk(x, у[1], у[2], у[п]) для X и фактических у. Процедура сотр входит как нело кальный идентификатор;

array Z, у\, у2, уЗ [1:п]; real х\, х2, хЗ, Н; Boolean out;

integer k, J; own real s, Ms;

procedure RKIST (x, y, h, xe, ye); real x, h, xe;

array y, ye;

comment: RKIST интегрирует один шаг методом Рунге - Кутта с начальными значениями X, у [k\. Выходными параметрами являются хе = х-\-Н и ye[k], причем последний вектор есть решение в точке хе.

Важно: параметры п, FKT, z входят в RKIST как нелокальные объекты; begin

array -w[\:n\, а[1:5]; integer k, j; a 1 : = a [2]: = a[5] : = hl2; аЗ\: - а Щ: = к; xe: = x; for k: = \ step 1 until n do ye [k\: = 1ю\Щ: = у[к\;

for у: = 1 step 1 until 4 do begin

FKT {xe, w, n, z); xe:=x-\-a j\; f or : = 1 s begin

ep 1 until n do

ye - , y.z\k\l3 end k

k\:y[k\+a\j\Xz k\:=ye[k\-\-a[j+\

k\; X

end j . • .. ,

/ end RK\ST\

Начало программы:

if fi tlien begin Я: = л:£ -x; s: = 0 end

else H:=Hs; out: = 1a\se; AA: if (x+2.01 X Я - > 0) = (Я > 0) then

begin Hs:=H; out: = true; H: = {xE-x)/2 end if,

RKIST {x,y,2xH, x\, y\); BB: RKIST {X, y, H, jc2, у2); RKIST {x2, у2, H, хЪ, уЗ)

for k: - l step 1 until n do

if comp (yl [k\, уЗ [k], eta) > eps then go to CC

comment: comp (a, b, c) - функция, значением которой является абсолютное значение разности мантисс а и Ь, после того как порядки этих величин выравнены до наибольшего порядка параметров а, Ь, с;

х: = хЗ\ if oat then go to DD;

for k: = \ step 1 until n do y\k\:~y3\k\;

if s = 5 then begin s: = 0; Я: = 2Х end ;

5: = 5+1; go to AA; CC: fi: = 0,5Xfi; out: =false; xl: = x2;

for ft: = l step 1 until n do y\]k]:=y2\k];

go to BB; , DD: for k: = \ step 1 until n do yE[k]:y3[k] end RK

алфавитный указатель определяемых понятии и синтаксических единиц")

, Все ссылки даются на иомера разделов. Ссылки разбиты на три группы:

опр - ссылка, стоящая за сокращением «опр», отсылает к соответствующему синтаксическому определению;

синт -ссылки, стоящие за сокращением «синт», отсылают к вхождению в металингвистическую формулу. Ссылки, перечисленные в группе «опр», не повторяются;

текст - ссылки; стоящие за словом «текст», отсылают к определению, данному в тексте.

При составлении указателя примеры не принимались во внимание. «

I. Указатель основных символов см. плюс

- см. минус • -

X см. умножение

/, -5- см. деление

t см. возведение в степень

<.<•=.>.>,¥= см. (знак операции отношения) ~, ZJ. V. Л. ) см. (знак логической операции) см. запятая см. десятичная точка

) Ввиду того что лексикографически порядок английских Н русских терминов не совпадает, данный указатель разделен иа две части: I - указатель основных символов и II - указатель металингвистических переменных и терминов, употребляемых в тексте,-* Прим, ред.