algo

1. TITLE TRABB PARDO-KNUTH ALGORITHM
2. SUBSCript I,J
3. DATA A(11)
4. FORMAt FI(2DT), FLARGE(3D)
5. PROCEdure F(T=Z)
6. BEGIN
7. Z=SQRT(ABS(T))+5*T^3
8. END
9. FOR I=0(1)10
10. A[I]=KEYBD
11. FOR J=0(1)10 BEGIN
11. I=J-10
12. F(A[I]=Y)
13. PRINT(FI)=I
14. IF Y > 400
15. GO TO LARGE
16. PRINT(FL)=Y
17. GO TO NEXT
18. LARGE: PRINT(FLARGE)=999
19. NEXT: CARR(1) END
20. END
21. HOLA QUE ASE

所有跟帖： 

• 厉害， 还记得裸眼读卡。。 -tianfangye- ♂ (0 bytes) () 06/11/2014 postreply 19:09:02

• 你是指Algol 60吗？Algol的每行结束必须带分号“；”的 -W050404- ♂ (0 bytes) () 06/12/2014 postreply 09:54:02

• Algol 赋值语句是“：=” -W050404- ♂ (0 bytes) () 06/12/2014 postreply 09:55:17