C = 0 ) GO TO 90 S = ( A + B + C ) / 2.0 AREA = SQRT ( S * ( S - A ) * ( S - B ) * ( S - C ) ) WRITE ( 6, 601 ) A, B, C, AREA GO TO 10 50 WRITE ( 6, 602 ) STOP 90 WRITE ( 6, 603 ) STOP END "Retro" FORTRAN IV Ī retro example of a FORTRAN IV (later evolved into FORTRAN 66) program deck is available on the IBM 1130 page, including the IBM 1130 DM2 JCL required for compilation and execution. 2, $ "SQUARE UNITS" ) 602 FORMAT ( "NORMAL END" ) 603 FORMAT ( "INPUT ERROR OR ZERO VALUE ERROR" ) INTEGER A, B, C 10 READ ( 5, 501, END = 50, ERR = 90 ) A, B, C IF ( A = 0. In either condition, a message will be printed.Ĭ AREA OF A TRIANGLE - HERON'S FORMULA C INPUT - CARD READER UNIT 5, INTEGER INPUT, NO BLANK CARD FOR END OF DATA C OUTPUT - LINE PRINTER UNIT 6, REAL OUTPUT C INPUT ERROR DISPAYS ERROR MESSAGE ON OUTPUT 501 FORMAT ( 3 I5 ) 601 FORMAT ( " A= ", I5, " B= ", I5, " C= ", I5, " AREA= ", F10. This program has two input checks in the READ statement with the END and ERR parameters, one for a blank card to indicate end-of-data and the other for zero value along with valid data. 0 ) GO TO 90 S = ( A + B + C ) / 2.0 AREA = SQRT ( S * ( S - A ) * ( S - B ) * ( S - C ) ) WRITE ( 6, 601 ) A, B, C, AREA GO TO 10 50 WRITE ( 6, 602 ) STOP 90 WRITE ( 6, 603 ) STOP END Simple Fortran 77 program 2, $ 13 H SQUARE UNITS ) 602 FORMAT ( 10 HNORMAL END ) 603 FORMAT ( 23 HINPUT ERROR, ZERO VALUE ) INTEGER A, B, C 10 READ ( 5, 501 ) A, B, C IF ( A. No specific units are stated.Ĭ AREA OF A TRIANGLE - HERON'S FORMULA C INPUT - CARD READER UNIT 5, INTEGER INPUT, ONE BLANK CARD FOR END-OF-DATA C OUTPUT - LINE PRINTER UNIT 6, REAL OUTPUT C INPUT ERROR DISPAY ERROR MESSAGE ON OUTPUT 501 FORMAT ( 3 I5 ) 601 FORMAT ( 4 H A =, I5, 5 H B =, I5, 5 H C =, I5, 8 H AREA =, F10. Normal output will be one line printed with A, B, C, and AREA.
SIMPLY FORTRAN TUTORIAL CODE
If one of the input values is zero, then the program will end with an error code of "1" in the job control card listing following the execution of the program.
SIMPLY FORTRAN TUTORIAL FREE
Some compilers also offer free form source by using a compiler flagĪrea Of a Triangle program Simple Fortran II program If errors are produced when you compile your FORTRAN code, first check the column alignment.
the line-length may be limited to 72 characters (derived from the 80-byte width of a punch-card, with last 8 characters reserved for (optional) sequence numbers).continuation lines must have a non-blank character in column 6.statement labels must occur in columns 1-5.comments must begin with a * or C or ! in column 1.NOTE: Before FORTRAN 90, most FORTRAN compilers enforced fixed-format source code, a carryover from IBM punch cards
4.3 Dynamic memory allocation and arraysįORTRAN II, IV, and 77 compilers.3.3 FORTRAN 90 program to find the area of a triangle.
0 kommentar(er)
