//JOB(ERCC07,STEPHENS,T=200,L=10000) //OPTIONS(QUOTES,OPT) //ALGOL 'COMMENT' *************** * * * ALGG049 * * * *************** ; 'BEGIN' 'BEGIN' 'COMMENT' WJW1; 'COMMENT' A0,A6; 'INTEGER' Y,I,J,E,COUNT; 'REAL' A,B,C,BETAD,G,R,S,M,N,O,P,Q,GA,MA; 'INTEGER' 'ARRAY' H,K,L[1:6]; 'REAL' 'ARRAY' D[1:6],SEP[0:10]; GA:=READ; MA:=READ; E:=READ; Y:=READ; 'FOR' I:=1'STEP'1'UNTIL' Y'DO' 'BEGIN' H[I]:=READ; K[I]:=READ; L[I]:=READ; D[I]:=READ; 'END'; COUNT:=0; A:=6.60; B:=20.78; C:=6.50; BETAD:=1.735; G:=GA+0.03; M:=MA; SS: I:=1; J:=0; 'IF' M= SEP[J-1] 'THEN' 'GOTO' PP; RR:SEP[J]:=ABS(S-D[I]); SKIP:'END'; 'END'; 'IF' M= GA 'THEN' 'GOTO' NEXT 'ELSE' 'IF' M=MA 'THEN' G:=G+0.03; 'GOTO' UU; NEXT:G:=G+0.03; 'GOTO' NN; WRITE TEXT ('(''('8S')'D=')'); PRINT(S,2,3); NEWLINES(1); PP: I:=I+1; 'IF' I=Y+1 'THEN' 'GOTO' SS; R:=H[I]**2/A**2+(K[I]*SIN(BETAD))**2/B**2+L[I]**2/C**2 -2*H[I]*L[I]*COS(BETAD)/A/C; S:=SIN(BETAD)/SQRT(R); WRITE TEXT ('(''('4S')'D=')'); PRINT(S,2,3); WRITE TEXT ('(''('4S')'G=')'); PRINT(G,2,3); WRITE TEXT ('(''('4S')'M=')'); PRINT(M,2,3); NEWLINES(1); COUNT:=COUNT+1; 'IF' COUNT = 100 'THEN' ' GOTO'TT; 'IF' ABS(S-D[I])