ALGOL

Dari Wikipedia Bahasa Melayu, ensiklopedia bebas.

ALGO merupakan bahasa pengaturcaraan algebra yang dimajukan antara 1959 dan 1961 bagi komputer Bendix G-15.

ALGO merupakan salah satu daripada beberapa bahasa pengaturcaraan yang diilhamkan oleh Preliminary Report on the International Algorithmic Language yang ditulis di Zürich pada tahun 1958. Lapuran ini menjalani beberapa perubahan sebelum menjadi (‘’Revised Report’’) dari mana kebanyakan perlaksanaan ALGOL diasaskan. Hasilnya, ALGO dan "ALGOL" awal yang lain mempunyai sintak yang amat berlainan dengan ALGOL 60.

Beberapa bahasa yang dimajukan dari lapuran Zürich termasuk BALGOL, MAD (Michigan Algorithm Decoder) dan NELIAC.

[Sunting] Contoh

Ini adalah algorithm Trabb Pardo-Knuth dalam 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

[Sunting] 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.

[Sunting] Pautan luar

Templat:Step

Bahasa lain