FORTRAN

Из пројекта Википедија

FORTRAN је скраћеница од Formula Translation и представља језик намењен превасходно за обимна математичка израчунавања. Језик има неколико верзија:

Садржај

1 FORTRAN I
2 FORTRAN II, III, IV и FORTRAN 66
3 FORTRAN 77
4 Fortran 90 стандард
5 Fortran 95 стандард

[уреди] FORTRAN I

Први FORTRAN преводилац је осмишљен и написан у периоду од 1954. до 1957. године од стране IBM-овог тима кога је предводио Џон Бакус. Прва примена му је била за прорачунавање параметара у нуклеарној електрани. Потиснуо је асемблер (јер је био једноставнији за програмирање и преносив) и брзо био прихваћен од стране научника и војних организација. Коришћен је за војне пројекте и свемирска истраживања.

[уреди] FORTRAN II, III, IV и FORTRAN 66

FORTRAN II (1958) је био значајно побољшање јер је омогућавао поделу програма у модуле и повезивање са асемблерским модулима.

FORTRAN III (1958) никада није јавно објављен. Омогућавао је асемблерски код усред FORTRAN кода, али је тиме изгубљена преносивост.

FORTRAN IV (1961) био је пречишћени и допуњени FORTRAN II (додати COMMON и EQUIVALENCE искази и отклоњене неке неправилности).

У мају 1962. године ASA комитет започео је пројекат стандардизације овог језика што је омогућило израду преводиоца за сваки
нови модел рачунара који се појави на тржишту. Нови ASA стандард објављен је 1966. и постао опште познат под именом
FORTRAN 66. Био је то први стандард ове врсте у свету.

Пример програма написаног у FORTRAN-у 66:

PROGRAM TRIVIAL
INTEGER I
I=2
IF(I .GE. 2) CALL PRINTIT
STOP
END
SUBROUTINE PRINTIT
PRINT *,’Hello World’
RETURN
END

[уреди] FORTRAN 77

FORTRAN 77 (скраћено F77) је нови стандард (из 1977 године) који је додао:

DO петље са опадањем контролне променљиве.
Блоковску if наредбу IF ... THEN ... ELSE ... ENDIF. Пре F77 постојала је само IF GOTO наредба.
Тест је претходио извршавању DO петљи. Пре F77 DO петље су се увек извршавале бар једном
CHARACTER тип. Пре F77 знаци су увек били чувани у INTEGER промељивима.
Апостроф је постао знак који ограничава стринг константе.
Главни програм се није више завршавао са STOP наредбом.

Пример програма у FORTRAN-у 77:

PROGRAM MAIN
PARAMETER (MAXSIZ=99)
REAL A(MAXSIZ)
10 READ (5,100,END=999) K
100 FORMAT(I5)
IF (K.LE.0.OR. K.GT.MAXSIZ) STOP
READ *,(A(I),I=1,K)
PRINT *,(A(I),I=1,K)
PRINT *,’SUM=’,SUM(A,K)
GOTO 10
999 PRINT *,’All Done’
STOP
END
C Funkcija za sumiranje
FUNCTION SUM(V,N)
REAL :: V(N)
SUM = 0.0
DO 20 I = 1,N
SUM = SUM + V(I)
20 CONTINUE
RETURN
END