Fortran sakinys, užkoduotasperfokortoje. Sakinys taip pat užrašytas ranka perfokortos viršuje
FORTRAN (išangl.FormulaTranslator) – viena pirmųjųalgoritminių kalbų, sukurta1957 m.[1] Ją sukūrė amerikiečių firmosIBM tyrinėtojų grupė, kuriai vadovavoDžonas Bekus (John W. Backus). Kalba išsiskyrė tuo, kad matematinės formulės joje labai panašios į formules matematiniame tekste.
„Sveikas pasauli“FORTRAN atrodytų maždaug taip:
CTai pirmoji programavimo kalba, Ckurioje buvo galimi komentarai.WRITE (6,7000) 7000FORMAT(19H Sveikas, pasauli!)STOPEND
Pirmasis WRITE operatoriaus parametras (6) yra standartinis terminalo išvedimo kanalo numeris (skaityti reikdavo iš penkto kanalo). Antrasis parametras, 7000, nurodo į žemiau esančią, tuo pačiu skaičiumi pažymėtą formato eilutę (kuri nėra vykdoma ir programoje gali būti bet kur). 19H reiškia jogSveikas, pasauli! ir du tarpai aplink užima lygiai devyniolika simbolių. VėlesnėsFORTRAN versijos simbolių skaičiuoti nebereikalavo, tačiau tai buvo laikoma geru programavimo stiliumi[2].
Pirmiausia kurta matematiniams apskaičiavimams,FORTRAN turikompleksinių skaičių tipą, kurio neturi daugelis naujesnių programavimo kalbų. Ankstyvose versijose buvo daug vėliau neįprastų konstrukcijų. Pavyzdžiui, su EQUIVALENCE buvo galima tą pačią lentelę pasiekti tiek kai vienmatį, tiek ir kaip dvimatį ar daugiamatį masyvą, su ENTRY - perduoti valdymą į funkcijos kodo vietą bet kur (nebūtinai į funkcijos pradžią). Pirmojoje FORTRAN versijoje procedūrų bei funkcijų nebuvo, jos pirmąkart pasiūlytos FORTRAN II.
FORTRAN anaiptol nėra pasenusi ir nenaudojama kalba. Ji pakankamai gerai tinka įvairiems sudėtingiems matematiniams apskaičiavimams ir šioje srityje tebėra plačiai naudojama. Naujausios versijos (FORTRAN 2003 ir pan) turi dinaminį atminties paskirstymą,abstrakčius duomenų tipus, išimtis ir netobjektinio programavimo galimybes. Yra sukurti specializuotilygiagrečiajam programavimui skirti FORTRAN dialektai.
Voyager 1 beiVoyager 2 programinė įranga iš pradžių buvo parašyta FORTRAN 5, vėliau perrašyta FORTRAN 77. Dalis jos dabar perrašyta C.[3]
program cilindras!!! Programacilindro plotui skaičiuotiimplicit none! Šis sakinys nurodo, jog visi kintamieji turi būti deklaruotiinteger ierrcharacter ynreal spindulys,aukstis,plotasreal,parameter :: pi = 3.14159 ciklas:do! Klausk vartotojo apie cilindro matmeniswrite (*,*) 'Įveskite pagrindo spindulį ir cilindro aukštį.'read (*,*,iostat=ierr) spindulys,aukstis! Jei duomenų perskaityti nepavyko, pakartoti ciklą.if (ierr /= 0) thenwrite(*,*) 'Klaidingi duomenys.'cycle ciklasend if! Skaičiuojame plotą. ** žymi kėlimo laipsniu operaciją. plotas = 2*pi*(spindulys**2 + spindulys*aukstis)! Spausdiname cilindro matmenis (spindulys, aukstis)! ir apskaičiuotą plotą (plotas)write (*,'(1x,a7,f6.2,5x,a7,f6.2,5x,a5,f6.2)') & 'spindulys=',spindulys,'aukštis=',aukstis,'plotas=',plotas yn = ' ' taip_ne_ciklas:dowrite(*,*) 'Skaičiuoti kitam cilindrui? t[n]'read(*,'(a1)') ynif (yn=='y'.or. yn=='Y')exit yn_loopif (yn=='n'.or. yn=='N' .or. yn==' ')exit ciklasend do taip_ne_ciklasend do ciklasend program cilindras
