!-----------------------------------------------------------------
! Το πρόγραμμα διαβάζει τους όρους ενός κλάσματος,
! υπολογίζει το μέγιστο κοινό τους διαιρέτη και
! απλοποιεί το κλάσμα
!-----------------------------------------------------------------
ΠΡΟΓΡΑΜΜΑ ΑΠΛΟΠΟΙΗΣΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΑΡ,ΠΑΡ,ΜΕΚΔ
ΑΡΧΗ
ΓΡΑΨΕ_ 'Δώσε τον αριθμητή '
ΔΙΑΒΑΣΕ ΑΡ
ΓΡΑΨΕ_ 'Δώσε τον παρονομαστή '
ΔΙΑΒΑΣΕ ΠΑΡ
ΜΕΚΔ <-- ΜΚΔ(ΑΡ,ΠΑΡ)
ΓΡΑΨΕ 'Το κλάσμα πρίν την απλοποίηση= ',ΑΡ,'/ ',ΠΑΡ
ΑΡ <-- ΑΡ DIV ΜΕΚΔ
ΠΑΡ <-- ΠΑΡ DIV ΜΕΚΔ
ΓΡΑΨΕ 'Το κλάσμα μετά την απλοποίηση= ',ΑΡ,'/ ',ΠΑΡ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΜΚΔ
!-------------------------------------------------------
ΣΥΝΑΡΤΗΣΗ ΜΚΔ(Α,Β): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α,Β,Ι,Μ,ΒΟΗΘ
ΑΡΧΗ
ΑΝ Α>Β ΤΟΤΕ
ΒΟΗΘ <-- Α
Α <-- Β
Β <-- ΒΟΗΘ
ΤΕΛΟΣ_ΑΝ
Ι <-- 1
Μ <-- 1
ΟΣΟ Ι<=Α ΕΠΑΝΑΛΑΒΕ
ΑΝ (Α MOD Ι=0) ΚΑΙ (Β MOD Ι=0) ΤΟΤΕ
Μ <-- Ι
ΤΕΛΟΣ_ΑΝ
Ι <-- Ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΚΔ <-- Μ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ