Προγραμματισμός FORTRAN > Παραδείγματα > Γωνία Διανυσμάτων

Να γραφεί πρόγραμμα που να υπολογίζει τη γωνία που σχηματίζουν δυο διανύσματα με συντεταγμένες (X1, Y1) και (X2, Y2 ) αντίστοιχα. Οι τύποι υπολογισμού είναι:

Κώδικας:

PROGRAM gwniadianysmatwn
IMPLICIT NONE
 REAL:: X1, Y1, X2, Y2, F1, F2, F
 WRITE(*,*) 'Dwse Syntetagmenes tou Dianysmatos 1 (X,Y):'
 READ(*,*) X1, Y1
 WRITE(*,*) 'Dwse Syntetagmenes tou Dianysmatos 2 (X,Y):'
 READ(*,*) X2, Y2
!
 F1 = ATAN(Y1/X1)
 F2 = ATAN(Y2/X2)
 F = ABS(F1-F2) * 180.0/3.141593
!
 WRITE(*,*) 'H Gwnia twn 2 Dianysmatwn einai:',F,'moires'
END

Εκτέλεση:

 Dwse Syntetagmenes tou Dianysmatos 1 (X,Y):
1, 0
 Dwse Syntetagmenes tou Dianysmatos 2 (X,Y):
1, 1

 H Gwnia twn 2 Dianysmatwn einai: 45.00000 moires