Προγραμματισμός FORTRAN > Παραδείγματα > Μετατροπή Συντεταγμένων

Να γραφεί πρόγραμμα που να μετατρέπει τις Καρτεσιανές συντεταγμένες X, Y σε Σφαιρικές συντεταγμένες R, F. Οι τύποι υπολογισμού είναι:

Κώδικας:

PROGRAM syntetagmenes
IMPLICIT NONE
 REAL:: X, Y, R, F, F2
 WRITE(*,*) 'Dwse Tis Kartesianes Syntetagmenes X, Y:'
 READ(*,*) X, Y
!
 R = SQRT(X**2+Y**2)
 F = ATAN(Y/X)
 F2 = 180.0*F/3.141593
!
 WRITE(*,*) 'Oi Sfairikes Syntetagmenes einai:'
 WRITE(*,*) 'Aktina R = ', R
 WRITE(*,*) 'Gwnia F = ',F,'rad =',F2,'moires'
END

Εκτέλεση:

 Dwse Tis Kartesianes Syntetagmenes X, Y:
4, 4

 Oi Sfairikes Syntetagmenes einai:
 Aktina R = 5.656854
 Gwnia F = 0.7853982 rad = 45.00000 moires