Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Fortran - ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅, ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ. ΠΠ΅ΡΠ²ΡΠ΅ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ
Π‘Π΅ΡΠ΅Π΄ΠΈΠ½Π° 50-Ρ Π³Π³. Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅ΡΡΡ ΡΡΡΠ΅ΠΌΠΈΡΠ΅Π»ΡΠ½ΡΠΌ ΠΏΡΠΎΠ³ΡΠ΅ΡΡΠΎΠΌ Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π ΠΎΠ»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΠΌΠ°ΡΠΈΠ½Π½ΡΡ ΠΊΠΎΠ΄Π°Ρ ΡΡΠ°Π»Π° ΡΠΌΠ΅Π½ΡΡΠ°ΡΡΡΡ, ΡΡΠ°Π»ΠΈ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, Π²ΡΡΡΡΠΏΠ°ΡΡΠΈΠ΅ Π² ΡΠΎΠ»ΠΈ ΠΏΠΎΡΡΠ΅Π΄Π½ΠΈΠΊΠ° ΠΌΠ΅ΠΆΠ΄Ρ ΠΌΠ°ΡΠΈΠ½Π°ΠΌΠΈ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°ΠΌΠΈ. ΠΠ°ΡΡΡΠΏΠΈΠ»ΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΈ ΡΡΠ΅ΡΡΠ΅Π³ΠΎ ΠΏΠΎΠΊΠΎΠ»Π΅Π½ΠΈΠΉ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
Π‘ ΡΠ΅ΡΠ΅Π΄ΠΈΠ½Ρ 50-ΡΡ Π³Π³. XX Π². Π½Π°ΡΠ°Π»ΠΈ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΏΠ΅ΡΠ²ΡΠ΅ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ (high-levellanguage). ΠΡΠΈ ΡΠ·ΡΠΊΠΈ Π±ΡΠ»ΠΈ ΠΠ°ΡΠΈΠ½ΠΎ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΠΌΠΈ (Π½Π΅ ΠΏΡΠΈΠ²ΡΠ·Π°Π½Ρ ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ ΡΠΈΠΏΡ ΠΠΠ).
ΠΠΎ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° Π±ΡΠ»ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Ρ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΡ - ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, Π²ΡΠΏΠΎΠ»Π½ΡΡΡΠ°Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΡ.
ΠΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΡ - ΡΡΠ°Π½ΡΠ»ΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π½Π° ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ, Π² ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π½ΠΈΠ·ΠΊΠΎΡΡΠΎΠ²Π½Π΅Π²ΠΎΠΌ ΡΠ·ΡΠΊΠ΅, Π±Π»ΠΈΠ·ΠΊΠΎΠΌ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠΌΡ ΠΊΠΎΠ΄Ρ (Π°Π±ΡΠΎΠ»ΡΡΠ½ΡΠΉ ΠΊΠΎΠ΄, ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ, ΠΈΠ½ΠΎΠ³Π΄Π° Π½Π° ΡΠ·ΡΠΊ Π°ΡΡΠ΅ΠΌΠ±Π»Π΅ΡΠ°)
Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ FORTRAN
ΠΠ΅ΡΠ²ΡΠΉ ΡΠ·ΡΠΊ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ Π±ΡΠ» ΡΠΎΠ·Π΄Π°Π½ Π² ΠΏΠ΅ΡΠΈΠΎΠ΄ Ρ 1954 ΠΏΠΎ 1957 Π³ΠΎΠ΄Π° Π³ΡΡΠΏΠΏΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ² ΠΏΠΎΠ΄ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ ΠΠΆΠΎΠ½Π° ΠΡΠΊΡΡΠ° Π² ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ IBM ΠΈ ΡΡΠΎ ΡΡΠ°Π»ΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΡΡΠ°ΠΏΠΎΠΌ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΡΠΎ Π±ΡΠ» ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ FORTRAN. ΠΠ½ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ°Π»ΡΡ Π΄Π»Ρ Π½Π°ΡΡΠ½ΡΡ ΠΈ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ². ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ Fortran ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠΊΡΠ°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΡ FORmulaTRANslator (ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ΡΠΈΠΊ ΡΠΎΡΠΌΡΠ»).
ΠΡΡΠΎΡΠΈΡ ΡΠ·ΡΠΊΠ°
Π ΠΊΠΎΠ½ΡΠ΅ 1953 ΠΠΆΠΎΠ½ ΠΡΠΊΡΡ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠΈΠ» Π½Π°ΡΠ°ΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΠΉ Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ²Ρ Π°ΡΡΠ΅ΠΌΠ±Π»Π΅ΡΡ Π΄Π»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΠΠ IBM 704. Π£ΠΆΠ΅ ΠΊ ΡΠ΅ΡΠ΅Π΄ΠΈΠ½Π΅ 1954 Π±ΡΠ»Π° Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½Π° ΡΠ΅ΡΠ½ΠΎΠ²Π°Ρ ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΡΠ·ΡΠΊΠ° Fortran. ΠΠ΅ΡΠ²ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ Π΄Π»Ρ Fortran ΠΏΠΎΡΠ²ΠΈΠ»ΠΎΡΡ Π² ΠΎΠΊΡΡΠ±ΡΠ΅ 1956 Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΏΠ΅ΡΠ²ΡΠΌ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠΌ, ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΌ Π² Π°ΠΏΡΠ΅Π»Π΅ 1957. ΠΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ Π±ΡΠ» ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΈΡΡΡΡΠΈΠΌ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΊΠ»ΠΈΠ΅Π½ΡΡ ΠΎΡΠΊΠ°Π·ΡΠ²Π°Π»ΠΈΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ» Π½Π΅ Π² ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ Π³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°ΡΡ ΠΊΠΎΠ΄ Ρ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡΡ Π½ΠΈΠΆΠ΅, ΡΠ΅ΠΌ Ρ Π°ΡΡΠ΅ΠΌΠ±Π»Π΅ΡΠ°.
Π ΡΠΎ Π²ΡΠ΅ΠΌΡ ΡΠΎΠΎΠ±ΡΠ΅ΡΡΠ²ΠΎ ΠΎΡΠ½ΠΎΡΠΈΠ»ΠΎΡΡ ΡΠΊΠ΅ΠΏΡΠΈΡΠ΅ΡΠΊΠΈ ΠΊ Π½ΠΎΠ²ΠΎΠΌΡ ΡΠΏΠΎΡΠΎΠ±Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π½Π΅ Π²Π΅ΡΠΈΠ»ΠΈ Π² ΡΠΎ, ΡΡΠΎ Fortran ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°ΡΡ Π±ΡΡΡΡΠ΅Π΅ ΠΈ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½Π΅Π΅. ΠΠΎ ΡΠ»ΠΎΠ²Π°ΠΌ ΡΠ°ΠΌΠΎΠ³ΠΎ ΠΠΆΠΎΠ½Π° ΠΡΠΊΡΡΠ° Π±ΠΎΠ»ΡΡΠ°Ρ ΡΠ°ΡΡΡ Π΅Π³ΠΎ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»Π° Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΡΠΎ ΡΡΠΎΠ±Ρ Β«Π±ΡΡΡ Π»Π΅Π½ΠΈΠ²ΡΠΌΒ». ΠΠΌΡ ΠΆΡΡΠΊΠΎ Π½Π΅ Π½ΡΠ°Π²ΠΈΠ»ΠΎΡΡ ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ΄ IBM 701 Π½Π° Π°ΡΡΠ΅ΠΌΠ±Π»Π΅ΡΠ΅.
Π―Π·ΡΠΊ Π±ΡΠ» ΡΠΈΡΠΎΠΊΠΎ ΠΏΡΠΈΠ½ΡΡ ΡΡΠ΅Π½ΡΠΌΠΈ Π΄Π»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Ρ ΠΈΠ½ΡΠ΅Π½ΡΠΈΠ²Π½ΡΠΌΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡΠΌΠΈ. ΠΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ ΡΠ΄Π΅Π»Π°Π»ΠΎ Π΅Π³ΠΎ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠΈΠΌ Π΄Π»Ρ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
Π 1960 Π³ΠΎΠ΄Ρ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π»ΠΈ Π²Π΅ΡΡΠΈΠΈ Fortran Π΄Π»Ρ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² IBM 709, 650, 1620, 7090. ΠΠ³ΠΎ Π±ΠΎΠ»ΡΡΠ°Ρ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΠΎΡΡΡ ΠΏΠΎΠ±ΡΠΆΠ΄Π°Π»Π° ΠΊΠΎΠ½ΠΊΡΡΠΈΡΡΡΡΠΈΡ ΠΈΠ·Π³ΠΎΡΠΎΠ²ΠΈΡΠ΅Π»Π΅ΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΡ Fortran Π΄Π»Ρ ΡΠ²ΠΎΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ². Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΠΆΠ΅ ΠΊ 1963 ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π»ΠΎ Π±ΠΎΠ»Π΅Π΅ 40 ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² Π΄Π»Ρ ΡΠ°Π·Π½ΡΡ ΠΏΠ»Π°ΡΡΠΎΡΠΌ. ΠΠΌΠ΅Π½Π½ΠΎ ΠΏΠΎ ΡΡΠΎΠΌΡ Fortran ΡΡΠΈΡΠ°ΡΡ ΠΏΠ΅ΡΠ²ΡΠΌ ΡΠΈΡΠΎΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΌ ΡΠ·ΡΠΊΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
Π€ΠΎΡΡΡΠ°Π½ Π² Π‘Π‘Π‘Π
Π€ΠΎΡΡΡΠ°Π½ Π² Π‘Π‘Π‘Π ΠΏΠΎΡΠ²ΠΈΠ»ΡΡ ΠΏΠΎΠ·ΠΆΠ΅, ΡΠ΅ΠΌ Π½Π° ΠΠ°ΠΏΠ°Π΄Π΅, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ ΠΏΠΎΠ½Π°ΡΠ°Π»Ρ Ρ Π½Π°Ρ Π±ΠΎΠ»Π΅Π΅ ΠΏΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Π½ΡΠΌ ΡΠ·ΡΠΊΠΎΠΌ ΡΡΠΈΡΠ°Π»ΡΡ ΠΠ»Π³ΠΎΠ». ΠΠΎ Π²Π½Π΅Π΄ΡΠ΅Π½ΠΈΠΈ Π€ΠΎΡΡΡΠ°Π½Π° Π±ΠΎΠ»ΡΡΡΡ ΡΠΎΠ»Ρ ΡΡΠ³ΡΠ°Π»ΠΎ ΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΠ²Π΅ΡΡΠΊΠΈΡ ΡΠΈΠ·ΠΈΠΊΠΎΠ² ΡΠΎ ΡΠ²ΠΎΠΈΠΌΠΈ ΠΊΠΎΠ»Π»Π΅Π³Π°ΠΌΠΈ ΠΈΠ· CERN, Π³Π΄Π΅ Π² 1960-Ρ Π³ΠΎΠ΄Π°Ρ ΠΏΠΎΡΡΠΈ Π²ΡΠ΅ ΡΠ°ΡΡΡΡΡ Π²Π΅Π»ΠΈΡΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π½Π° Π€ΠΎΡΡΡΠ°Π½Π΅.
ΠΠ΅ΡΠ²ΡΠΉ ΡΠΎΠ²Π΅ΡΡΠΊΠΈΠΉ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ Ρ Π€ΠΎΡΡΡΠ°Π½Π° Π±ΡΠ» ΡΠΎΠ·Π΄Π°Π½ Π² 1967 Π³. Π΄Π»Ρ ΠΌΠ°ΡΠΈΠ½Ρ Β«ΠΠΈΠ½ΡΠΊ-2Β», ΠΎΠ΄Π½Π°ΠΊΠΎ ΠΎΠ½ Π½Π΅ ΠΏΠΎΠ»ΡΡΠΈΠ» Π±ΠΎΠ»ΡΡΠΎΠΉ ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΡΡΠΈ. Π¨ΠΈΡΠΎΠΊΠΎΠ΅ Π²Π½Π΅Π΄ΡΠ΅Π½ΠΈΠ΅ Π€ΠΎΡΡΡΠ°Π½Π° Π½Π°ΡΠ°Π»ΠΎΡΡ ΠΏΠΎΡΠ»Π΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π² 1968 Π³. ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠ° Π€ΠΠ Π’Π ΠΠ-ΠΠ£ΠΠΠ Π΄Π»Ρ ΠΌΠ°ΡΠΈΠ½Ρ ΠΠΠ‘Π-6. ΠΠ°ΡΠΈΠ½Ρ ΠΠ‘ ΠΠΠ, ΠΏΠΎΡΠ²ΠΈΠ²ΡΠΈΠ΅ΡΡ Π² 1972 Π³., ΡΠΆΠ΅ ΠΈΠ·Π½Π°ΡΠ°Π»ΡΠ½ΠΎ ΠΈΠΌΠ΅Π»ΠΈ ΡΡΠ°Π½ΡΠ»ΡΡΠΎΡ Π€ΠΎΡΡΡΠ°Π½Π° (Β«ΠΏΠΎΠ·Π°ΠΈΠΌΡΡΠ²ΠΎΠ²Π°Π½Π½ΡΠΉΒ» Ρ IBM/360 Π²ΠΌΠ΅ΡΡΠ΅ Ρ Π΄ΡΡΠ³ΠΈΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ)
Π‘ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΉ Π€ΠΎΡΡΡΠ°Π½. ΠΠΎΡΡΠΎΠΈΠ½ΡΡΠ²Π° ΡΠ·ΡΠΊΠ°
Π€ΠΎΡΡΡΠ°Π½ ΡΠΈΡΠΎΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ Π΄Π»Ρ Π½Π°ΡΡΠ½ΡΡ ΠΈ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ. ΠΠ½ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ½ΠΎ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΠΈΡ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠΈΡΠ»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°Ρ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π·Π° 50 Ρ Π»ΠΈΡΠ½ΠΈΠΌ Π»Π΅Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ, ΠΏΠΎΡΡΠΎΠΌΡ ΡΠ·ΡΠΊΠΎΠΌ ΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠ΅ΠΉΡΠ°Ρ ΠΈ Π² Π±Π»ΠΈΠΆΠ°ΠΉΡΠ΅ΠΌ Π±ΡΠ΄ΡΡΠ΅ΠΌ Π΅ΠΌΡ Π½Π΅ Π³ΡΠΎΠ·ΠΈΡ Π·Π°Π±Π²Π΅Π½ΠΈΠ΅. ΠΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΈ ΠΏΠΎ ΡΠ΅ΠΉ Π΄Π΅Π½Ρ, ΠΎΠ΄Π½Π°ΠΊΠΎ, Π½Π΅ ΡΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎ ΠΏΡΠΈΡΠΈΠ½Π΅ ΡΠ΄Π°ΡΠ½ΠΎΠ³ΠΎ Π΄ΠΈΠ·Π°ΠΉΠ½Π°, ΡΠΊΠΎΠ»ΡΠΊΠΎ Π² ΡΠΈΠ»Ρ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π½Π°ΠΏΠΈΡΠ°Π½Π½ΡΡ Π½Π° Π½ΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΈ, ΡΠ΅ΠΌ Π±ΠΎΠ»Π΅Π΅, ΠΏΠ΅ΡΠ΅ΠΏΠΈΡΡΠ²Π°ΡΡ ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅Ρ ΡΠΌΡΡΠ»Π°.
ΠΠ΅ΡΠΎΡΡΠ½ΠΎ, Π΅ΡΠ»ΠΈ Π²Ρ Ρ ΠΎΡΠΈΡΠ΅ Π±ΡΡΡΡΠΎ ΡΡΠΎ-ΡΠΎ ΠΏΠΎΡΡΠΈΡΠ°ΡΡ, ΡΠΎ Π€ΠΎΡΡΡΠ°Π½ Π±ΡΠ΄Π΅Ρ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· Π»ΡΡΡΠΈΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ². Π―Π·ΡΠΊ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΠΈΠΌΠ΅Π½Π½ΠΎ ΠΈ ΠΈΠ·ΠΎΠ±ΡΠ΅ΡΠ°Π»ΡΡ.
ΠΠ³ΠΎ ΡΡΡΡΠΊΡΡΡΠ° ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΡΠ΅Ρ ΡΠΎΠΌΡ, ΡΡΠΎ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ ΠΌΠΎΠΆΠ΅Ρ ΠΎΡΠ΅Π½Ρ Ρ ΠΎΡΠΎΡΠΎ ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ.
Π‘ΡΠ΅Π΄ΠΈ ΡΡΡΠ½ΡΡ , Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Ρ ΠΎΠ΄ΠΈΡ ΡΠ°ΠΊΠ°Ρ ΠΏΡΠΈΡΠΊΠ°Π·ΠΊΠ°, ΡΡΠΎ Π»ΡΠ±Π°Ρ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ Π·Π°Π΄Π°ΡΠ° ΡΠΆΠ΅ ΠΈΠΌΠ΅Π΅Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π½Π° Π€ΠΎΡΡΡΠ°Π½Π΅, ΠΈ, Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ, ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ ΡΡΠ΅Π΄ΠΈ ΡΡΡΡΡ ΡΠΎΡΡΡΠ°Π½ΠΎΠ²ΡΠΊΠΈΡ ΠΏΠ°ΠΊΠ΅ΡΠΎΠ², ΠΈ ΠΏΠ°ΠΊΠ΅Ρ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΡ, ΠΈ ΠΏΠ°ΠΊΠ΅Ρ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ»ΠΎΠΆΠ½ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΡΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ, ΠΈ ΠΌΠ½ΠΎΠ³ΠΈΠ΅, ΠΌΠ½ΠΎΠ³ΠΈΠ΅ Π΄ΡΡΠ³ΠΈΠ΅.
Fortran (ΡΠ°ΠΊΠΆΠ΅ FORTRAN) ΡΡΠΎ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ , ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠΉ Π² Π½Π°ΡΠ°Π»Π΅ 1950-Ρ Π³ΠΎΠ΄ΠΎΠ² ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ Π΄ΠΎ ΡΠΈΡ ΠΏΠΎΡ. ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠΊΡΠ°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΡ "FORmula TRANslator". Π Π°Π½Π½ΠΈΠ΅ Π²Π΅ΡΡΠΈΠΈ ΡΠ·ΡΠΊΠ° Π±ΡΠ»ΠΈ ΠΈΠ·Π²Π΅ΡΡΠ½Ρ ΠΊΠ°ΠΊ FORTRAN, Π½ΠΎ Π±ΡΠΊΠ²Ρ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π»ΠΈ Π±ΡΡΡ Π·Π°Π³Π»Π°Π²Π½ΡΠΌΠΈ Π½Π°ΡΠΈΠ½Π°Ρ Ρ Π²Π΅ΡΡΠΈΠΈ Fortran 90. ΠΡΠΈΡΠΈΠ°Π»ΡΠ½ΡΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΡ ΡΠ·ΡΠΊΠ° ΡΠ΅ΠΏΠ΅ΡΡ ΠΈΠΌΠ΅Π½ΡΡΡ ΡΠ·ΡΠΊ ΠΊΠ°ΠΊ "FORTRAN".
>Fortran Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π½Π°ΡΡΠ½ΡΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ² ΠΈ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ Π°Π½Π°Π»ΠΈΠ·Π°. Π₯ΠΎΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½ΠΎ ΡΡΠΎ Π±ΡΠ» ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ½ΡΠΉ ΡΠ·ΡΠΊ, Π½ΠΎ Π² ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠ΅ Π²Π΅ΡΡΠΈΠΈ Fortran Π²ΠΊΠ»ΡΡΠΈΠ»ΠΈ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄Π»Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ .
ΠΠ΅ΡΠ²ΡΠΉ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ FORTRAN Π±ΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ Π΄Π»Ρ IBM 704 Π² 1954-57 Π² ΠΊΠΎΠΌΠ°Π½Π΄Π΅ IBM ΠΏΠΎΠ΄ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ ΠΠΆΠΎΠ½Π° ΠΡΠΊΡΡΠ° (John W. Backus). ΠΡΠΎ Π±ΡΠ»ΠΎ ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΈΡΡΡΡΠΈΠΉ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ Π°Π²ΡΠΎΡΡ ΡΠ°ΡΡΡΠ΄ΠΈΠ»ΠΈ, ΡΡΠΎ Π½ΠΈΠΊΡΠΎ Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ·ΡΠΊ, Π΄Π°ΠΆΠ΅ ΠΏΡΠΈ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π»Ρ ΡΠ°ΠΉΠ½ΠΈΠΊΠΎΠ², Π΅ΡΠ»ΠΈ Π΅Π³ΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΡΠ°Π²Π½ΠΈΠΌΠ° Ρ Π°ΡΡΠ΅ΠΌΠ±Π»Π΅ΡΠΎΠΌ.
Π―Π·ΡΠΊ ΠΏΠΎΠ»ΡΡΠΈΠ» ΡΠΈΡΠΎΠΊΠΎΠ΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½ΠΈΠ΅ Π² ΡΡΠ΅Π΄Π΅ ΡΡΠ΅Π½ΡΡ ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ Π΄Π»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Ρ ΠΈΠ½ΡΠ΅Π½ΡΠΈΠ²Π½ΡΠΌΠΈ ΡΠΈΡΠ»Π΅Π½Π½ΡΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΠ½ΡΠΆΠ΄Π°Π»ΠΈ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅ΠΉ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² Π€ΠΎΡΡΡΠ°Π½Π° ΡΡΠ΅ΡΠ΄Π½ΠΎ ΠΏΠ΅ΡΠ΅ΠΏΠΈΡΡΠ²Π°ΡΡ ΠΊΠΎΠ΄ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ², ΡΡΠΎΠ±Ρ ΡΠ΅ Π³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°Π»ΠΈ Π±ΠΎΠ»Π΅Π΅ Π±ΡΡΡΡΡΠΉ ΠΊΠΎΠ΄. Π‘Π΅Π³ΠΎΠ΄Π½Ρ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΡΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΡΡΠ°Π²ΡΠΈΠΊΠΎΠ² Π²ΡΡΠΎΠΊΠΎΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² Π΄Π»Ρ Fortran. ΠΠ½ΠΎΠ³ΠΈΠ΅ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΡ Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΡΠ΅ΠΎΡΠΈΠΈ ΠΈ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² Π±ΡΠ»ΠΈ ΠΌΠΎΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡΡ Π³Π΅Π½Π΅ΡΠΈΡΠΎΠ²Π°ΡΡ Ρ ΠΎΡΠΎΡΠΈΠΉ ΠΊΠΎΠ΄ Π΄Π»Ρ Fortran ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΊΠ°ΠΊ ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π΄Π»Ρ ΠΎΡΠ½ΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΠ·Π²Π΅ΡΡΠ½ΠΎ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²Π΅ΡΡΠΈΠΉ ΡΠ·ΡΠΊΠ°, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠ΅ FORTRAN IV (ΡΠ°ΠΊΠΆΠ΅ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠΉ ΠΊΠ°ΠΊ FORTRAN 66), Fortran 77 ΠΈ Fortran 90. ΠΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ ΡΡΠ°Π½Π΄Π°ΡΡ Π΄Π»Ρ ΡΠ·ΡΠΊΠ°, ΠΎΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°Π½Π½ΡΠΉ Π² 1997 Π³ΠΎΠ΄Ρ, ΠΈΠ·Π²Π΅ΡΡΠ΅Π½ ΠΊΠ°ΠΊ Fortran 95. ΠΠ΅ΡΡΠΈΠΈ ΡΠ·ΡΠΊΠ° ΠΎΡ IBM Π½ΠΈΠΊΠΎΠ³Π΄Π° Π½Π΅ Π±ΡΠ»ΠΈ ΡΠ°ΠΊ ΠΏΠΎΠΏΡΠ»ΡΡΠ½Ρ, ΠΊΠ°ΠΊ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠ΅ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΡΠΌΠΈ, ΠΈ ΡΡΠΎ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎ ΠΊΠ°ΡΠ°Π΅ΡΡΡ FORTRAN IV - WATFOR, Π²Π΅ΡΡΠΈΡ FORTRAN IV, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ Π² Π£Π½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅ΡΠ΅ ΠΠ°ΡΠ΅ΡΠ»ΠΎΠΎ Π² ΠΠ°Π½Π°Π΄Π΅, Π±ΡΠ»Π° Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²ΠΎΡΡΡΠ΅Π±ΠΎΠ²Π°Π½Π½ΠΎΠΉ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π²ΡΠ²ΠΎΠ΄ΠΈΠ»Π° Π»ΡΡΡΠ΅ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ Π²ΡΠ²ΠΎΠ΄ΠΈΠ»Π° ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ°Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ. Π’ΠΎΡΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π³Π΅Π½Π΅ΡΠ°ΡΠΈΠΈ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌ ΠΈΠ· FORTRAN ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π±ΡΠ»ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ΠΎ Π·Π° ΠΏΡΠ΅Π΄Π΅Π»Π°ΠΌΠΈ IBM
ΠΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½ΠΎ, ΡΠ·ΡΠΊ ΠΎΠΏΠΈΡΠ°Π»ΡΡ Π½Π° ΡΠΎΡΠ½ΠΎΡΡΡ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΠΈ ΠΈΠ½ΡΠ΅Π½ΡΠΈΠ²Π½ΠΎΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠΈΡΠ»ΠΎΠ²ΡΠ΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ GOTO. ΠΡΠΈ ΠΏΡΠΈΡΡΠ΄Ρ Π±ΡΠ»ΠΈ ΡΠ΄Π°Π»Π΅Π½Ρ ΠΈΠ· Π½ΠΎΠ²ΡΡ Π²Π΅ΡΡΠΈΠΉ ΡΠ·ΡΠΊΠ°. ΠΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π²Π΅ΡΡΠΈΠΈ ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠ»ΠΈ "ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅" ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΡΠ°ΠΊΠΈΠ΅ ΠΊΠ°ΠΊ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΠΊΠΎΠ΄Π΅ ΠΈ Π²ΡΠ²ΠΎΠ΄ ΡΠ΅ΠΊΡΡΠ°, ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ IF-THEN-ELSE (Π² FORTRAN 77), ΡΠ΅ΠΊΡΡΡΠΈΡ (Π² Fortran 90), ΠΈ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ, Π² ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ ΠΏΡΡΠ°ΡΡΡ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π² Fortran "ΠΏΠΎΡΡΠ½ΡΠΉ" ΠΏΡΠΎΡΠΈΠ»Ρ ΠΈ Π²ΡΡΠΎΠΊΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΡ. Π‘ΡΠ΅Π΄ΠΈ ΡΠ°ΠΌΡΡ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΡ ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΡΡ Π½Π° Fortran ΡΠ·ΡΠΊΠ°Ρ , ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ SAS, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΠΎΠ³ΠΎ Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΡΡΠ°ΡΠΈΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΡΡΠ΅ΡΠΎΠ², ΠΈ SIMSCRIPT, Π΄Π»Ρ ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² ΠΌΠ°ΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ»ΡΠΆΠΈΠ²Π°Π½ΠΈΡ.
ΠΡΠΎΠ΄Π°Π²ΡΡ Π²ΡΡΠΎΠΊΠΎΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΡΡ Π½Π°ΡΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² (Burroughs, CDC, Cray, IBM, Texas Instruments) Π΄ΠΎΠ±Π°Π²ΠΈΠ»ΠΈ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ Π΄Π»Ρ Fortran, ΡΡΠΎΠ±Ρ Π²ΠΊΠ»ΡΡΠΈΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΡ Π°ΠΏΠΏΠ°ΡΠ°ΡΠ½ΡΡ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠ΅ΠΉ, ΡΠ°ΠΊΠΈΡ ΠΊΠ°ΠΊ: ΠΊΡΡ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΉ, ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ pipe-ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠΉ, Π²Π΅ΠΊΡΠΎΡΠ½ΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΠΈ Ρ. Π΄. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ΄ΠΈΠ½ ΠΈΠ· Fortran ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² IBM (H Extended IUP) ΡΠΎΠ΄Π΅ΡΠΆΠ°Π» ΡΡΠΎΠ²Π΅Π½Ρ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ Π·Π°ΡΡΠ°Π²Π»ΡΠ»Π° ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° Π΄Π΅ΡΠΆΠ°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΡ Π±Π»ΠΎΠΊΠΎΠ² Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π·Π°Π½ΡΡΡΠΌΠΈ Π²ΡΠ΅ Π²ΡΠ΅ΠΌΡ. ΠΡΡΠ³ΠΈΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ CFD, ΠΎΡΠΎΠ±ΡΠΉ "Π²Π°ΡΠΈΠ°Π½Ρ" Π€ΠΎΡΡΡΠ°Π½, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠΉ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎ Π΄Π»Ρ ΡΡΠΏΠ΅ΡΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ILLIAC IV, ΡΠ°Π±ΠΎΡΠ°ΡΡΠΈΠΉ Π² ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠΌ ΡΠ΅Π½ΡΡΠ΅ NASA Ames. ΠΡΠΈ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ, Π»ΠΈΠ±ΠΎ ΠΈΡΡΠ΅Π·Π»ΠΈ Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΈΠ»ΠΈ ΠΆΠ΅ ΡΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π±ΡΠ»ΠΈ Π²ΠΊΠ»ΡΡΠ΅Π½Π½Ρ Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΡΠ°Π½Π΄Π°ΡΡ; ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ OpenMP, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΡΠΎΡΡ-ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ Π΄Π»Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΎΠ±ΡΠ΅ΠΉ ΠΏΠ°ΠΌΡΡΠΈ. ΠΡΠ΅ ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π½ΠΎΠ²ΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠΉ, CoArray Fortran, ΠΏΡΠΈΠ·Π²Π°Π½ ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ .
ΠΠ΅ΡΠ²Π°Ρ ΠΏΠΎΠΏΡΡΠΊΠ° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ Π½Π° Erlang Π½ΠΎΠ²ΠΈΡΠΊΠ° ΠΌΠΎΠΆΠ΅Ρ ΡΠΈΠ»ΡΠ½ΠΎ ΡΠ°ΡΡΡΡΠΎΠΈΡΡ ΠΏΠΎΡΠΎΠΌΡ, ΡΡΠΎ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΡΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° ΡΡΠΈΡΠ°Π΅ΡΡΡ ΡΠ°ΠΉΠ½ΠΎΠΏΠΈΡΡΡ ΠΌΠ½ΠΎΠ³ΠΈΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π°ΡΠΈΠ½Π°Π»ΠΈ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ Ρ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠ·ΡΠΊΠΎΠ². Π’ΡΡΠ΄Π½ΠΎ ΠΏΠΈΡΠ°ΡΡ Π»Π΅ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ Π°Π½Π°Π»ΠΈΠ·Π°ΡΠΎΡ, ΠΊΠΎΠ³Π΄Π° Π²ΡΠ΅Π³ΠΎ ΠΎΠ΄ΠΈΠ½ ΠΎΡΠΈΠ±ΠΎΡΠ½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ²Π΅ΡΡΠΈ ΠΊ ΠΎΡΠΈΠ±ΠΊΠ΅ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ, Π° Π½Π΅ ΠΎΡΠΈΠ±ΠΊΠΈ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ, Π΅ΡΠ»ΠΈ ΡΠΊΠ°Π·Π°Π½Π½ΡΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ. Π Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠ°ΠΌΡΡ ΡΠ°Π½Π½ΠΈΡ Π²Π΅ΡΡΠΈΡΡ , Π½Π΅ Π±ΡΠ»ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (ΠΠΠ), ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠΎΠ»Π΅Π·Π½ΡΡ Π°ΡΡΠΈΠ±ΡΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΡΠ»ΠΎΠ²ΠΈΡΡ , ΠΈΠ»ΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΡΡΡΡΡΡΠ²ΠΎΠ²Π°Π»ΠΎ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠ°ΠΌΡΡΠΈ. Π ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ, ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΠ·ΡΠΊΠ° Π€ΠΎΡΡΡΠ°Π½ Π±ΡΠ» ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌ ΠΊ Π½Π°ΡΡΠ½ΡΠΌ ΡΠ°Π±ΠΎΡΠ°ΠΌ ΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡΠΌ, ΡΠ²ΡΠ·Π°Π½Π½ΡΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΠΌΠΈ Π½Π°Π΄ ΡΠΈΡΠ»Π°ΠΌΠΈ, Π° ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΠΈΠ· Π΅Π³ΠΎ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΎΠ² Π±ΡΠ»ΠΈ ΡΡΡΠ΅Π½Ρ Π² Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ·Π΄Π½ΠΈΡ Π²Π΅ΡΡΠΈΡΡ . ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Fortran 95 ΠΈΠΌΠ΅Π΅Ρ ΠΎΡΠ΅Π½Ρ ΠΊΠΎΡΠΎΡΠΊΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Ρ ΠΌΠ°ΡΡΠΈΡΠ°ΠΌΠΈ ΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ»ΡΡΡΠ°Π΅Ρ ΡΠΈΡΠ°Π΅ΠΌΠΎΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π½ΠΎ ΡΠ°ΠΊΠΆΠ΅ Π΄Π°Π΅Ρ ΠΏΠΎΠ»Π΅Π·Π½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π΄Π»Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠ° ΡΡΠΎΠ±Ρ ΠΎΠ½Π° ΠΌΠΎΠ³Π»Π° Π²Π΅ΠΊΡΠΎΡΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ. ΠΠΎ ΡΡΠΈΠΌ ΠΏΡΠΈΡΠΈΠ½Π°ΠΌ, Fortran Π½Π΅ ΡΠ°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π·Π° ΠΏΡΠ΅Π΄Π΅Π»Π°ΠΌΠΈ Π½Π°ΡΡΠ½ΡΡ ΠΈ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ, ΠΎΠ½ ΠΎΡΡΠ°Π΅ΡΡΡ ΡΠ·ΡΠΊΠΎΠΌ Π΄Π»Ρ Π²ΡΡΠΎΠΊΠΎΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠΈΡΠ»Π΅Π½Π½ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ.
* "ΠΠ°Π³ΠΈΡ ΠΠ" 2000 β6(28), Π‘. 49β50.Π 1955 Π³ΠΎΠ΄Ρ ΡΠ²ΠΈΠ΄Π΅Π» ΡΠ²Π΅Ρ ΠΏΠ΅ΡΠ²ΡΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ·ΡΠΊ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ FORTRAN
(FORmula TRANslator β ΡΡΠ°Π½ΡΠ»ΡΡΠΎΡ ΡΠΎΡΠΌΡΠ»). ΠΠ½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ Π² ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π°ΡΡΠ½ΠΎ-ΡΠ΅Ρ
Π½ΠΈΡΠ΅ΡΠΊΠΈΡ
ΠΈ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΡΡ
Π·Π°Π΄Π°Ρ, Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π»ΠΈ Π΅Π³ΠΎ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΈ ΡΠΈΡΠΌΡ IBM ΠΏΠΎΠ΄ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ ΠΠΆΠΎΠ½Π° ΠΡΠΊΡΡΠ°
. Π§ΡΡΡ ΠΏΠΎΠ·ΠΆΠ΅, Π² 1957 Π³ΠΎΠ΄Ρ, ΠΠΆΠΎΠ½ ΠΡΠΊΡΡ ΠΈ Π΅Π³ΠΎ ΡΠΎΡΡΡΠ΄Π½ΠΈΠΊΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΠ»ΠΈ Π² IBM (BeΡΡΠΈΠ½Π³Ρ
Π°ΡΠ·) ΠΏΠ΅ΡΠ²ΡΠΉ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ ΡΠ·ΡΠΊΠ° Π€ΠΎΡΡΡΠ°Π½. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ, ΡΠ°Π½Π΅Π΅ ΡΠ°Π±ΠΎΡΠ°Π²ΡΠΈΠ΅ ΠΈΡΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½Π° ΠΡΡΠ΅ΠΌΠ±Π»Π΅ΡΠ΅, ΡΠΊΠ΅ΠΏΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΡΠ½ΠΎΡΠΈΠ»ΠΈΡΡ ΠΊ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌ Π²ΡΡΠΎΠΊΠΎΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌ ΠΊΡΠΈΡΠ΅ΡΠΈΠ΅ΠΌ ΠΏΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΠΎΠ² Π½Π° Π€ΠΎΡΡΡΠ°Π½ ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² Ρ ΡΡΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° Π±ΡΠ»Π° ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°. ΠΡΡΠ°ΡΠΈ, ΡΠ΅ΡΠΌΠΈΠ½ "ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ" ΡΠΎΠ³Π΄Π° Π΅ΡΠ΅ ΡΠΈΡΠΎΠΊΠΎ Π½Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ, Ρ
ΠΎΡΡ ΡΠΆΠ΅ Π±ΡΠ» Π²Π²Π΅Π΄Π΅Π½ ΠΡΠ΅ΠΉΡ Π₯ΠΎΠΏΠΏΠ΅Ρ β Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ Π² Π‘Π¨Π ΠΆΠ΅Π½ΡΠΈΠ½ΠΎΠΉ-Π°Π΄ΠΌΠΈΡΠ°Π»ΠΎΠΌ, ΠΊΠΎΡΠΎΡΡΡ Π½Π°Π·ΡΠ²Π°Π»ΠΈ ΡΠ°ΠΊΠΆΠ΅ "ΠΏΠ΅ΡΠ²ΠΎΠΉ Π»Π΅Π΄ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π±Π°Π±ΡΡΠΊΠΎΠΉ ΠΠΎΠ±ΠΎΠ»Π°".
ΠΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² Π€ΠΎΡΡΡΠ°Π½Π° ΡΡΠ°Π½ΡΠ»ΠΈΡΠΎΠ²Π°Π»ΠΈΡΡ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ Π² ΠΎΠ΄Π½ΡβΠ΄Π²Π΅ ΠΌΠ°ΡΠΈΠ½Π½ΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ, ΠΏΡΠΎΡΡΡΠ΅ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ ΠΈ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ΅ΡΠΎΠΊ ΠΈ goto ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ»ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΎΡΠ΅Π½Ρ Π±ΡΡΡΡΡΠΉ ΠΊΠΎΠ΄, ΠΈ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π€ΠΎΡΡΡΠ°Π½Π΅ ΠΏΠΎΠ΄ΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ°Π»ΠΈ Π±ΡΡΡΡΠ΅Π΅ Π°ΡΡΠ΅ΠΌΠ±Π»Π΅ΡΠ½ΡΡ
. Π‘Π°ΠΌΠ° Π²Π½ΡΡΡΠ΅Π½Π½ΡΡ ΡΡΡΡΠΊΡΡΡΠ° ΠΎΡΡΡΠ°Π½ΡΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±ΡΠ»Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎΠΉ β Π²Π΅ΡΡ ΠΊΠΎΠ΄, Π²ΡΠ΅ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΎΠ±ΡΠΈΠΌ Π±Π»ΠΎΠΊΠΎΠΌ ΡΠ°Π·ΠΌΠ΅ΡΠ°Π»ΠΈΡΡ ΠΈΡΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π² ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ, ΠΈΠ·-Π·Π° ΡΠ΅Π³ΠΎ, ΠΏΡΠ°Π²Π΄Π°, Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ΅ΠΊΡΡΡΠΈΡ.
ΠΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π€ΠΎΡΡΡΠ°Π½ Π±ΡΠ» ΠΏΠ΅ΡΠ²ΡΠΌ ΡΠ·ΡΠΊΠΎΠΌ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ, ΠΎΡΠ²Π΅ΡΠ°ΡΡΠΈΠΌ Π½ΡΠΆΠ΄Π°ΠΌ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΡΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, Π΄Π° Π΅ΡΠ΅ ΠΈ ΠΏΡΠΎΡΡΡΠΌ Π² ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ, ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½ΠΈΠ»ΡΡ ΠΎΠ½ ΠΎΡΠ΅Π½Ρ Π±ΡΡΡΡΠΎ.
ΠΠ·-Π·Π° ΡΠΈΡΠΎΠΊΠΎΠ³ΠΎ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½ΠΈΡ ΡΡΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° ΠΈ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π€ΠΎΡΡΡΠ°Π½-ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ (ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ Ρ
Π°ΡΠ°ΠΊΡΠ΅ΡΠ°) Π½Π°ΡΡΡΠ½ΡΠΌ ΡΡΠ°Π» Π²ΠΎΠΏΡΠΎΡ Π΅Π³ΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·Π°ΡΠΈΠΈ. Π‘Π½Π°ΡΠ°Π»Π° ΡΡΠΎ Π±ΡΠ» ΡΡΠ°Π½Π΄Π°ΡΡ Fortran IV
1964 Π³ΠΎΠ΄Π°, Π·Π°ΡΠ΅ΠΌ, ΠΏΠΎ ΠΌΠ΅ΡΠ΅ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ
ΠΈΠ΄Π΅ΠΉ, Π² 1978 Π³ΠΎΠ΄Ρ Π±ΡΠ» ΠΏΡΠΈΠ½ΡΡ Π½ΠΎΠ²ΡΠΉ ΡΡΠ°Π½Π΄Π°ΡΡ Fortran 77
(f77) Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΡΠΈΡΠ»ΠΎΠΌ Π±ΠΎΠ»Π΅Π΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
ΠΈ Π³ΠΈΠ±ΠΊΠΈΡ
ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ
ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠΉ. Π‘Π΅Π³ΠΎΠ΄Π½Ρ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΠΌ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠΌ Π€ΠΎΡΡΡΠ°Π½Π° ΡΠ²Π»ΡΡΡΡΡ Fortran 90
(f90) ΠΈ Fortran 95
. ΠΡΡΠΏΠΏΠ° ΡΠ½ΡΡΠ·ΠΈΠ°ΡΡΠΎΠ² Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°Π΅Ρ ΡΠ°Π±ΠΎΡΡ Π½Π°Π΄ ΡΡΠΏΠ΅ΡΠ²Π΅ΡΡΠΈΠ΅ΠΉ ΡΠ·ΡΠΊΠ° F2k, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΠ΄Π΅Ρ ΠΎΠΏΡΠ±Π»ΠΈΠΊΠΎΠ²Π°Π½Π° Π² ΡΡΠΎΠΌ Π³ΠΎΠ΄Ρ.
Π₯ΠΎΡΡ Π² Π½ΠΎΠ²ΡΠ΅ Π²Π΅ΡΡΠΈΠΈ ΡΠ·ΡΠΊΠ° Π²Π½ΠΎΡΠΈΠ»ΠΈΡΡ ΠΏΠΎΠ΄ΡΠ°Ρ ΠΊΠ°ΠΊ Π½Π΅Π½ΡΠΆΠ½ΡΠ΅ Π΄ΠΎΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ, ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ Ρ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ Π°Π»Π»ΠΎΠΊΠ°ΡΠΈΠ΅ΠΉ ΠΏΠ°ΠΌΡΡΠΈ), ΡΠ°ΠΊ ΠΈ ΠΏΠΎΠ»Π΅Π·Π½ΡΠ΅, ΡΠΈΠΏΠ° ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠΉ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΡΡΡΠΌΠΈ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΠΈ Π΄Ρ., ΡΠ΅Π³ΠΎΠ΄Π½Ρ ΡΡΠΎΡ ΡΠ·ΡΠΊ Π½Π΅Π»ΡΠ·Ρ Π½Π°Π·Π²Π°ΡΡ ΠΏΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Π½ΡΠΌ Π΄Π»Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ Π΅Π³ΠΎ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΡΡΠ°ΡΠ΅Π».
ΠΠ΄Π½Π°ΠΊΠΎ ΡΠ΅ΠΌ, ΠΊΠΎΠΌΡ Π΄ΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠ°ΡΡΠΎ ΠΏΡΠΈΡ
ΠΎΠ΄ΠΈΡΡΡ ΡΠ΅ΡΠ°ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ, ΡΠΎΠ²ΡΠ΅ΠΌ Π½Π΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· Π±ΡΠ°ΡΡ Π² ΡΡΠΊΠΈ ΡΡΠ΅Π±Π½ΠΈΠΊ ΠΏΠΎ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠ΅ ΠΈ "Π½Π°ΡΠΈΠ½Π°ΡΡ Ρ Π½ΡΠ»Ρ". Π 90% ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΡ
ΡΠ»ΡΡΠ°Π΅Π² ΡΠΎ, ΡΡΠΎ Π²Ρ ΠΈΡΠ΅ΡΠ΅, ΡΠΆΠ΅ Π΄Π°Π²Π½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ΠΎ ΠΈ ΠΎΡΠ»Π°ΠΆΠ΅Π½ΠΎ Π½Π° Π€ΠΎΡΡΡΠ°Π½Π΅. ΠΠΎΡΡΠΎΠΌΡ, ΡΠΊΠΎΡΠ΅Π΅ Π²ΡΠ΅Π³ΠΎ, ΠΆΠΈΠ·Π½Ρ Π€ΠΎΡΡΡΠ°Π½Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½Π° Π½Π°Π΄ΠΎΠ»Π³ΠΎ.
ΠΡΡΡ ΠΈ Π΅ΡΠ΅ ΠΎΠ΄Π½Π°, ΡΡΠ°Π²Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΌΠΎΠ»ΠΎΠ΄Π°Ρ Π½ΠΈΡΠ° Π΄Π»Ρ Π€ΠΎΡΡΡΠ°Π½Π° β ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ, Π³Π΄Π΅ ΡΡΡΠΎΠ³Π°Ρ ΡΠ΅ΠΌΠ°Π½ΡΠΈΠΊΠ° ΡΠ·ΡΠΊΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π²ΡΡΠΎΠΊΠΎΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ±ΡΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡ f90, Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°ΡΡΠΈΡΠ΅Π½Π½ΡΠΉ Π½Π°Π±ΠΎΡΠΎΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² Π΄Π»Ρ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΏΡΠΈΠ³ΠΎΠ΄Π½ΡΡ
ΠΊ ΡΠ°ΡΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΠΈΠ²Π°Π½ΠΈΡ ΡΠ°ΡΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΠΉ Π€ΠΎΡΡΡΠ°Π½ ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉ ΡΡΠ°Π½Π΄Π°ΡΡ HPF
(High Performance Fortran). Π’Π΅ΠΌ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅ ΡΠ°Π½Π°ΡΡ Π€ΠΎΡΡΡΠ°Π½Π°, Π΄Π΅Π²ΠΈΠ·ΠΎΠΌ ΠΊΠΎΡΠΎΡΡΡ
ΡΡΠ°Π»Π° Π»Π΅Π³Π΅Π½Π΄Π°ΡΠ½Π°Ρ ΡΡΠ°Π·Π° "ΠΠ°ΡΠ΅ΠΌ ΠΌΠ½Π΅ ΠΈΠ·ΡΡΠ°ΡΡ Π΄ΡΡΠ³ΠΈΠ΅ ΡΠ·ΡΠΊΠΈ, ΠΊΠΎΠ³Π΄Π° Ρ ΠΌΠΎΠ³Ρ Π²ΡΡ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π½Π° Π€ΠΎΡΡΡΠ°Π½Π΅", ΠΎΡΡΡΠ°Π»ΠΈ Π΅Π³ΠΎ ΠΎΡΠ΅Π²ΠΈΠ΄Π½ΡΡ Π½Π΅ΠΏΡΠΈΠ³ΠΎΠ΄Π½ΠΎΡΡΡ Π΄Π»Ρ ΠΊΡΡΠΏΠ½ΠΎΠΌΠ°ΡΡΡΠ°Π±Π½ΡΡ
ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ², ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ ΠΏΡΠΈΠ²ΡΠ·Π°Π½Π½ΠΎΡΡΡΡ ΠΊ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΡ 50-Ρ
Π³ΠΎΠ΄ΠΎΠ², ΠΈ ΠΏΡΡΠ°Π»ΠΈΡΡ Π²Π²Π΅ΡΡΠΈ Π² Π½Π΅Π³ΠΎ ΠΌΠΎΠ΄Π½ΡΠ΅ ΠΈΠ΄Π΅ΠΈ ΠΠΠ, Π½ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΠΉ Π€ΠΎΡΡΡΠ°Π½ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΡΠ°Π½Π΄Π°ΡΡΠ° ΡΠ°ΠΊ ΠΈ Π½Π΅ ΠΏΠΎΡΠ²ΠΈΠ»ΡΡ.
Π‘ΡΠ΅Π΄ΠΈ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΠΎ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½ΡΠ΅ΠΌΡΡ
Π²Π΅ΡΡΠΈΠΉ Π€ΠΎΡΡΡΠ°Π½Π° Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΈΠ·Π²Π΅ΡΡΠ΅Π½ f2c, ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π½ΡΠΉ Π΄Π»Ρ Π²ΡΠ΅Ρ
UNIX-ΡΠΈΡΡΠ΅ΠΌ ΠΈ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΡΡΡΠΈΠΉ ΡΠ΅ΠΊΡΡ Π€ΠΎΡΡΡΠ°Π½-ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² Π‘ΠΈ-ΠΊΠΎΠ΄. ΠΠ»Ρ DOS ΠΈΠΌΠ΅Π΅ΡΡΡ Π²Π΅ΡΡΠΈΡ bcf77, ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½ΡΠ΅ΠΌΠ°Ρ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΠΎ. ΠΠ· ΠΊΠΎΠΌΠΌΠ΅ΡΡΠ΅ΡΠΊΠΈΡ
Π²Π΅ΡΡΠΈΠΉ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π½Π°Π΄ΠΎ ΠΎΡΠΌΠ΅ΡΠΈΡΡ Microsoft Fortran, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠΉ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ dll-Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ, ΠΈ Watcom Fortran, Π³Π΅Π½Π΅ΡΠΈΡΡΡΡΠΈΠΉ Π²ΡΡΠΎΠΊΠΎΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΠΉ ΠΊΠΎΠ΄. ΠΠ»Ρ Π·Π°Π΄Π°Ρ, ΡΡΠ΅Π±ΡΡΡΠΈΡ
Π²ΡΡΠΎΠΊΠΎΠΉ ΡΠΎΡΠ½ΠΎΡΡΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ ΡΠΈΡΠΌΡ MicroWay. Π Π²ΠΎΠΎΠ±ΡΠ΅ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΠΏΠΎ ΠΊΠ°ΡΠ΅ΡΡΠ²Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΡ Π€ΠΎΡΡΡΠ°Π½Π° ΠΈΠΌΠ΅ΡΡΡΡ Π½Π° Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎ Π²ΡΠ΅Ρ
ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ
ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ°Ρ
.
ΠΠ΄Π½Π°ΠΊΠΎ ΠΎΡΠ½ΠΎΠ²Π½Π°Ρ Π·Π°ΡΠ»ΡΠ³Π° Π€ΠΎΡΡΡΠ°Π½Π° Π² Π΄ΡΡΠ³ΠΎΠΌ. ΠΠΎΠ³Π΄Π° ΠΏΠΎΡΠ²ΠΈΠ»Π°ΡΡ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π² ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΎΡΠ΅Π½Ρ ΠΊΡΡΠΏΠ½ΡΡ
ΠΏΡΠΎΠ΅ΠΊΡΠΎΠ², Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΈ Π€ΠΎΡΡΡΠ°Π½Π°, ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Ρ "ΡΡΠΆΠ΅Π»ΠΎΠΉ" ΠΎΡΠ»Π°Π΄ΠΊΠΎΠΉ, ΡΡΠ°Π»ΠΈ ΠΈΠ·Π»ΠΈΡΠ½Π΅ ΠΎΠ±ΡΠ΅ΠΌΠ΅Π½ΠΈΡΠ΅Π»ΡΠ½Ρ. ΠΠΎΡΡΠΎΠΌΡ Π€ΠΎΡΡΡΠ°Π½ ΠΏΠΎΡΠ»ΡΠΆΠΈΠ» ΡΠΈΠ»ΡΠ½Π΅ΠΉΡΠΈΠΌ ΡΡΠΈΠΌΡΠ»ΠΎΠΌ Π΄Π»Ρ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΡΠ΅ΠΎΡΠΈΠΈ ΠΎΡΠ»Π°Π΄ΠΊΠΈ ΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ. ΠΠΎΡΠ²ΠΈΠ»ΠΈΡΡ ΡΠΎΡΠ½ΠΈ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ
Π²Π΅ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠΎΠ² Π€ΠΎΡΡΡΠ°Π½-ΡΠ΅ΠΊΡΡΠΎΠ², Π²ΡΠ»Π°Π²Π»ΠΈΠ²Π°ΡΡΠΈΡ
ΡΠΊΡΡΡΡΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ. Π Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΌ ΠΈΠ· ΡΡΠΎΠ³ΠΎ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π²ΡΡΠΎΡΠ»ΠΈ ΡΠ°ΠΊΠΈΠ΅ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΠ°ΠΊ ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½ΡΠ΅ ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΈΡΡΡΡΠΈΠ΅ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, Π²ΡΡΠΎΠΊΠΎΡΡΠΎΠ²Π½Π΅Π²Π°Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΡ, Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ Ρ.Π΄. Π’Π°ΠΊ ΡΡΠΎ ΠΏΡΠΎ Π€ΠΎΡΡΡΠ°Π½ Π·Π°Π±ΡΠ²Π°ΡΡ Π½ΠΈΠΊΠ°ΠΊ Π½Π΅Π»ΡΠ·Ρ. ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°ΡΠΈΡ Π² Π·Π°Π΄Π°ΡΠ°Ρ
ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠΉ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΠΈ, Π½Π°Π²Π΅ΡΠ½ΠΎΠ΅, Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ ΡΠΌΡΡΠ»Π°, Π½ΠΎ ΡΠΎ, ΡΡΠΎ Π±ΡΠ»ΠΎ Π½Π°ΡΠ°Π±ΠΎΡΠ°Π½ΠΎ Π»ΡΡΡΠΈΠΌΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°ΠΌΠΈ Π·Π° 30β40 Π»Π΅Ρ, Π²ΠΏΠΎΠ»Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ ΡΡΠΊΠΎΡΠΈΡΡ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ. ΠΠΎ ΠΊΡΠ°ΠΉΠ½Π΅ΠΉ ΠΌΠ΅ΡΠ΅, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ
"ΠΊΠΈΡΠΏΠΈΡΠΈΠΊΠΎΠ²" Π΄Π»Ρ Π€ΠΎΡΡΡΠ°Π½Π° Π½ΡΠ½Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π½Π΅ΡΡΠ°Π²Π½Π΅Π½Π½ΠΎ Π±ΠΎΠ»ΡΡΠ΅, ΡΠ΅ΠΌ Π΄Π»Ρ Π΄ΡΡΠ³ΠΈΡ
ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. β
* * *
ΠΠΆΠΎΠ½ ΠΡΠΊΡΡ
ΡΠΎΠ΄ΠΈΠ»ΡΡ 3 Π΄Π΅ΠΊΠ°Π±ΡΡ 1924 Π² Π€ΠΈΠ»Π°Π΄Π΅Π»ΡΡΠΈΠΈ, ΡΡΠ°Ρ ΠΠ΅Π½ΡΠΈΠ»ΡΠ²Π°Π½ΠΈΡ, Π² Π±ΠΎΠ³Π°ΡΠΎΠΉ ΡΠ΅ΠΌΡΠ΅, Π΄Π΅ΡΡΠΊΠΈΠ΅ Π³ΠΎΠ΄Ρ ΠΏΡΠΎΠ²Π΅Π» Π² ΠΠΈΠ»ΠΌΠΈΠ½Π³ΡΠΎΠ½Π΅. ΠΠ°ΠΊΠΎΠ½ΡΠΈΠ² ΡΠΊΠΎΠ»Ρ Π² 1942 Π³ΠΎΠ΄Ρ, ΠΎΠ½ ΠΏΠΎΡΡΡΠΏΠΈΠ» Π² ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΡΡΠ°ΡΠ° ΠΠΈΡΠ΄ΠΆΠΈΠ½ΠΈΡ Π½Π° Ρ
ΠΈΠΌΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ°ΠΊΡΠ»ΡΡΠ΅Ρ (ΠΏΠΎ Π½Π°ΡΡΠΎΡΠ½ΠΈΡ ΠΎΡΡΠ°-Ρ
ΠΈΠΌΠΈΠΊΠ°), Π½ΠΎ ΡΠΏΡΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π» Π·Π°Π½ΠΈΠΌΠ°ΡΡΡΡ ΠΈ Π² 1943 Π³ΠΎΠ΄Ρ Π±ΡΠ» ΠΏΡΠΈΠ·Π²Π°Π½ Π½Π° Π²ΠΎΠ΅Π½Π½ΡΡ ΡΠ»ΡΠΆΠ±Ρ.
ΠΡΠΊΡΡ Π½Π°ΡΠΈΠ½Π°Π» ΡΠ»ΡΠΆΠΈΡΡ Π² Π±ΡΠΈΠ³Π°Π΄Π΅ ΠΏΡΠΎΡΠΈΠ²ΠΎΠ²ΠΎΠ·Π΄ΡΡΠ½ΠΎΠΉ ΠΎΠ±ΠΎΡΠΎΠ½Ρ Π² ΡΠΎΡΡΠ΅ Stewart, ΡΡΠ°Ρ ΠΠΆΠΎΡΠ΄ΠΆΠΈΡ, Π½ΠΎ Π²ΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠΈ Π±ΡΠ» Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ Π² ΠΊΠΎΠ»Π»Π΅Π΄ΠΆ Π΄Π»Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ ΠΌΠ΅Π΄ΠΈΡΠΈΠ½Ρ.
ΠΠ΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ ΠΎΠ½ Ρ ΡΠ²Π»Π΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ°Π±ΠΎΡΠ°Π» Π² Π³ΠΎΡΠΎΠ΄ΡΠΊΠΎΠΉ Π±ΠΎΠ»ΡΠ½ΠΈΡΠ΅, Π½ΠΎ Π² 1946 Π³ΠΎΠ΄Ρ ΠΎΡ
Π»Π°Π΄Π΅Π» ΠΊ ΡΡΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅, ΠΎΡΡΠ°Π²ΠΈΠ» Π°ΡΠΌΠΈΡ ΠΈ ΠΏΠ΅ΡΠ΅Π΅Ρ
Π°Π» Π² ΠΡΡ-ΠΠΎΡΠΊ, Ρ
ΠΎΡΡ Π½Π΅ Π·Π½Π°Π» Π·Π° ΡΡΠΎ Π±ΡΠ°ΡΡΡΡ ΠΈ ΠΊΠ°ΠΊ ΠΆΠΈΡΡ Π΄Π°Π»ΡΡΠ΅.
Π§Π΅ΡΠ΅Π· Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ ΠΡΠΊΡΡ ΠΏΠΎΡΡΡΠΏΠΈΠ» Π² ΡΠΊΠΎΠ»Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΡΠ°Π΄ΠΈΠΎΡΠ΅Ρ
Π½ΠΈΠΊΠΎΠ². "Π£ ΠΌΠ΅Π½Ρ Π±ΡΠ» ΠΎΡΠ΅Π½Ρ Ρ
ΠΎΡΠΎΡΠΈΠΉ ΠΏΡΠ΅ΠΏΠΎΠ΄Π°Π²Π°ΡΠ΅Π»Ρ, ΠΈ ΠΎΠ½ ΠΏΠΎΠΏΡΠΎΡΠΈΠ», ΡΡΠΎΠ±Ρ Ρ Π²ΡΡΠΈΡΠ»ΠΈΠ» Ρ
Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ
ΡΡ
Π΅ΠΌ. ΠΡΠΎ Π±ΡΠ»ΠΎ ΡΡΡΠ°ΡΠ½ΠΎ ΡΡΠΎΠΌΠΈΡΠ΅Π»ΡΠ½ΠΎ, Π½ΠΎ ΠΊΡΠ°ΠΉΠ½Π΅ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½ΠΎ".
ΠΡΠΊΠΎΡΠ΅ ΠΡΠΊΡΡ ΠΏΠΎΡΡΡΠΏΠΈΠ» Π² ΠΠΎΠ»ΡΠΌΠ±ΠΈΠΉΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ (ΠΡΡ-ΠΠΎΡΠΊ), ΡΡΠΎΠ±Ρ ΠΈΠ·ΡΡΠ°ΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΡ, Π³Π΄Π΅ ΠΈ ΠΏΠΎΠ»ΡΡΠΈΠ» Π²ΡΡΡΠ΅Π΅ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ (1949 Π³.). ΠΠ΅Π·Π°Π΄ΠΎΠ»Π³ΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΡΠ΅ΠΌ, ΠΊΠ°ΠΊ Π·Π°ΠΊΠΎΠ½ΡΠΈΡΡ ΠΎΠ±ΡΡΠ΅Π½ΠΈΠ΅, ΠΎΠ½ ΠΏΠΎΡΠ΅ΡΠΈΠ» ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠΉ ΡΠ΅Π½ΡΡ IBM
Π½Π° ΠΡΠ΄ΠΈΡΠΎΠ½ ΠΠ²Π΅Π½Ρ. Π Π·Π΄Π΅ΡΡ ΡΠ΄Π°ΡΠ° Π²ΠΎ Π²ΡΠΎΡΠΎΠΉ ΡΠ°Π· ΡΠ»ΡΠ±Π½ΡΠ»Π°ΡΡ Π΅ΠΌΡ β Π² 1950 Π³ΠΎΠ΄Ρ ΠΡΠΊΡΡ ΡΡΠ°Π» ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠΌ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ IBM.
Π Π΄ΠΎΠΌΠΈΠ½ΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ IBM Π² ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΈΠ½Π΄ΡΡΡΡΠΈΠΈ Π²ΠΏΠ΅ΡΠ²ΡΠ΅ Π·Π°Π³ΠΎΠ²ΠΎΡΠΈΠ»ΠΈ Π² 1952 Π³ΠΎΠ΄Ρ. ΠΡΡ Π½Π°ΡΠ°Π»ΠΎΡΡ Ρ ΠΌΠΎΠ΄Π΅Π»ΠΈ 701, ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΠΉ ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ΄ ΠΈΠΌΠ΅Π½Π΅ΠΌ Defence Calculator (ΠΎΠ±ΠΎΡΠΎΠ½Π½ΡΠΉ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»Ρ). Π‘ΡΠ°Π·Ρ ΠΏΠΎΡΠ»Π΅ Π²ΡΠΏΡΡΠΊΠ° ΠΌΠΎΠ΄Π΅Π»ΠΈ 701 ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΡΡΡ ΠΏΠΎΠ΄ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΡ
ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠΉ ΠΏΡΠΈΡΡΡΠΏΠΈΠ»ΠΈ ΠΊ Π΅Π΅ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΡ (1955β1956 Π³ΠΎΠ΄Ρ).
ΠΠ°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ΅ΡΡΠ΅Π·Π½ΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠΈΠ» Π²Π½Π΅ΡΡΠΈ ΠΠΆΠΎΠ½ ΠΡΠΊΡΡ, Π²ΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠΈ ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π²ΡΠΈΠΉ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ΅ ΡΡΠ°ΡΡΠΈΠ΅ Π² ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° 704. Π ΡΠ°ΡΡΠ½ΠΎΡΡΠΈ, Π±Π»Π°Π³ΠΎΠ΄Π°ΡΡ Π΅ΠΌΡ ΠΏΠΎΡΠ²ΠΈΠ»Π°ΡΡ ΡΠ΅Ρ
Π½ΠΎΠ»ΠΎΠ³ΠΈΡ ΡΠ°ΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠ³ΠΎ "ΡΡΠΊΠΎΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΡ" (speed-coding), ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΠ²ΡΠ°Ρ Π·Π°ΠΌΠ΅ΡΠ½ΠΎ ΡΠΏΡΠΎΡΡΠΈΡΡ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π΄Π»Ρ 701. "ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΡΠΊΠΎΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠ΄Π° Π΄Π»Ρ ΠΌΠ°ΡΠΈΠ½Ρ 701, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ»Π° ΡΠΎΠ±ΠΎΠΉ ΠΎΠ΄Π½ΠΎΠ°Π΄ΡΠ΅ΡΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ Ρ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π·Π°ΠΏΡΡΠΎΠΉ Π±Π΅Π· ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΡΡ
ΡΠ΅Π³ΠΈΡΡΡΠΎΠ², ΠΏΡΠ΅Π²ΡΠ°ΡΠΈΠ»Π° Π΅Π΅ Π² ΡΠΈΡΡΠ΅ΠΌΡ Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ Π·Π°ΠΏΡΡΠΎΠΉ, ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠΉ Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΠ΅ΠΉ ΠΈ ΠΈΠ½Π΄Π΅ΠΊΡΠ½ΡΠΌΠΈ ΡΠ΅Π³ΠΈΡΡΡΠ°ΠΌΠΈ, β Π²ΡΠΏΠΎΠΌΠΈΠ½Π°Π» ΠΡΠΊΡΡ. β Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌ Π±ΠΎΠ»ΡΡΠ΅ Π½Π΅ Π½ΡΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΠΌΡΡΠΈΡΡΡΡ Ρ Π΄Π²ΠΎΠΈΡΠ½ΡΠΌ ΠΊΠΎΠ΄ΠΎΠΌ".
Π£ΠΆΠ΅ ΡΠΎΠ³Π΄Π° ΠΏΠΎΡΠ²ΠΈΠ»ΠΈΡΡ ΠΏΠ΅ΡΠ²ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠ΅Ρ
Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ Π±ΡΡΡΡΠΎΠ³ΠΎ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ΅Π³ΠΎΠ΄Π½Ρ. Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π΄Π°Π½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΡΠ°Π»Π° ΠΏΡΠ΅Π΄ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΈΡΠ΅ΠΉ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΡ
ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ»ΠΈ Π²ΡΠΏΡΡΠ΅Π½Ρ Π² 50β60 Π³ΠΎΠ΄Π°Ρ
ΠΈ Π²ΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠΈ Π²ΡΡΠ΅ΡΠ½Π΅Π½Ρ ΡΠ·ΡΠΊΠ°ΠΌΠΈ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ.
Π Π² 1955 Π³ΠΎΠ΄Ρ ΠΡΠΊΡΡ "ΠΈΠ·ΠΎΠ±ΡΠ΅Π»" Π€ΠΎΡΡΡΠ°Π½, ΠΏΠ΅ΡΠ²ΡΠΉ ΠΌΠ°ΡΠΈΠ½Π½ΡΠΉ ΡΠ·ΡΠΊ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ. ΠΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠΈ, Π²ΡΠΏΠΎΠΌΠΈΠ½Π°Ρ ΡΡΠΎΡ ΠΏΠ΅ΡΠΈΠΎΠ΄, ΠΡΠΊΡΡ ΡΠΊΠ°ΠΆΠ΅Ρ: "ΠΡ Π½Π΅ Π·Π½Π°Π»ΠΈ, ΠΊ ΡΠ΅ΠΌΡ ΡΡΡΠ΅ΠΌΠΈΡΡΡΡ, ΠΈ Π½Π΅ Π·Π½Π°Π»ΠΈ, ΠΊΠ°ΠΊ ΡΡΠΎ ΡΠ΄Π΅Π»Π°ΡΡ". ΠΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½ΠΎ Π²ΡΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΠ»Π°Π½ΠΈΡΠΎΠ²Π°Π»ΠΎΡΡ Π·Π°Π²Π΅ΡΡΠΈΡΡ Π² Π½Π°ΡΠ°Π»Π΅ 1954 Π³ΠΎΠ΄Π°, ΠΎΠ΄Π½Π°ΠΊΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ·ΡΠΊΠ° Π·Π°Π²Π΅ΡΡΠΈΠ»Π°ΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ΅ΡΠ΅Π· Π΄Π²Π° Π³ΠΎΠ΄Π°.
ΠΠ΅ΡΠ²Π°Ρ Π²Π΅ΡΡΠΈΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠ° ΡΠΎΡΡΠΎΡΠ»Π° ΠΈΠ· 25000 ΡΡΡΠΎΠΊ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°, Π·Π°ΠΏΠΈΡΠ°Π½Π½ΠΎΠ³ΠΎ Π½Π° ΠΌΠ°Π³Π½ΠΈΡΠ½ΠΎΠΉ Π»Π΅Π½ΡΠ΅. ΠΠ°ΠΆΠ΄Π°Ρ IBM 704 ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π»Π°ΡΡ ΠΊΠΎΠΏΠΈΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° 51 ΡΡΡΠ°Π½ΠΈΡΠ΅.
Π 1959 Π³ΠΎΠ΄Ρ ΠΡΠΊΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π» Π³ΡΠ°ΠΌΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° Π΄Π»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ° ΡΠ·ΡΠΊΠΎΠ² Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ (Π½ΠΎΡΠΌΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΌΠ° ΠΡΠΊΡΡΠ°-ΠΠ°ΡΡΠ°, ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎ ΠΠΠ€).
Π 1976 Π³ΠΎΠ΄Ρ ΠΠΆΠΎΠ½ ΠΡΠΊΡΡ Π±ΡΠ» Π½Π°Π³ΡΠ°ΠΆΠ΄Π΅Π½ ΠΠ°ΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ ΠΌΠ΅Π΄Π°Π»ΡΡ Π·Π° Π²ΠΊΠ»Π°Π΄ Π² Π½Π°ΡΠΊΡ, Π° Ρ 1991 Π³ΠΎΠ΄Π° ΠΏΠ΅ΡΠ΅ΡΡΠ°Π» Π·Π°Π½ΠΈΠΌΠ°ΡΡΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠΎΠΉ.
ΠΠ»Π°Π΄ΠΈΠΌΠΈΡ ΠΡΡΠ»Π°Π΅Π²
OCR: fir-vst, 2016
- gfortran 4.5.0
Π€ΠΎΡΡΡΠ°Π½ (Fortran) - ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ (ΠΏΠΎΡΠ»Π΅ ), ΠΏΡΠ°Π²Π΄Π°, Ρ ΠΎΠ΄Π½ΠΎΠΉ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΉ ΠΎΠ³ΠΎΠ²ΠΎΡΠΊΠΎΠΉ - Π΄Π»Ρ ΠΌΠ°ΡΠΈΠ½, ΠΏΠΎΡΡΡΠΎΠ΅Π½Π½ΡΡ ΠΏΠΎ ΠΊΠ»Π°ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡ Π΅ΠΌΠ΅ ΡΠΎΠ½ ΠΠ΅ΠΉΠΌΠ°Π½Π°. Π‘ΠΎΠ·Π΄Π°Π½ Π² ΠΏΠ΅ΡΠΈΠΎΠ΄ Ρ 1954 ΠΏΠΎ 1957 Π³ΠΎΠ΄ Π³ΡΡΠΏΠΏΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ² ΠΏΠΎΠ΄ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎΠΌ ΠΠΆΠΎΠ½Π° ΠΡΠΊΡΡΠ° (John Backus) Π² ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ IBM. Π§Π΅ΡΠ΅Π· ΠΏΠ°ΡΡ Π»Π΅Ρ Π½Π°ΡΠ°Π»ΠΈΡΡ Π΅Π³ΠΎ ΠΊΠΎΠΌΠΌΠ΅ΡΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠΎΡΡΠ°Π²ΠΊΠΈ. ΠΠΎ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π²Π΅Π»ΠΎΡΡ Π»ΠΈΠ±ΠΎ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ Π² ΠΌΠ°ΡΠΈΠ½Π½ΡΡ ΠΊΠΎΠ΄Π°Ρ , Π»ΠΈΠ±ΠΎ Π½Π° ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΈΡ Π°ΡΡΠ΅ΠΌΠ±Π»Π΅ΡΠ°Ρ . ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ Fortran ΡΠ²Π»ΡΠ΅ΡΡΡ Π°Π±Π±ΡΠ΅Π²ΠΈΠ°ΡΡΡΠΎΠΉ ΠΎΡ FORmula TRANslator, ΡΠΎ Π΅ΡΡΡ, ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ΡΠΈΠΊ ΡΠΎΡΠΌΡΠ».
Π€ΠΎΡΡΡΠ°Π½ ΡΠΈΡΠΎΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π΄Π»Ρ Π½Π°ΡΡΠ½ΡΡ ΠΈ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ. ΠΠ΄Π½ΠΎ ΠΈΠ· ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ² ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ Π€ΠΎΡΡΡΠ°Π½Π° - Π±ΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π½Π°ΠΏΠΈΡΠ°Π½Π½ΡΡ Π½Π° Π½ΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ. Π‘ΡΠ΅Π΄ΠΈ ΡΡΡΠ½ΡΡ , Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Ρ ΠΎΠ΄ΠΈΡ ΡΠ°ΠΊΠ°Ρ ΠΏΡΠΈΡΠΊΠ°Π·ΠΊΠ°, ΡΡΠΎ Π»ΡΠ±Π°Ρ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ Π·Π°Π΄Π°ΡΠ° ΡΠΆΠ΅ ΠΈΠΌΠ΅Π΅Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π½Π° Π€ΠΎΡΡΡΠ°Π½Π΅, ΠΈ, Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ, ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ ΡΡΠ΅Π΄ΠΈ ΡΡΡΡΡ ΡΠΎΡΡΡΠ°Π½ΠΎΠ²ΡΠΊΠΈΡ ΠΏΠ°ΠΊΠ΅ΡΠΎΠ² ΠΈ ΠΏΠ°ΠΊΠ΅Ρ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΡ, ΠΈ ΠΏΠ°ΠΊΠ΅Ρ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ»ΠΎΠΆΠ½ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΡΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ ΠΈ ΠΌΠ½ΠΎΠ³ΠΈΠ΅, ΠΌΠ½ΠΎΠ³ΠΈΠ΅ Π΄ΡΡΠ³ΠΈΠ΅. Π ΡΠ΄ ΡΠ°ΠΊΠΈΡ ΠΏΠ°ΠΊΠ΅ΡΠΎΠ² ΡΠΎΠ·Π΄Π°Π²Π°Π»ΠΈΡΡ Π½Π° ΠΏΡΠΎΡΡΠΆΠ΅Π½ΠΈΠΈ Π΄Π΅ΡΡΡΠΈΠ»Π΅ΡΠΈΠΉ ΠΈ ΠΏΠΎΠΏΡΠ»ΡΡΠ½Ρ ΠΏΠΎ ΡΠ΅ΠΉ Π΄Π΅Π½Ρ (Π³Π»Π°Π²Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Π² Π½Π°ΡΡΠ½ΠΎΠΉ ΡΡΠ΅Π΄Π΅).
ΠΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΡΠ°ΠΊΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π΄ΠΎΡΡΠΎΡΠ½ΠΈΠ΅ΠΌ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΡΠ²Π°: ΠΎΠ½ΠΈ Π΄ΠΎΡΡΡΠΏΠ½Ρ Π² ΠΈΡΡ ΠΎΠ΄Π½ΡΡ ΠΊΠΎΠ΄Π°Ρ , Ρ ΠΎΡΠΎΡΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Ρ, ΠΎΡΠ»Π°ΠΆΠ΅Π½Ρ ΠΈ Π²Π΅ΡΡΠΌΠ° ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½Ρ. ΠΠΎΡΡΠΎΠΌΡ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ, Π° ΡΠ΅ΠΌ Π±ΠΎΠ»Π΅Π΅ ΠΏΠ΅ΡΠ΅ΠΏΠΈΡΡΠ²Π°ΡΡ ΠΈΡ Π½Π° Π΄ΡΡΠ³ΠΈΡ ΡΠ·ΡΠΊΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π°ΠΊΠ»Π°Π΄Π½ΠΎ, Π½Π΅ΡΠΌΠΎΡΡΡ Π½Π° ΡΠΎ, ΡΡΠΎ ΡΠ΅Π³ΡΠ»ΡΡΠ½ΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΡΡ ΠΏΠΎΠΏΡΡΠΊΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΊΠΎΠ½Π²Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ FORTRAN-ΠΊΠΎΠ΄Π° Π½Π° ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
Π‘Π²ΠΎΠ΅Π³ΠΎ ΡΠΎΠ΄Π° Β«Π²ΠΈΠ·ΠΈΡΠ½ΠΎΠΉ ΠΊΠ°ΡΡΠΎΡΠΊΠΎΠΉΒ» ΡΡΠ°ΡΠΎΠ³ΠΎ Fortran ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΌΠ΅ΡΠΎΠΊ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈΡΡ ΠΊΠ°ΠΊ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°Ρ Π±Π΅Π·ΡΡΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° GOTO , ΡΠ°ΠΊ ΠΈ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°Ρ ΡΠΈΠΊΠ»ΠΎΠ², ΠΈ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠΎΡΠΌΠ°ΡΠ½ΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄Π°/Π²ΡΠ²ΠΎΠ΄Π° FORMAT . ΠΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΠΌΠ΅ΡΠΎΠΊ ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² GOTO ΡΠ°ΡΡΠΎ Π΄Π΅Π»Π°Π»ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π€ΠΎΡΡΡΠ°Π½Π΅ ΡΡΡΠ΄Π½ΡΠΌΠΈ Π΄Π»Ρ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΡ.
ΠΠΌΠ΅Π½Π½ΠΎ ΡΡΠΎΡ Π½Π΅Π³Π°ΡΠΈΠ²Π½ΡΠΉ ΠΎΠΏΡΡ ΡΡΠ°Π» ΠΏΡΠΈΡΠΈΠ½ΠΎΠΉ, ΠΏΠΎ ΠΊΠΎΡΠΎΡΠΎΠΉ Π² ΡΡΠ΄Π΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Java) ΠΌΠ΅ΡΠΊΠΈ ΠΈ ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ Ρ Π½ΠΈΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ Π±Π΅Π·ΡΡΠ»ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° Π²ΠΎΠΎΠ±ΡΠ΅ ΠΎΡΡΡΡΡΡΠ²ΡΡΡ.
ΠΠ΄Π½Π°ΠΊΠΎ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΉ Fortran ΠΈΠ·Π±Π°Π²Π»Π΅Π½ ΠΎΡ ΠΈΠ·Π±ΡΡΠΊΠ° ΠΌΠ΅ΡΠΎΠΊ Π·Π° ΡΡΠ΅Ρ Π²Π²Π΅Π΄Π΅Π½ΠΈΡ ΡΠ°ΠΊΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ², ΠΊΠ°ΠΊ DO β¦ END DO, DO WHILE, SELECT CASE. Π’Π°ΠΊΠΆΠ΅ ΠΊ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΠΌ ΡΠ΅ΡΡΠ°ΠΌ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ Fortran ΡΡΠΎΠΈΡ ΠΎΡΠ½Π΅ΡΡΠΈ Π±ΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Ρ ΠΌΠ°ΡΡΠΈΠ²Π°ΠΌΠΈ ΠΈ Π³ΠΈΠ±ΠΊΡΡ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² Ρ Π½Π΅ΠΎΠ±ΡΡΠ½ΠΎΠΉ ΠΈΠ½Π΄Π΅ΠΊΡΠ°ΡΠΈΠ΅ΠΉ.
ΠΠ·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΡΠ·ΡΠΊΠ°ΠΌΠΈ
ΠΠ½ΠΎΠ³ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½ΠΎΠ²Π°ΡΡ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΡΠ°Π½ΡΠ»ΡΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Fortran ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΡΠΌΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠΌΠΈ ΠΎΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ² Ρ Π΄ΡΡΠ³ΠΈΡ ΡΠ·ΡΠΊΠΎΠ², ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π±ΠΎΠ»Π΅Π΅ Π³ΠΈΠ±ΠΊΠΈΠ΅ ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. ΠΠ»Ρ ΡΠ·ΡΠΊΠ° Π€ΠΎΡΡΡΠ°Π½ ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎΡΡΡΠΏΠ½ΠΎ Π±ΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΠΊΠ°ΠΊ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠ»Π°ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ Π·Π°Π΄Π°Ρ (LAPACK, IMSL, BLAS), Π·Π°Π΄Π°Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ (MPI, pvm), ΡΠ°ΠΊ ΠΈ Π·Π°Π΄Π°Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠΎΠ² (Quickwin, FORTRAN/TK) ΠΈΠ»ΠΈ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Π‘Π£ΠΠ (Oracle).
ΠΠ°ΡΠ»Π΅Π΄ΠΈΠ΅ Fortran
Fortran ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΡΠΈΠ΄Π΅ΡΡΡΠΈ Π»Π΅Ρ ΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΎΠ³ΡΠΎΠΌΠ½Π°Ρ ΡΠ°ΡΡΡ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠ°Ρ Π΅ΠΌΡ ΠΈ ΠΏΠΎ ΡΠ΅ΠΉ Π΄Π΅Π½Ρ. Fortran - ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠ·ΡΠΊ Π΄Π»Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ Π·Π°Π΄Π°Ρ ΡΡΠ΅Π±ΡΡΡΠΈΡ ΠΎΠ³ΡΠΎΠΌΠ½ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ, ΡΠ°ΠΊΠΈΡ ΠΊΠ°ΠΊ ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ³ΠΎΠ΄Ρ ΠΈ ΠΊΠ»ΠΈΠΌΠ°ΡΠ°, Π³ΠΈΠ΄ΡΠΎΠ³Π°Π·ΠΎΠ΄ΠΈΠ½Π°ΠΌΠΈΠΊΠ°, Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½Π°Ρ Ρ ΠΈΠΌΠΈΡ, ΠΊΠ²Π°Π½ΡΠΎΠ²Π°Ρ Ρ ΡΠΎΠΌΠΎΠ΄ΠΈΠ½Π°ΠΌΠΈΠΊΠ°, ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π΄ΠΈΠ½Π°ΠΌΠΈΠΊΠΈ ΡΠΎΠ»Π½Π΅ΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ, Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΎΡΠ±ΠΈΡ ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΏΡΡΠ½ΠΈΠΊΠΎΠ² ΠΈ ΠΌΠ½ΠΎΠ³ΠΈΠ΅ Π΄ΡΡΠ³ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ.
ΠΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌΠΎΡΡΡ
ΠΠΎΠ½Π°ΡΠ°Π»Ρ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌΠΎΡΡΡ Π΄Π»Ρ Fortran Π±ΡΠ»Π° Π²Π΅ΡΡΠΌΠ° Π½Π°ΡΡΡΠ½ΠΎΠΉ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠΎΠΉ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ Π½Π΅ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π»ΠΎ Π½ΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π΅Π΄ΠΈΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ° ΠΈ Π΄Π°ΠΆΠ΅ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎΡ IBM. Π ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΡΠΈΡΠΌΡ ΡΠΎΠΏΠ΅ΡΠ½ΠΈΡΠ°Π»ΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΠ±ΠΎΠΉ, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Ρ Π½Π΅ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΠΎΡΡΡ Π΄Π»Ρ ΡΠ°Π·Π½ΡΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ². ΠΡΠΏΡΠ°Π²ΠΈΠ»ΠΎ Π΄Π΅Π»ΠΎ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΠΎΠ². Π‘ΡΠ°Π½Π΄Π°ΡΡ 1966 Π³ΠΎΠ΄Π° ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π» ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΈ ΡΠ΅ΠΌΠ°Π½ΡΠΈΠΊΡ, Π½ΠΎ ΠΏΡΠΎΠ΄Π°Π²ΡΡ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°Π»ΠΈ Π²Π½Π΅Π΄ΡΡΡΡ Π½Π΅ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΡΠ΅ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ. ΠΡΠΌΠΎΡΡΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ ΠΏΠΎΠ½ΠΈΠΌΠ°Π»ΠΈ, ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π΅ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠΉ Π²ΡΠ·ΠΎΠ²Π΅Ρ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌΠΎΡΡΠΈ ΠΈ Π·Π°ΡΠ°ΡΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π°ΠΏΠΎΠ΄ΠΎΠ±ΠΈΠ΅ Β«The PFORT VerifierΒ» Π΄Π»Ρ Π²ΡΡΠ²Π»Π΅Π½ΠΈΡ Π½Π΅ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠΉ.
ΠΠ΅ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌΡΠ΅ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ Π±ΡΠ»ΠΈ Π½Π΅ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠΎΠΉ. Π‘ΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π» ΡΡΠ΄ ΠΏΡΠΎΠ±Π»Π΅ΠΌ Ρ ΡΠΈΡΠ»Π΅Π½Π½ΡΠΌΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡΠΌΠΈ. ΠΠΎΠ·ΠΆΠ΅ Π±ΡΠ»Π° ΡΠ°Π·Π²ΠΈΡΠ° ΠΈ Π²Π½Π΅Π΄ΡΠ΅Π½Π° ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½Π°Ρ ΠΈΠ΄Π΅Ρ Π΄Π²ΠΎΠΈΡΠ½ΠΎΠΉ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΠΊΠΈ Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ Π·Π°ΠΏΡΡΠΎΠΉ.
ΠΠΎΡΡΡΠΏ ΠΊ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΠΎΠΉ ΡΡΠ΅Π΄Π΅ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΊ ΠΊΠΎΠΌΠ°Π½Π΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠ΅, ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΡΡΠ΅Π΄Ρ) Π±ΡΠ» Π²Π΅ΡΡΠΌΠ° Π·Π°ΡΡΡΠ΄Π½ΠΈΡΠ΅Π»Π΅Π½, ΠΏΠΎΠΊΠ° Π½Π° ΡΡΠΎ Π½Π΅ ΠΎΠ±ΡΠ°ΡΠΈΠ»ΠΈ Π½Π° ΡΡΠΎ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅ Π² ΡΡΠ°Π½Π΄Π°ΡΡΠ΅ 2003 Π³ΠΎΠ΄Π°.
Π‘Π΅ΠΉΡΠ°Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΡΠΎΡΡΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΠΌΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Fortran.
ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ°:
ΠΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΉ Π΄ΠΎ ΠΊΠΎΠ½ΡΠ° ΡΡΡΠΎΠΊΠΈ | ! ΠΈΠ»ΠΈ * Π² ΠΏΠ΅ΡΠ²ΠΎΠΌ ΡΠΈΠΌΠ²ΠΎΠ»Π΅ ΡΡΡΠΎΠΊΠΈ |
---|---|
Π Π΅Π³ΠΈΡΡΡΠΎΠ·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ | ΠΠ΅Ρ |
Π Π΅Π³ΡΠ»ΡΡΠ½ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ | [_a-zA-Z0-9]{0-n} |
ΠΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ | = |
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ | type:: variable |
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Ρ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ | type:: variable = value |
ΠΡΡΠΏΠΏΠΈΡΠΎΠ²ΠΊΠ° Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΉ | () |
ΠΠ»ΠΎΠΊ | do ... end do |
Π Π°Π²Π΅Π½ΡΡΠ²ΠΎ | = ΠΈΠ»ΠΈ.EQ. |
ΠΠ΅ΡΠ°Π²Π΅Π½ΡΡΠ²ΠΎ | /= ΠΈΠ»ΠΈ.NE. |
Π‘ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ | == < > <= >= <> ΠΈΠ»ΠΈ.LT. .GT. .LE. .GE. |
ΠΡΠ·ΠΎΠ² ΡΡΠ½ΠΊΡΠΈΠΈ | CALL f(a,b...) |
ΠΡΠ·ΠΎΠ² ΡΡΠ½ΠΊΡΠΈΠΈ Π±Π΅Π· ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² | CALL f |
ΠΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ | ΠΊΠΎΠ½Π΅Ρ ΡΡΡΠΎΠΊΠΈ |
ΠΡΠ»ΠΈ - ΡΠΎ | if condition then ... end if |
ΠΡΠ»ΠΈ - ΡΠΎ - ΠΈΠ½Π°ΡΠ΅ | if condition then ... else ... endif |
Π¦ΠΈΠΊΠ» Ρ ΠΏΠΎΡΡΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ | DO ... WHILE (condition) |
Π¦ΠΈΠΊΠ» for - next Π΄Π»Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΠ΅Π»ΡΡ ΡΠΈΡΠ΅Π» Ρ ΠΈΠ½ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠΎΠΌ Π½Π° 1 | do label i = 1, 10 |
Π¦ΠΈΠΊΠ» for - next Π΄Π»Ρ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΠ΅Π»ΡΡ ΡΠΈΡΠ΅Π» Ρ Π΄Π΅ΠΊΡΠ΅ΠΌΠ΅Π½ΡΠΎΠΌ Π½Π° 1 | do label i = 10, 1, -1 |
ΠΡΠΈΠΌΠ΅ΡΡ:
Hello, World!:
ΠΡΠΈΠΌΠ΅Ρ Π΄Π»Ρ Π²Π΅ΡΡΠΈΠΉ Intel Visual Fortran 11.1 , g95 0.93 , gfortran 4.5.0ΠΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ Π½Π°ΠΏΠΈΡΠ°Π½ Π² ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅ΠΌΠΎΠΌ Fortran 90 ΠΈ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΌΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠ°ΠΌΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΈΠ°Π»Π΅ΠΊΡΠΎΠΌ .
Fortran 90-style comment program HelloWorld print * , "Hello, World!" end program HelloWorld
Π€Π°ΠΊΡΠΎΡΠΈΠ°Π»:
ΠΡΠΈΠΌΠ΅Ρ Π΄Π»Ρ Π²Π΅ΡΡΠΈΠΉ Intel Visual Fortran 11.1 , g95 0.93 , gfortran 4.5.0ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΈΡΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠ°ΠΊΡΠΎΡΠΈΠ°Π»Π° ΠΈ ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π‘ΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠΎΡΠΌΠ°ΡΠ° I ΠΈ A ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΡΠΈΡΠ΅Π» Π² Π΄Π΅ΡΡΡΠΈΡΠ½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅ ΠΈ ΡΡΡΠΎΠΊ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ. ΠΡΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΈ ΡΠ°ΠΊΡΠΎΡΠΈΠ°Π»ΠΎΠ² 13-16 Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΠ΅ΡΠ΅ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅, Π½Π΅ Π²ΡΠ·ΡΠ²Π°ΡΡΠ΅Π΅ ΠΎΡΠΈΠ±ΠΊΡ, ΠΏΠΎΡΡΠΎΠΌΡ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π½Π΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ:
13! = 1932053504
14! = 1278945280
15! = 2004310016
16! = 2004189184
program Factorial integer :: f , n f = 1 n = 0 do print "(I2, A, I10)" , n , "! = " , f n = n + 1 f = f * n if (n == 17 ) then exit end if end do end program Factorial
Π§ΠΈΡΠ»Π° Π€ΠΈΠ±ΠΎΠ½Π°ΡΡΠΈ:
ΠΡΠΈΠΌΠ΅Ρ Π΄Π»Ρ Π²Π΅ΡΡΠΈΠΉ Intel Visual Fortran 11.1 , g95 0.93 , gfortran 4.5.0ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΈΡΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠΈΡΠ΅Π» Π€ΠΈΠ±ΠΎΠ½Π°ΡΡΠΈ. Π‘Π°ΠΌΠΎΠ΅ ΡΠ»ΠΎΠΆΠ½ΠΎΠ΅ Π² ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ β Π²ΡΠ²ΠΎΠ΄ Π²ΡΡΠΈΡΠ»Π΅Π½Π½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π² Π½ΡΠΆΠ½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, Π² ΠΎΠ΄Π½Ρ ΡΡΡΠΎΠΊΡ ΠΈ Π±Π΅Π· Π»ΠΈΡΠ½ΠΈΡ ΠΏΡΠΎΠ±Π΅Π»ΠΎΠ². Π‘ΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΡΠΎΡΠΌΠ°ΡΠ° (I3, A, $) ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π²Π½Π°ΡΠ°Π»Π΅ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ Π² Π΄Π΅ΡΡΡΠΈΡΠ½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅, ΡΠΈΡΠΈΠ½ΠΎΠΉ ΡΠΎΠ²Π½ΠΎ ΡΡΠΈ ΡΠΈΠΌΠ²ΠΎΠ»Π°, Π·Π°ΡΠ΅ΠΌ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΡΡΠΎΠΊΠ°, ΠΈ Π½Π°ΠΊΠΎΠ½Π΅Ρ, $ ΠΏΠΎΠ΄Π°Π²Π»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ ΡΡΡΠΎΠΊΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ print ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΡΠ°ΠΊ ΡΡΠΎ Π²ΡΠ΅ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π² ΠΎΠ΄Π½Ρ ΡΡΡΠΎΠΊΡ. ΠΡΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ Π² Π΄ΠΈΠ°Π»Π΅ΠΊΡΠ΅ ΡΠΏΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ ΡΠΎΡΠΌΠ°ΡΠ° $ Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌ; ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ, Π½ΠΎ ΠΏΡΠΈ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΈΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΏΡΠ΅Π΄ΡΠΏΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΎΠ± ΡΡΠΎΠΌ.
program Fibonacci integer :: f1 , f2 , f3 , i i = 1 f1 = 0 f2 = 1 do f3 = f2 + f1 f1 = f2 f2 = f3 i = i + 1 if (f1 < 10 ) then print "(I1, A, $)" , f1 , ", " elseif (f1 < 100 ) then print "(I2, A, $)" , f1 , ", " else print "(I3, A, $)" , f1 , ", " end if if (i == 17 ) then exit end if end do print * , "..." end program Fibonacci
ΠΠ²Π°Π΄ΡΠ°ΡΠ½ΠΎΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅:
ΠΡΠΈΠΌΠ΅Ρ Π΄Π»Ρ Π²Π΅ΡΡΠΈΠΉ g95 0.93 , gfortran 4.5.0Π ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ complex . // β ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΊΠΎΠ½ΠΊΠ°ΡΠ΅Π½Π°ΡΠΈΠΈ ΡΡΡΠΎΠΊ. Π§ΠΈΡΠ»ΠΎ ΠΏΠ΅ΡΠ΅Π΄ ΡΠΊΠΎΠ±ΠΊΠ°ΠΌΠΈ Π² ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΡΠΎΡΠΌΠ°ΡΠ° ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ ΡΠΎΡΠΌΠ°Ρ Π² ΡΠΊΠΎΠ±ΠΊΠ°Ρ (Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π΄Π²Π°ΠΆΠ΄Ρ β Π΄Π»Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΈ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΊΠΎΡΠ½Π΅ΠΉ).
program Quadratic integer :: a , b , c real :: d , p1 , p2 complex :: cp2 read (* , * ), a if (a == 0 ) then write (* , * ) "Not a quadratic equation" stop end if read (* , * ) b read (* , * ) c d = b * b - 4 * a * c p1 = - b / 2.0 / a if (abs (d ) < 1.0e-9 ) then write (* , "(A, F8.3)" ) "x = " , p1 elseif (d > 0 ) then p2 = sqrt (d ) / 2.0 / a write (* , "(2(A, F8.3))" ) "x1 = " , p1 + p2 , char (13 ) // char (10 ) // "x2 = " , p1 - p2 else cp2 = sqrt (cmplx (d )) / 2.0 / a write (* , "(2(A, F8.3, F8.3), A)" ) "x1 = (" , p1 + cp2 , ")" // char (13 ) // char (10 ) // "x2 = (" , p1 - cp2 , ")" end if end
Hello, World!:
ΠΡΠΈΠΌΠ΅Ρ Π΄Π»Ρ Π²Π΅ΡΡΠΈΠΉ f2c 20090411 , g95 0.93 , gfortran 4.5.0FORTRAN 77); ΠΏΠ΅ΡΠ²ΡΠ΅ ΡΠ΅ΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Ρ ΠΏΠΎΠ΄ ΡΠ»ΡΠΆΠ΅Π±Π½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ β ΠΎΡΠΌΠ΅ΡΠΊΠΈ ΠΎ ΡΠΎΠΌ, ΡΡΠΎ ΡΡΡΠΎΠΊΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠ΅ΠΌ ΠΈΠ»ΠΈ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠ΅ΠΉ, ΠΌΠ΅ΡΠΊΠΈ ΠΈ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΡΠΎΠΊ. Π‘ΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ Π½Π°Π±ΠΎΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Fortran Π½Π΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π½ΠΈΠΆΠ½Π΅Π³ΠΎ ΡΠ΅Π³ΠΈΡΡΡΠ°, ΠΏΠΎΡΡΠΎΠΌΡ Π²ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΈΡΡΡΡΡ Π² Π²Π΅ΡΡ Π½Π΅ΠΌ ΡΠ΅Π³ΠΈΡΡΡΠ΅. ΠΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΈΠ· ΡΡΠΎΠ³ΠΎ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΠ²Π»ΡΡΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΠ΅ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ β ΠΎΠ½ΠΈ ΠΌΠΎΠ³ΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π»ΡΠ±ΡΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»Ρ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡΡΡ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ.
ΠΠ΅ΡΠ²Π°Ρ ΡΡΡΠΎΠΊΠ° Π΄Π°Π΅Ρ ΡΡΠΎΠΌΡ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΡ ΠΊΠΎΠ΄Π° ΠΈΠΌΡ HELLO ΠΈ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π½Π° ΡΠΎ, ΡΡΠΎ ΠΎΠ½ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ. ΠΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΠ΄ΡΠΈΠ½ΡΠ΅ΡΡΡ ΡΠ΅ΠΌ ΠΆΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π°ΠΌ, ΡΡΠΎ ΠΈ Π»ΡΠ±ΡΠ΅ ΠΈΠΌΠ΅Π½Π° ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠΎΠ², Ρ.Π΅. Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π½Π°ΡΠΈΠ½Π°ΡΡΡΡ Ρ Π±ΡΠΊΠ²Ρ ΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 6 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
ΠΠΎΠΌΠ°Π½Π΄Π° WRITE ΡΠ΅Π°Π»ΠΈΠ·ΡΠ΅Ρ Π²ΡΠ²ΠΎΠ΄ Π½Π° ΠΏΠ΅ΡΠ°ΡΡ. Π ΡΠΊΠΎΠ±ΠΊΠ°Ρ ΠΏΠ΅ΡΠ΅Π΄Π°Π΅ΡΡΡ ΡΠΏΠΈΡΠΎΠΊ ΡΠΏΡΠ°Π²Π»ΡΡΡΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ², Π½Π°ΡΡΡΠ°ΠΈΠ²Π°ΡΡΠΈΡ Π²ΡΠ²ΠΎΠ΄: UNIT Π²ΡΠ±ΠΈΡΠ°Π΅Ρ ΡΠ°ΠΉΠ» Π²ΡΠ²ΠΎΠ΄Π° (ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ β ΠΊΠΎΠ½ΡΠΎΠ»Ρ), FMT β ΡΠΎΡΠΌΠ°Ρ Π²ΡΠ²ΠΎΠ΄Π°. ΠΠ²Π΅Π·Π΄ΠΎΡΠΊΠΈ ΠΎΠ·Π½Π°ΡΠ°ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ. ΠΠΌΠ΅Π½Π° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΏΠ΅ΡΠ΅Π΄Π°Π²Π°ΡΡ Π½Π΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎ ΡΡΠ° ΠΆΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Π° Π²ΡΠ³Π»ΡΠ΄Π΅Π»Π° Π±Ρ ΠΊΠ°ΠΊ WRITE (*, *) ... .
Π Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π΅ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΉ ΡΡΡΠΎΠΊΠΎΠ²Π°Ρ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π·Π°ΠΊΠ»ΡΡΠ°ΡΡΡΡ ΠΊΠ°ΠΊ Π² ΠΎΠ΄ΠΈΠ½Π°ΡΠ½ΡΠ΅ ΠΊΠ°Π²ΡΡΠΊΠΈ, ΡΠ°ΠΊ ΠΈ Π² Π΄Π²ΠΎΠΉΠ½ΡΠ΅.
A simple Hello, World! program PROGRAM HELLO WRITE (UNIT =* , FMT =* ) "Hello, World!" END
Π€Π°ΠΊΡΠΎΡΠΈΠ°Π»:
ΠΡΠΈΠΌΠ΅Ρ Π΄Π»Ρ Π²Π΅ΡΡΠΈΠΉ f2c 20090411 , g95 0.93 , gfortran 4.5.0ΠΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ Π½Π°ΠΏΠΈΡΠ°Π½ Π² ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅ (ΡΡΠΈΠ»Ρ FORTRAN 77) ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΈΡΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΠ°ΠΊΡΠΎΡΠΈΠ°Π»Π°.
Fortran ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΠΏΡΡΠΊΠ°ΡΡ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ; Π² ΡΠ°ΠΊΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΎΠ½ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΈΡ ΡΠΈΠΏΡ ΡΠ°ΠΌ, Π½ΠΎ, Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ·Π΄Π½ΠΈΡ ΡΠ·ΡΠΊΠΎΠ², Π½Π΅ ΠΏΠΎ ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, Π° ΠΏΠΎ Π΅Π΅ ΠΈΠΌΠ΅Π½ΠΈ β Π΅ΡΠ»ΠΈ ΠΏΠ΅ΡΠ²Π°Ρ Π±ΡΠΊΠ²Π° Π½Π°Π·Π²Π°Π½ΠΈΡ I..N, Π²ΡΠ±ΠΈΡΠ°Π΅ΡΡΡ ΡΠΈΠΏ INTEGER , ΠΈΠ½Π°ΡΠ΅ β REAL . Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΎΠ±Π΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠ΅Π»ΡΠ΅.
Π¦ΠΈΠΊΠ» DO Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΠ΅Ρ ΡΠΈΠΊΠ»Ρ FOR Π±ΠΎΠ»Π΅Π΅ ΠΏΠΎΠ·Π΄Π½ΠΈΡ ΡΠ·ΡΠΊΠΎΠ²: ΡΡΠ΅ΡΡΠΈΠΊ ΡΠΈΠΊΠ»Π° N ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΏΡΠΎΠ±Π΅Π³Π°Π΅Ρ Π²ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΡ 0 Π΄ΠΎ 16. Π’Π΅Π»ΠΎ ΡΠΈΠΊΠ»Π° Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°Π΅ΡΡΡ Π½Π° ΡΡΡΠΎΠΊΠ΅ Ρ ΠΌΠ΅ΡΠΊΠΎΠΉ 1 , ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΊΠ°Π·Π°Π½Π° Π² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ΅ ΡΠΈΠΊΠ»Π°.
ΠΠΎΠΌΠ°Π½Π΄Π° PRINT ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΠΎΡΠΌΠ°Ρ Π²ΡΠ²ΠΎΠ΄Π° ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π²Π°ΡΡΠΈΡΡΠ΅ΡΡΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠ°.
PROGRAM) C . ΠΠ·-Π·Π° ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΠ»Π΅ ΠΏΠΎΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΡΡΠΎΠΊΠΈ CC , ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ, ΠΎΡΡΠ°ΡΠΎΠΊ ΡΡΡΠΎΠΊΠΈ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ Π·Π°ΠΏΠΎΠ»Π½ΡΡΡ ΠΏΡΠΎΠ±Π΅Π»Π°ΠΌΠΈ Π²ΡΡΡΠ½ΡΡ.
ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠΎΠΊΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ Π±ΡΠΊΠ²ΠΎΠΉ, ΡΠ»ΠΈΡΠΊΠΎΠΌ Π΄Π»ΠΈΠ½Π½Π°, ΡΡΠΎΠ±Ρ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡΡΡ Π² ΠΎΠ΄Π½Ρ ΡΡΡΠΎΠΊΡ (Π²ΡΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»Ρ ΡΡΡΠΎΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π½Π°ΡΠΈΠ½Π°Ρ Ρ 73-Π΅ΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ, ΠΈΠ³Π½ΠΎΡΠΈΡΡΡΡΡΡ), ΠΏΠΎΡΡΠΎΠΌΡ Π΅Π΅ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΡΠ°Π·Π±ΠΈΠ²Π°ΡΡ Π½Π° Π΄Π²Π΅ ΡΡΡΠΎΠΊΠΈ ΠΈ ΠΎΡΠΌΠ΅ΡΠ°ΡΡ Π²ΡΠΎΡΡΡ ΠΊΠ°ΠΊ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ²ΠΎΠΉ (Π»ΡΠ±ΡΠΌ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠΌ Π² 6 ΠΏΠΎΠ·ΠΈΡΠΈΠΈ).
ΠΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Π² FORTRAN 77 Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΊΠ°ΠΊ.LE. , .GE. ΠΈ Ρ.Π΄. ΠΈΠ·-Π·Π° ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Ρ > ΠΈ < Π½Π΅ Π²Ρ ΠΎΠ΄ΡΡ Π² Π½Π°Π±ΠΎΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΡΠ·ΡΠΊΠ°; ΠΎΠ½ΠΈ Π±ΡΠ»ΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Ρ ΡΠΎΠ»ΡΠΊΠΎ Π² Fortran 90.
PROGRAM CAMELC CHARACTER TEXT * 30 , CC * 30 LOGICAL LSPACE READ (* , "(A)" ) TEXT NCC = 0 LSPACE = .TRUE. DO 1 , I = 1 , LEN (TEXT ) NC = ICHAR (TEXT (I : I )) IF (NC .GE. 65 .AND. NC .LE. 90 .OR. > NC .GE. 97 .AND. NC .LE. 122 ) THEN IF (LSPACE ) THEN IF (NC .GE. 97 .AND. NC .LE. 122 ) THEN NC = NC - 32 END IF ELSE IF (NC .GE. 65 .AND. NC .LE. 90 ) THEN NC = NC + 32 END IF END IF NCC = NCC + 1 CC (NCC : NCC ) = CHAR (NC ) LSPACE = .FALSE. ELSE LSPACE = .TRUE. END IF 1 CONTINUE DO 2 , I = NCC + 1 , LEN (CC ) 2 CC (I : I ) = " " WRITE (* , * ) CC END
ΠΠΏΠ΅ΡΠ²ΡΠ΅ Ρ ΡΡΠ»ΡΡΠ°Π» ΠΎ Π€ΠΎΡΡΡΠ°Π½Π΅ Π² ΡΠ°Π½Π½Π΅ΠΌ Π΄Π΅ΡΡΡΠ²Π΅ ΠΎΡ ΠΎΡΡΠ°. ΠΠ½ ΡΠ°ΡΡΠΊΠ°Π·ΡΠ²Π°Π», ΡΡΠΎ Π² 70-Ρ Π³ΠΎΠ΄Π°Ρ Π΅ΠΌΡ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΠ»ΠΎΡΡ ΡΠ°ΡΠ°ΠΌΠΈ Π²ΡΡΡΠ°ΠΈΠ²Π°ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄ΠΈ ΠΊ Π΅Π΄Π²Π° Π»ΠΈ Π½Π΅ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΠΠΠ Π² ΠΠ£ΠΠ΅, Π΄Π°Π±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΠ΅ΡΡΠΎΠΊΠ°ΡΡΡ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΏΡΠΈΠΌΠΈΡΠΈΠ²Π½ΡΠΉ ΠΊΠΎΠ΄. ΠΡΠΈΠ·Π½Π°ΡΡΡ ΡΠ΅ΡΡΠ½ΠΎ, Ρ ΡΠ΅Ρ ΠΏΠΎΡ ΠΈ Π΄ΠΎ Π½Π΅Π΄Π°Π²Π½Π΅Π³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ (Π½Π΅ΡΠΌΠΎΡΡΡ Π½Π° ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅) Ρ ΠΏΡΠ΅Π±ΡΠ²Π°Π» Π² ΠΏΠΎΠ»Π½ΠΎΠΉ ΡΠ²Π΅ΡΠ΅Π½Π½ΠΎΡΡΠΈ, ΡΡΠΎ Π€ΠΎΡΡΡΠ°Π½ ΠΎΡΡΠ°Π»ΡΡ Π³Π΄Π΅-ΡΠΎ Π΄Π°Π»Π΅ΠΊΠΎ ΡΠ°ΠΌ, Π² ΠΌΠΈΡΠ΅, Π³Π΄Π΅ Π½ΠΎΡΠΈΡΠ΅Π»ΡΠΌΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π²ΡΡΡΡΠΏΠ°ΡΡ ΡΡΡΠ°Π½Π½ΡΠ΅ ΠΊΠ°ΡΡΠΎΠ½ΠΊΠΈ Ρ Π΄ΡΡΠΊΠ°ΠΌΠΈ, Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ ΡΡΠΎΡΡ ΡΠ°ΠΊ Π΄ΠΎΡΠΎΠ³ΠΎ, ΡΡΠΎ Π²ΠΎΡΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΡΡ, ΠΊΠ°ΠΊ Π½Π°ΡΡΠΎΡΡΠΈΠΉ Π°ΡΡΡΠ°ΠΊΡΠΈΠΎΠ½.
ΠΠ°ΠΊΠΎΠ²ΠΎ ΠΆΠ΅ Π±ΡΠ»ΠΎ ΠΌΠΎΡ ΡΠ΄ΠΈΠ²Π»Π΅Π½ΠΈΠ΅, ΠΊΠΎΠ³Π΄Π° Ρ ΡΠ·Π½Π°Π», ΡΡΠΎ Π€ΠΎΡΡΡΠ°Π½ Π½Π΅ ΠΏΡΠΎΡΡΠΎ Π΅ΡΡ Π³Π΄Π΅-ΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ, ΠΎΠ½ ΡΠ°Π·Π²ΠΈΠ²Π°Π΅ΡΡΡ, Π²ΠΎΡΡΡΠ΅Π±ΠΎΠ²Π°Π½ ΠΈ ΠΏΠΎ-ΠΏΡΠ΅ΠΆΠ½Π΅ΠΌΡ Π°ΠΊΡΡΠ°Π»Π΅Π½. ΠΡΠ»ΠΈ Π²Ρ ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎ ΡΡΠΎΠ³ΠΎ ΠΌΠΎΠΌΠ΅Π½ΡΠ° ΠΏΠΎΠ»Π°Π³Π°Π»ΠΈ, ΡΡΠΎ Π€ΠΎΡΡΡΠ°Π½ Π΄Π°Π²Π½ΠΎ Π½ΠΎΡΠΈΡ ΡΡΠ°ΡΡΡ ΠΌΠ΅ΡΡΠ²Π΅ΡΠ°, ΡΠΎ Π²ΠΎΡ Π²Π°ΠΌ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½ΡΡ ΡΠ°ΠΊΡΠΎΠ², ΠΏΠΎΡΠ΅ΠΌΡ ΠΎΠ½ Π΅ΡΡ Ρ ΠΎΠ΄ΠΈΡ.
ΠΠ΅ΡΠ΅ΠΆΠΈΠ» ΠΌΠΈΠ½ΠΈΠΌΡΠΌ 10 ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠΉ
Π Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ, ΡΠΎΡ Π€ΠΎΡΡΡΠ°Π½ ΠΎ ΠΊΠΎΡΠΎΡΠΎΠΌ Π²Ρ ΡΠ»ΡΡΠΈΡΠ΅ ΠΎΡ ΠΏΡΠ΅ΠΏΠΎΠ΄Π°Π²Π°ΡΠ΅Π»Π΅ΠΉ Π² ΡΠΊΠΎΠ»Π΅ ΠΈΠ»ΠΈ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅ΡΠ΅ Π±ΡΠ» ΡΠΎΠ·Π΄Π°Π½ Π² ΠΏΠ΅ΡΠΈΠΎΠ΄ Ρ 1954 ΠΏΠΎ 1957 Π³ΠΎΠ΄Π°. ΠΠ½ Π²ΠΎΡΡΠ» Π² ΠΈΡΡΠΎΡΠΈΡ, ΠΊΠ°ΠΊ ΠΏΠ΅ΡΠ²ΡΠΉ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ, ΡΠΎΠ²Π΅ΡΡΠΈΠ» ΠΌΠ°Π»Π΅Π½ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΡΠ² Π² IT-ΠΌΠΈΡΠ΅, Π½ΠΎ ΠΏΠΎ ΡΡΡΠΈ Π±ΡΠ» Π½Π΅ ΡΠ»ΠΈΡΠΊΠΎΠΌ ΡΠ΄ΠΎΠ±Π΅Π½ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»Π΅Π½. βΠΠΎΠΏΠΈΠ»ΠΈΠ²Π°ΡΡβ Π΅Π³ΠΎ Π² IBM ΠΏΡΠΈΠ½ΡΠ»ΠΈΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ ΡΡΠ°Π·Ρ, ΡΠΆΠ΅ Π² 1958 Π³ΠΎΠ΄Ρ ΠΏΠΎΡΠ²ΠΈΠ»ΡΡ FORTRAN II ΠΈ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎ FORTRAN III. ΠΠΎ Π±ΠΎΠ»Π΅Π΅-ΠΌΠ΅Π½Π΅Π΅ ΠΏΡΠΈΠ»ΠΈΡΠ½ΡΠΉ Π²ΠΈΠ΄ ΠΎΠ½ ΠΏΡΠΈΠΎΠ±ΡΡΠ» Π»ΠΈΡΡ Π² 70-Ρ , ΠΊΠΎΠ³Π΄Π° ΠΏΠΎΡΠ²ΠΈΠ»ΠΈΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΠΎΡΡΠ°ΡΠΈΠ²Π½ΡΠ΅ ΠΌΠ°ΡΠΈΠ½Ρ, ΠΊΠΎΠ³Π΄Π° Π±ΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ ΠΏΠΎΠ»Π½ΠΎΡΠ΅Π½Π½ΡΠΉ ΡΡΠ°Π½Π΄Π°ΡΡ IBM FORTRAN IV, ΠΈ ΠΏΠΎΡΠ²ΠΈΠ»ΡΡ FORTRAN 66 Ρ ΡΠΈΠΊΠ»Π°ΠΌΠΈ, ΠΌΠ΅ΡΠΊΠ°ΠΌΠΈ, ΡΡΠ»ΠΎΠ²Π½ΡΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°ΠΌΠΈ, ΠΊΠΎΠΌΠ°Π½Π΄Π°ΠΌΠΈ Π²Π²ΠΎΠ΄Π°/Π²ΡΠ²ΠΎΠ΄Π° ΠΈ ΠΏΡΠΎΡΠΈΠΌΠΈ ΠΏΠΎ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΠΌΠ΅ΡΠΊΠ°ΠΌ ΠΏΡΠΈΠΌΠΈΡΠΈΠ²Π½ΡΠΌΠΈ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌΠΈ.
ΠΠΎΡΠ»Π΅Π΄Π½ΡΡ Π²Π΅ΡΡΠΈΡ ΠΏΠΎΡΠ²ΠΈΠ»Π°ΡΡ Π² 2010 Π³ΠΎΠ΄Ρ, Π΅Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Fortran 2008 (ΠΊΠ°ΠΊ Π²ΠΈΠ΄ΠΈΡΠ΅, Π² Ρ ΠΎΠ΄Π΅ ΠΈΡΡΠΎΡΠΈΠΈ, Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π»ΠΎ ΠΏΠΈΡΠ°ΡΡΡΡ ΠΈΡΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π·Π°Π³Π»Π°Π²Π½ΡΠΌΠΈ Π±ΡΠΊΠ²Π°ΠΌΠΈ), ΠΎΡΠ»ΠΈΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅ΡΡΠΎΠΉ ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠ²Π»ΡΡΡΡΡ Π²ΡΠ΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠ΅ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΠ΅ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ, ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠΈΠ΅ΡΡ, ΠΊΠ°ΠΊ Π½Π° ΡΠΊΠΎΡΠΎΡΡΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ , ΡΠ°ΠΊ ΠΈ Π½Π° ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΡΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ². ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π½Π° 2018 Π³ΠΎΠ΄ Π·Π°ΠΏΠ»Π°Π½ΠΈΡΠΎΠ²Π°Π½ Π²ΡΡ ΠΎΠ΄ Fortran 2015. ΠΠ· Π°Π½ΠΎΠ½ΡΠ° ΡΠ»Π΅Π΄ΡΠ΅Ρ, ΡΡΠΎ Π² Π½ΡΠΌ Π±ΡΠ΄Π΅Ρ ΡΠ»ΡΡΡΠ΅Π½Π° ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΡ Ρ Π‘, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΡΡΠ°Π½Π΅Π½Ρ ΡΠ΅ΠΊΡΡΠΈΠ΅ Π½Π΅Π΄ΠΎΡΠ°Π±ΠΎΡΠΊΠΈ.
ΠΡ ΠΎΠ΄ΠΈΡ Π² 30 ΡΠ°ΠΌΡΡ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
ΠΠ° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ Π΄Π΅Π½Ρ 0,743% Π·Π°ΠΏΡΠΎΡΠΎΠ² Π² ΠΏΠΎΠΈΡΠΊΠΎΠ²ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΡΠ²ΡΡΠ΅Π½Ρ ΠΈΠΌΠ΅Π½Π½ΠΎ Π€ΠΎΡΡΡΠ°Π½Ρ. Π§ΡΠΎΠ±Ρ Π²Ρ ΠΏΠΎΠ½ΡΠ»ΠΈ, Π½Π°ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΠΎ ΠΊΡΡΡΠΎ, ΠΏΡΠΎΡΡΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΡΡΠ΅, ΡΡΠΎ ΡΠ°ΠΊΠΈΠ΅ ΡΠ·ΡΠΊΠΈ, ΠΊΠ°ΠΊ Lisp, Scala, Clojure, LabVIEW, Haskell, Rust ΠΈ VHDL, Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ Π² ΡΠ΅ΠΉΡΠΈΠ½Π³Π΅ Π½ΠΈΠΆΠ΅.
ΠΠΎΠΆΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½Π° Android (ΠΈ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ)
ΠΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΡ Π΄Π»Ρ Π€ΠΎΡΡΠ°Π½Π° Π·Π° Π΅Π³ΠΎ Π΄ΠΎΠ»Π³ΡΡ ΠΈΡΡΠΎΡΠΈΡ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π»ΠΈΡΡ ΡΠ°ΠΊΠΈΠΌΠΈ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΡΠΌΠΈ, ΠΊΠ°ΠΊ IBM, Microsoft, Compaq, HP, Oracle, Π±Π»Π°Π³ΠΎΠ΄Π°ΡΡ ΡΠ΅ΠΌΡ ΡΠ΅Π³ΠΎΠ΄Π½Ρ ΡΠ·ΡΠΊ ΡΠΎΠ²ΠΌΠ΅ΡΡΠΈΠΌ Ρ Windows, Mac OS ΠΈ Linux. ΠΠΎΠ»Π΅Π΅ ΡΠΎΠ³ΠΎ, ΡΠ΄ΠΎΠ±Π½ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Ρ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠΌ ΡΠ΅ΠΏΠ΅ΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π²Π·ΡΡΡ Ρ ΡΠΎΠ±ΠΎΠΉ, Π±Π»Π°Π³ΠΎΠ΄Π°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ CCTools Π΄Π»Ρ Android. ΠΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ ΠΈ Π½Π° Π²Π°ΡΠ΅ΠΌ iPhone, Π½ΠΎ Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π½Π΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠΊΠΎΠ»Π΄ΠΎΠ²Π°ΡΡ.
ΠΠΎΠ½ΠΊΡΡΠΈΡΡΠ΅Ρ Ρ MATLAB
ΠΠΎΠΊΠ° Π² ΡΡΠΎΠΌ ΡΠ΅ΠΊΡΡΠ΅ Π½Π΅ Π±ΡΠ»ΠΎ ΡΠΊΠ°Π·Π°Π½ΠΎ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ Π€ΠΎΡΡΡΠ°Π½Π°. Π’Π°ΠΊ Π²ΠΎΡ ΡΡΠΎ ΡΠ·ΡΠΊ, Π²ΠΎΡΡΡΠ΅Π±ΠΎΠ²Π°Π½Π½ΡΠΉ Π² Π½Π°ΡΠΊΠ΅ ΠΈ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠΈΠΈ, ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΈΠ»ΠΈ ΡΠ°ΡΡΠΈΡΠ½ΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΠΌΡΠΉ Π΄Π»Ρ ΠΏΡΠΎΠ³Π½ΠΎΠ·Π° ΠΏΠΎΠ³ΠΎΠ΄Ρ, ΠΎΠΊΠ΅Π°Π½ΠΎΠ³ΡΠ°ΡΠΈΠΈ, ΠΌΠΎΠ»Π΅ΠΊΡΠ»ΡΡΠ½ΠΎΠΉ Π΄ΠΈΠ½Π°ΠΌΠΈΠΊΠΈ, ΡΠ΅ΠΉΡΠΌΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π°Π½Π°Π»ΠΈΠ·Π°. Π ΠΎΠ±ΡΠ΅ΠΌ, ΡΡΠΎ ΡΠ°ΠΌΡΠΉ Π½Π°ΡΡΠΎΡΡΠΈΠΉ βData Scienceβ-ΡΠ·ΡΠΊ ΡΠΎΠ΄ΠΎΠΌ ΠΈΠ· Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, ΠΊΠΎΠ³Π΄Π° Π² ΠΌΠ°ΡΡΠΎΠ²ΡΡ ΠΏΡΠΎΠ΄Π°ΠΆΡ Π²ΠΏΠ΅ΡΠ²ΡΠ΅ ΠΏΠΎΡΡΡΠΏΠΈΠ» ΠΊΠ°Π»ΡΠΊΡΠ»ΡΡΠΎΡ.
ΠΡΠΈ ΡΡΠΎΠΌ ΡΡΠΎΠΈΡ ΠΏΡΠΈΠ·Π½Π°ΡΡ, ΡΡΠΎ ΡΠ°ΡΡΠΈΡΠ½ΠΎ ΡΠ²ΠΎΠ΅ΠΉ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΠΎΡΡΡΡ Π€ΠΎΡΡΡΠ°Π½ ΠΎΠ±ΡΠ·Π°Π½ Π½Π°ΡΠ»Π΅Π΄ΠΈΡ. ΠΠ° Π΄ΠΎΠ»Π³ΠΈΠ΅ Π³ΠΎΠ΄Ρ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π±Π΅Π· ΠΊΠΎΠ½ΠΊΡΡΠ΅Π½ΡΠΈΠΈ ΡΠ·ΡΠΊ ΠΎΠ±ΡΠΎΡ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠΉ Π±Π°Π·ΠΎΠΉ ΠΊΠ»ΠΈΠ΅Π½ΡΠΎΠ², Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ ΠΈ Π½Π°Π΄ΡΡΡΠΎΠ΅ΠΊ. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΆΠ΄Π°Ρ ΡΠ»Π΅Π΄ΡΡΡΠ°Ρ Π²Π΅ΡΡΠΈΡ Π€ΠΎΡΡΡΠ°Π½Π° Π½Π΅ΠΈΠ·Π±Π΅ΠΆΠ½ΠΎ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΠ΅. ΠΠΎΡΡΠΎΠΌΡ ΡΠ»ΠΎΠΆΠΈΠ»Π°ΡΡ ΡΠΈΡΡΠ°ΡΠΈΡ, ΠΊΠΎΠ³Π΄Π° ΠΎΡΡΡΡΡΡΠ²ΡΡΡ ΠΊΠ°ΠΊΠΈΠ΅-Π»ΠΈΠ±ΠΎ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ°ΠΊΡΠΎΡΡ, Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΡΡΡΠ½ΡΠ΅ ΠΈ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΡ Π²ΡΠ½ΡΠΆΠ΄Π΅Π½Ρ Π±ΡΠ»ΠΈ ΠΎΡΠΊΠ°Π·Π°ΡΡΡΡ ΠΎΡ ΡΡΠΎΠ³ΠΎ ΡΠΎΡΠ·Π°.
ΠΠΎ ΡΡΡΠΈ, Π³Π»Π°Π²Π½ΡΠΌ ΠΊΠΎΠ½ΠΊΡΡΠ΅Π½ΡΠΎΠΌ Π€ΠΎΡΡΡΠ°Π½Π° Π½Π° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ Π΄Π΅Π½Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ MATLAB, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΠΎΠ»Π΅Π΅ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»Π΅Π½, Π±ΠΎΠ»Π΅Π΅ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»Π΅Π½ ΠΈ ΡΠ΄ΠΎΠ±Π΅Π½. ΠΠ΄Π½Π°ΠΊΠΎ MATLAB ΠΏΡΠΈ ΡΡΠΎΠΌ ΠΈΠΌΠ΅Π΅Ρ ΡΡΡΠΎΠ³ΠΈΠ΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΡ ΠΏΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΌΡ ΠΠ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π΄ΠΎΡΠΎΠ³ΠΎ ΡΡΠΎΠΈΡ ΠΈ Π² Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π΅ ΡΠ»ΡΡΠ°Π΅Π² ΠΏΡΠΎΡΡΠΎ ΠΈΠ·Π»ΠΈΡΠ΅Π½.
ΠΠΌΠ΅Π΅Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π±Π΅Π·ΠΎΠ±Π»Π°ΡΠ½ΠΎΠ΅ Π±ΡΠ΄ΡΡΠ΅Π΅
ΠΠ΅Π·ΡΡΠ»ΠΎΠ²Π½ΠΎ, ΠΌΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΡΠ΅Π΄ΡΠΊΠ°Π·Π°ΡΡ, ΡΡΠΎ Π±ΡΠ΄Π΅Ρ ΡΠ΅ΡΠ΅Π· 10-20 Π»Π΅Ρ, ΠΈ ΠΊΠ°ΠΊ Π·Π° ΡΡΠΎ Π²ΡΠ΅ΠΌΡ ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡΡ IT-ΠΌΠΈΡ. ΠΠ΄Π½Π°ΠΊΠΎ, Π΅ΡΠ»ΠΈ ΠΏΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π½Π° Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ Π½ΠΎΠ²ΡΡ ΠΊΠΎΠ½ΠΊΡΡΠ΅Π½ΡΠΎΠ² Π΄Π»Ρ Π€ΠΎΡΡΡΠ°Π½Π° (ΡΠ°ΠΊΠΈΡ , ΠΊΠ°ΠΊ Go), ΠΈΡ Π³Π»Π°Π²Π½ΡΠΉ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΠΊ - ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΠΈΠ·Π°ΡΠΈΡ. Π’ΠΎ Π΅ΡΡΡ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»ΠΈ Fortran ΠΎΡΠ΅Π½Ρ Π±ΡΡΡΡΠΎ Π½Π°ΠΌΠ΅ΡΠΈΠ»ΠΈ ΡΠ΅Π»Π΅Π²ΡΡ Π°ΡΠ΄ΠΈΡΠΎΡΠΈΡ Π² Π²ΠΈΠ΄Π΅ ΡΡΡΠ½ΡΡ , ΠΈΡ ΠΌΠ½Π΅Π½ΠΈΠ΅ ΠΈ ΠΏΠΎΠΆΠ΅Π»Π°Π½ΠΈΡ ΠΈΠΌΠ΅ΡΡ ΠΏΡΠΈΠΎΡΠΈΡΠ΅ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅. ΠΠΎΡΡΠΎΠΌΡ ΡΡΡΠ΄Π½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΡ, ΡΡΠΎ Π·Π°Π²ΡΡΠ° ΠΎΠ½ΠΈ ΠΎΡΠΊΠ°ΠΆΡΡΡΡ ΠΎΡ ΡΠ²ΠΎΠ΅Π³ΠΎ βΡΠΏΠ΅ΡΠ·Π°ΠΊΠ°Π·Π°β ΡΠ°Π΄ΠΈ ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΌΠΎΠ΄Π½ΠΎΠΉ ΡΠ΅Π½Π΄Π΅Π½ΡΠΈΠΈ. ΠΠΌΠ΅Π½Π½ΠΎ Π½Π° ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠ²Π΅ΡΠΆΠ΄Π°ΡΡ, ΡΡΠΎ Π΅ΡΡ ΠΎΠ΄Π½ΠΎ ΠΏΠΎΠΊΠΎΠ»Π΅Π½ΠΈΠ΅ Π€ΠΎΡΡΡΠ°Π½ ΠΎΡΡ ΠΎΠ΄ΠΈΡ ΡΠΌΠ΅Π»ΠΎ.
Π ΠΏΠΎΡΠΎΠΌ ΠΎΠ½ΠΈ ΠΏΡΠΎΡΡΠΎ Π²ΡΠΏΡΡΡΡΡ Π½ΠΎΠ²ΡΡ Π²Π΅ΡΡΠΈΡ.