PROCEDURE LAMBERG(L^,/,/f,P,N); INTEGER I,K,N,PREAL LA
252
regel
INTEGER PROCEDURE B(J,I,K); INTEGER J,I,K\
BEGIN INTEGER CA,CB,C\ G:=GB:=FALSE;
26 CA 1000000 x/+1000 x I+K]
CB 1000000 x K 1000 x I+J',
FOR C: i STEP 1 UNTIL /PI DO
BEGIN IF CA 2lPI[C] THEN
BEGIN G: TRUE;
31 B:—C; GOTO LAB 2
END
IF CB APl[C] THEN
BEGIN GB: TRUE; G: TRUE;
B:=CGOTO LAB 2
END
END; B: 1;
38 LAB2END B;
BOOLEAN PROCEDURE TESTNO(/)
INTEGER
41 TESTNO: IF ABS(//2—0.5) ENTIER(//2—0.5) V
I 2 x NZ1 THEN TRUE ELSE FALSE;
REAL PROCEDURE LAMi {I,K,P,N)\ INTEGER I,K,P,N;
BEGIN INTEGER M; REAL LAUH,Y,X;
M:=A(I,K,P,N)LAM//BLAMr2 x M 2 AH;
46 IF G A LAM// ,„150 THEN
BEGIN IF N 2 A GA THEN
LAM//LAM//—200
GOTO EINDLi
END;
51 LAMZ/: 10i5o;
IF P 1 V P 2 THEN
BEGIN IF BZ[P,I„150 A BZ[P,K] „150 THEN
BEGIN V=BZ\P,K\—BZ[P,r\
X=BZ\P,K ilBZ[P,I 1]
56 IF y o THEN y1075
IF IV 1 THEN LAM//1/2 x LN(Y xY+X xX)
ELSE
BEGIN LAM//ARCTAN(X/Y) x RHO;
IF y o THEN
61 LAM//LAM//200;
IF LAM// o THEN LAM//LAM//400
END; GOTO EINDLi
END
END;
66 EINDLi: LAMi: LAM//
END LAMi;
BEGIN INTEGER M\ REAL LAMH;
IFP<iVP>6VA1<iVA>2V
71 TESTNO(/) V TESTNOCfiT) THEN
BEGIN PRINT('VERKEERDE AANROEP VAN LAMBERG',
I ,K,P,N)
GOTO EINDLB
END;
LAUH: LA
76 M: A(I,K,P,N)
IF G THEN