hwechtla-tl: Teos: Fortran

Mikä on WikiWiki?
nettipäiväkirja
koko wiki (etsi)
viime muutokset

---

Megavoltin taskulaskin. Nelilaskin, johon virtaa syöttää ydinreaktori.

Miksi?

• Fortran on hyvin vanha kieli, joka lanseerattiin korkean tason kieleksi numeeriseen laskentaan. Fortran markkinoitiin nimenomaan sillä, että sen ensimmäinen kääntäjä tuotti nopeaa koodia.
• Fortran elää ja voi edelleen hyvin, sitä käytetään ennen kaikkea suurteholaskentaan. Fortran-kääntäjissä on hyvä tuki koodisuorituksen rinnakkaistamiselle, mikä tekee Fortranista houkuttelevan kielen supertietokoneympäristössä.
• Fortrania (kuten Lispiäkin) on uudistettu huomattavasti ajan mittaan. Molemmissa on haluttu säilyttää kielen vanha nimi siitä huolimatta, että uudet versiot ovat eronneet merkittävästi vanhoista. Tämä kuvastaa jonkinlaista arvonantoa kielen ja siihen liittyvän kulttuurin perinteille.

Kuvia netistä:

• http://fortran-windows.tripod.com/i_2000/FCLUBG.gif
• http://www.zemax.com/kb/content_images/fortran/fortran10.gif
• http://infolab.stanford.edu/pub/voy/museum/pictures/display/3-1-FortranCropped.jpg

      INTEGER A,B,C
      READ(5,501) A,B,C
  501 FORMAT(3I5)
      IF(A.EQ.0 .OR. B.EQ.0 .OR. C.EQ.0) STOP 1
      S = (A + B + C) / 2.0
      AREA = SQRT( S * (S - A) * (S - B) * (S - C))
      WRITE(6,601) A,B,C,AREA
  601 FORMAT(4H A= ,I5,5H  B= ,I5,5H  C= ,I5,8H  AREA= ,F10.2,12HSQUARE UNITS)
      STOP
      END

samposm: Tuo esimerkkikoodi on fortran 77:aa. Fortran 90:llä vastaavat rivit voisivat näyttää vaikka tältä:

PROGRAM triangle_area
  IMPLICIT NONE
  INTEGER :: a,b,c
  REAL :: area
  READ(*,*) a,b,c
  IF (a == 0 .OR. b == 0 .OR. c == 0) STOP 'error: zero length'
  s = (a + b + c)/2.0
  area = SQRT(s * (s - a) * (s - b) * (s - c))
  WRITE(*,*) 'a = ',a,' b = ',b,' c = ',c,' area = ',area
END PROGRAM triangle_area

näyttely: ohjelmointikielten kuvat