Προγραμματισμός FORTRAN > Παραδείγματα > Χωρική Απόσταση

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

Κώδικας:

PROGRAM xwrikiapostasi
IMPLICIT NONE
 REAL:: X1, Y1, Z1, X2, Y2, Z2, L
 WRITE(*,*) 'Dwse Syntetagmenes tou Simeiou 1 (X,Y,Z):'
 READ(*,*) X1, Y1, Z1
 WRITE(*,*) 'Dwse Syntetagmenes tou Simeiou 2 (X,Y,Z):'
 READ(*,*) X2, Y2, Z2
!
 F = SQRT((X2-X1)**2+(Y2-Y1)**2+(Z2-Z1)**2)
!
 WRITE(*,*) 'H Apostasi twn 2 simeiwn Einai:', L
END

Εκτέλεση:

 Dwse Syntetagmenes tou Simeiou 1 (X,Y,Z):
1 2 3
 Dwse Syntetagmenes tou Simeiou 2 (X,Y,Z):
6 5 4

 H Apostasi twn 2 simeiwn Einai: 5.916080