Contoh ALGOL

Ini adalah algorithm Trabb Pardo-Knuth dalam ALGO:

1. TITLE TRABB PARDO-KNUTH ALGORITHM2. SUBSCript I,J3. DATA A(11)4. FORMAt FI(2DT), FLARGE(3D)5. PROCEdure F(T=Z)6. BEGIN7. Z=SQRT(ABS(T))+5*T^38. END9. FOR I=0(1)1010. A[I]=KEYBD11. FOR J=0(1)10 BEGIN11. I=J-1012. F(A[I]=Y)13. PRINT(FI)=I14. IF Y > 40015. GO TO LARGE16. PRINT(FL)=Y17. GO TO NEXT18. LARGE: PRINT(FLARGE)=99919. NEXT: CARR(1) END20. END

Nota

  • 1. Judul merupakan satu-satunya komen yang dibenarkan. Nombor baris dimasukkan oleh penyunting.
  • 2. Jenis data intiger. Huruf kecil bukan kesilapan ejaan, tetapi menunjukkan cara kod ALGO dipaparkan dalam dokumentasi asal.
  • 3. Hanya saiz jujukan boleh ditetapkan, had bawah sentiasa sifar.
  • 4. Format pertama memerlukan nombor dua digit diikuti oleh tab, yang kedua bagi nombor tiga digit.
  • 5. Sintak perlaksanaan prosedur ALGO berbeza sedikit dari apa yang diberikan dalam laporan Zurich. Fungsi yang ditetapkan dalam lapuran Zürich juga tidak dilaksanakan.
  • 9. Sintak di sini adalah dari lapuran Zürich dan juga selari dengan pelbagai auto kod era 1950-an.
  • 10. KEYBD membaca nilai nombor dari mesin taip.
  • 11. ALGO tidak membenarkan peningkatan negetif dalam gelung subscript, menyebabkan trik ini.
  • 14. if either dari lapuran Zürich tidak dilaksanakan.
  • 19. Carriage return.