книги из ГПНТБ / Гемст В.К. Процедуры АЛГОЛ-60 в примерах [практикум]

Х:»А.,

FtM(Y).,

X:-B.f

PO'H(Z).,

*lF,SiGH(Y)-SI(3NCZ)*THEM,’GOTO’SlGt<Ali:,

ITER:X:»A/2+B/2i,

FDM(1r);.

•IF*SIGH(Y)-SIGN(Z)*THE«*В:-X*ELSE*A t*Xi t

’IP'ABS(A-B)’GE'EPai* THEN'TGOtO*IT!»!,

FIN:

’END*BISEC;,

’BEGIN*

‘REAi/SIGMA.EPS.EPSl.AA.BBT,

lNPUT(itEPS,EPSl,AA,BB);,

‘BEGIN*

’REAO* *PROCEDURE*?(SIGMA)'!, ‘REAL*SIGMA;, F:-(SIGMA-ie.O)XIB.;

8ISEC(AA,BB,EPS ,EPSi,F.,8I6KAL,SI!®liA$',i,,

0(/TPUT(3,‘(E‘),SIGMA) ’END*

‘END’.,

SIGNAL.:

‘EMU’;,

Исходные данные: +IOOO ООО 44. +1000 000 44. +1000 000 01.

хат

'j.?' l’GT*NMAX*THEn' 'b e g i n '

NR:-'FALSE* i, 'g o t o ’p

'e n d ' 'e n d ’h .,

NR:-'TRUE*.,

P:

'enu’nev/ton raphso n,,

TESTBLOCK:

'BEGIN*

•r e a l 'x .,

'b o o l e a n'n r .,

NEWTONRAPH;;ON((X-ie.O)US,5(.OX(X-ie.O)XX2,X, 1.0,Ю -6,100

0,NR).f OUTPUT^,'(L'),!№)., OUTPUTS,'(E*),X)

183

2 Т7.6, Решение уравнения методом Беротоу - Хичкова

Определить корни уравнения

х6 - 2-х5 + 2-х^ + х5 t 6-х2 - 6-х + 8 = 0 ,

при epS 0 = eps I = eps 2 = eps 3 = 10“^ и nrш х = 1000.

Решение. Исходная программа:

- 01-

ТРАИСЛЯТОР МЭИ-8

’BEGIN*

'PROCEDURE ’BAIRSTOR(N,A,EPSG,EPS1,EPb2,EPS3,MAX)RESULT:(N0 M,X,Y,NAT,EX).,

'REAL’EPS0,EP8i,E!’S2,EPS3.,

'INTEGER'S,MAX,NUM., 'ARRAY ’A,X,Y., ’INTEGER*’ARRAY’NAT,EX., ’BEGIN’

’REAP’P,ti,CORP,caRQ,UO,UlfVO,Vl,WO,S?l,OET,S,T., ’INTEGER'I, 3 ,K,M,N2,R.,

’ARRAY’S,C(/0:N+1/).,

’FOR’lj»0'STEP *l’UNTIL ’h ’DO ’В(/1/) :»A(/I/)., B(/N+l/):-0.0.,

N2:»E!ITIER((N+l)/2).,

RJ-22N2.,

’EOR'Mi-I ’STEP’l’UNTIL’N2’DO’ ’BEGIN’

P;»Q:»0.0.,

'FOR *K:«i *STEP'i’UNTIL'MAX *00’LABI: ’b e g i n ’

184

'F0R*I:*’0’STEP’l’U N m V D 0 ’C(/I/) V*B(/I/).,

’FOR’lV-R-2fR-4’0O’’FOR*;:-O’,STEP*!’UNTIL TlJflO.’

’begin’

C(/J+i/)l«C(/J+i/)-PXC(/j/).,

C(/J+2/j !“C(/J+2/)-QXC(/j/} *EN0’., " ■ ■ UO:-C(/S/).,

U1:»C(/R-1/).,

VO:"C(/R-2/).,

Vi:-C(/R-3/).,

V,0:“-QIV1.,

V;i:»VG-PXVi.,

0ET:-VO2„i-ViOrVl.,

’lF’ABi;(0ET) ’LT'EPSO ’THEN* ■ 'BEGIN*

P:“P+1.,

Qs»Q+l.,

'GOTO 'labi

*Eil0*., (VO2Ul-UOXVi)/0ET.,

CORQ:«(UOm-V;OXUi)/DET.,

P:«P+GORP.,

Q :°Q+CORQ,,

’lF’(ABS(UO) ’LT’EPSl)’AN0’(ABS(Ui) ’lt ’EPSi) ’THENT

’b e g i n ’

EX(/M/):-i.,

185

’BEGIN*

nat( / m/ ) г**” 1 . ,

Y(/M/):-SQRT(-f)

’END’.,

'IF *EX(/H/)»4*THEN” GOTO*OUT.,

R:»R-2.,

'FOIi’j r O ’STEP’i’ U N m V» 0 '

’be g i n’

B(/J+l/):-B(/J+l/bPXB(/J/).,

B(/J+2/):»B(/J+2/)-QXB(/J/)

'END*.,

’IF ’r ’LT ’i’THEN ’OUT:

’b e g i n *

’GOTO’FIN

’END’.,

'IF 'R’LT’S'THEH'

’b e g i n '

EX(/M/):-i.,

P!-B(/l/)/B(/0/).,

Qs-B(/2/)/B(/0/);,

’G0T0*WB2

’END’

’END’M.,

f i n :

’e n d ’bairstow..

187

ТЕДБЬОСК! 'BEGIN'

'IHTEG'-R’K.NUM., 'ARRAY'X,Y,A(/Ose/).f

'INTEGER "ARRAY’NA,r,r.(/l:6/)!., A(/0/) ,

A(/i/);-~e.0.t

A(/2/):»2.0.,

A(/S/)s-i.O.,

A(/4/):-6.0., a (/b/)s— e.o;,

A(/6/):-8.0.f

BAIRtTOW(6,A,fC~4,E-4,E-4,E“4,iOOO,MUM,XFY,NAT,EX).,

OUTPUT(5,' (I*),HUM).*

'FOR'K:“i'STEP'l'UNTl L'NUM 'DO'

'BEGIN1

OUTPUT^, '(I*),It,HAT(/K/)fEX(/K/)).,

OUTPUT(3,*(E*),X(/K/),Y(/K/))

'END*

’END'TEitRbOCK

■'ENO'FROGRAMK.,

. Результат вычислений, полученный на узкой печати,

+3

+I I

+2

(5000000 +0С

+8660254 +00'

188

2.7.7.Решение уравнения методом Ньютоиа-

Миели Определить корни уравнения

х3 - 9,8-х2 - 186-х = О

при ер 5 = 0,0001.

Решение. Исходная программа:

- 01- !

ТРАНСЛЯТОР МЭИ-3

’begin’

’PROCЕ00НЕ'НЕWTOШ Н1ЛГ(А,Ч,EPS)RESULT:(2)i,

’VAuUE’M,EPS,,

’REAi/EPS.,

’a r r a y ’a .z .,

’beg in’

’REAu'AA.PP.QQ.XO.Xl.,

189