Fakultät und Summe in Fortran

Hi,

hab ein groooses Problem ich weiss leider nicht wie ich Fakultät und Summe in Fortran ausrechnen kann!!
Ich weiss zwar wie ich Fak. Summe so ausrechnen kann, leider nicht in Fortran.

Kann mir mal jemand helfen???

mfg

verzweifelter

rüdiger

Dann lies ein Fortran Tutorial

Ansonsten benutz mal google. zB http://www.seereuber.com/progsprachen.htm

Ruhollah

Vielleicht so? Das ist nun Fortran 90. Fortran 77 sieht wieder ganz anders aus. Seltsame Sprache dieses Fortran.

SUBROUTINE FAK (N) RESULT (F)
      IMPLICIT NONE
      INTEGER ::F
      F=1
      DO I=1, N
         F=F*N
      END DO

END SUBROUTINE FAK

PROGRAM FAKULTAET
      IMPLICIT NONE
      INTEGER ::A

      READ *,A

      PRINT "Fakultät: ",FAK(X)

END PROGRAM FAKULTAET