23 lines
409 B
Plaintext
23 lines
409 B
Plaintext
!Trabb Pardo-Knuth algorithm
|
|
PROGRAM TPK
|
|
!VAR I%,Y
|
|
DIM A[10]
|
|
|
|
FUNCTION F(T)
|
|
F=SQR(ABS(T))+5*T^3
|
|
END FUNCTION
|
|
|
|
BEGIN
|
|
DATA(10,-1,1,2,3,4,4.3,4.305,4.303,4.302,4.301)
|
|
FOR I%=0 TO 10 DO
|
|
READ(A[I%])
|
|
END FOR
|
|
FOR I%=10 TO 0 STEP -1 DO
|
|
Y=F(A[I%])
|
|
PRINT("F(";A[I%];")=";)
|
|
IF Y>400 THEN PRINT("--->too large<---")
|
|
ELSE PRINT(Y)
|
|
END IF
|
|
END FOR
|
|
END PROGRAM
|