Fortran

One of the first Fortran programs.
The following program, written by Backus, is taken from the programmer's FORTRAN manual. The program reads N numbers and calculates the maximum.

         DIMENSION A(999)
         FREQUENCY 30 (2,1,10), 5(100)
         READ 1, N, (A(I), I = 1,N)
       1 FORMAT (I3/(12F6.2))
         BIGA = A(1)
       5 DO 20 I = 2,N
      30 IF (BIGA-A((I)) 10,20,20
      10 BIGA = A(I)
      20 CONTINUE
         PRINT 2, N, BIGA
       2 FORMAT (22H1THE LARGEST OF THESE NUMBERS IS F7.2)
         STOP 77777

Tix

Posted by Webmaster : 22/03/2007 03:34:36 | Login to enter your comment |

Comments

I was seeking for Fortran(For transaction)language since months ago, it's similar to microprocessor language.
 

---

Posted by Elliston Walter : 16 Gen 2013 at 07:10:11 |