253
regel
BEGIN IF N 2 A GA THEN LAM//LAM#200
BLAM[2 X Af2/V]LAM//GOTO EINDLB
END;
81 BEGIN y3LAM[/LAM] 1000000 x P+1000 x I K
BLAM[2 x LAM—2 +JV]: LAM//
/LAM/LAM 1
IF /LAM /VLAM THEN
PRINT ('/VLAM TE KLEIN OPGEGEVEN', I,K,P,N);
86 END;
EINDLB: END LAMBERG;
REAL PROCEDURE PIi(J,I,K,N); INTEGER J,I,K,N;
BEGIN INTEGER Af; REAL PIH;
M:=B(J,I,K)
91 PI/Z: BPI[2xAf—2 /V];
IF G A PI// „150 THEN
BEGIN IF GB THEN VIH:=—VIH;
GOTO EINDPi
END; PI//:=10i5o;
96 EINDPi: PIi PI/Z
END PIi
PROCEDURE PI BERG (VIA ,J ,1 ,K,N)INTEGER J,I,K,N, REAL VIA;
BEGIN INTEGER Af; REAL PIH;
PI/Z: PL4;
101 IF N 1 V N 2 V TESTNOV TESTNO(/) V TESTNO(K)
THEN
BEGIN PRINT ('VERKEERDE AANROEP VAN PIBERG',
J.I.K.N
GOTO EINDPB
END;
M ;=B(J,I,K)
106 IF G THEN
BEGIN IF GB THEN PI//: VIH;
BPI[2 x Af—2 N): VIH
GOTO EINDPB
END;
in AVI[IVI] 1000000 x J ioooxI K;
Z?PI[2 x /PI—2 /V] PI//;
/PI:=JPI i;
IF /PI ZVPI THEN
PRINT ('ZVPI TE KLEIN OPGEGEVEN', J,I,K,N
116 EINDPB: END PIS;
REAL PROCEDURE PI3(J,I,K,N); INTEGER J,I,K,N;
BEGIN REAL LAM/I, LAMB, PIH; INTEGER P;
VIHPI 1 (J,I,K,N)
IF VIH jt 10i 50 THEN GOTO EINDP3;
121 FOR P: 1 STEP 1 UNTIL 6 DO
BEGIN LAM^: LAMi(/,K,P,V);
LAMBLAMi I,J,P,N
IF LAVL4 10i5O A LAMB 10i5O THEN
BEGIN PI//: LAM^—LAMB; GOTO EINDP3
126 END
END;
EINDP3: Pl3: PI//
END PI3;
REAL PROCEDURE VU(J,I,K,N); VALUE N;
131 INTEGER J,I,K,N
