Προγραμματισμός FORTRAN > Παραδείγματα > ΕΚΠ & ΜΚΔ

Να γραφεί πρόγραμμα που να υπολογίζει το ελάχιστο κοινό πολλαπλάσιο (ΕΚΠ) και τον μέγιστο κοινό διαιρέτη (ΜΚΔ) δυο ακεραίων αριθμών. Το ΕΚΠ είναι το μικρότερο πολλαπλάσιο του μεγαλύτερου το οποίο διαιρείται ακριβώς από τον μικρότερο. Ο ΜΚΔ είναι ο μεγαλύτερος διαιρέτης του μικρότερου που διαιρεί ακριβώς τον μεγαλύτερο ('διαιρείται ακριβώς' σημαίνει ότι το αποτέλεσμα της διαίρεσης είναι ακέραιος - βλ. πράξη modulo).

Κώδικας:

PROGRAM ekpmkd
IMPLICIT NONE
  INTEGER:: i
  REAL:: A, B, X, Y, t, EKP, m, MKD
  WRITE(*,*) ' Dwse ta A, B: '
  READ(*,*) A, B
! - Bazoume to max sto X kai to min sto Y
  IF ( A >= B ) THEN
    X = A ; Y = B
  ELSE
    X = B ; Y = A
  END IF
! - E.K.P.-
  i = 0; t = 0.1
  DO WHILE (t /= INT(t))
    i = i+1
    t = X*i/Y
  END DO
  WRITE(*,*) 'EKP=', X*i
! - M.K.D.-
  m = MOD(X,Y)
  DO WHILE (m /= 0)
    X = Y
    Y = m
    m = MOD(X,Y)
  END DO
  WRITE(*,*) 'MKD=', Y
END

Εκτέλεση:

 Dwse ta A, B:
15, 40

 EKP= 120.0000
 MKD= 5.000000