(toiminnot)

hwechtla-tl: Teos: Fortran

Kierre.png

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


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

Miksi?

Kuvia netistä:

      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


kommentoi (viimeksi muutettu 17.01.2012 11:53)