Προγραμματισμός FORTRAN > Παραδείγματα > Λύσεις Τριωνύμου & Γραμμικής

Να γραφεί πρόγραμμα που να διερευνά και να λύνει τις εξισώσεις 1ου (Bx+C=0) & 2ου βαθμού (Ax² +Bx +C =0, τριώνυμο). Οι τύποι υπολογισμού είναι αντίστοιχα:

Κώδικας:

PROGRAM exiswseis
IMPLICIT NONE
 REAL:: A, B, C, D, R, R1, R2
 WRITE(*,*) ' Dwse ta A, B & C : '
 READ(*,*) A, B, C
!
 D = B**2 - 4*A*C ! Diakrinousa D
 IF (D>0) then
   IF (A==0) then
     WRITE (*,*) ' Grammikh Exiswsh - 1 Riza'
     R = -C/B
     WRITE(*,*) R
   Else
     WRITE (*,*) ' 2 Pragmatikes Rizes '
     R1 = (-B + SQRT(D))/(2*A)
     R2 = (-B - SQRT(D))/(2*A)
     WRITE(*,*) R1, R2
   ENDIF
 ENDIF
 IF (D==0) THEN
   IF (A==0 .AND. B==0 .AND. C==0) THEN
     WRITE (*,*) ' AORISTH LYSH '
   ELSEIF (A==0 .AND. B==0) THEN
     WRITE (*,*) ' ADYNATH LYSH '
   ELSE
     WRITE (*,*) ' 1 Diplh Pragmatikh Riza '
     R = -B/(2*A)
     WRITE(*,*) R
   ENDIF
 ENDIF
 IF (D<0) THEN
   WRITE (*,*) ' Mh Pragmatikes Rizes '
 ENDIF
END

Εκτέλεση:

 Dwse ta A, B & C :
0, 2, 4

 Grammikh Exiswsh - 1 Riza
 -2.000000

--------------------------

 Dwse ta A, B & C :
2, 4, -6

 2 Pragmatikes Rizes
 1.000000 -3.000000

--------------------------

 Dwse ta A, B & C :
1 2 1

 1 Diplh Pragmatikh Riza
 -1.000000