ΠΡΟΓΡΑΜΜΑ ΜΚΔ_ΕΚΠ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, Β, ΜΕΤΡΗΤΗΣ, ΜΚΔ, ΕΚΠ, ΜΙΚΡΟΤΕΡΟΣ, ΜΕΓΑΛΥΤΕΡΟΣ ΛΟΓΙΚΕΣ: ΟΚ ΑΡΧΗ ΓΡΑΨΕ 'Το πρόγραμμα αυτό υπολογίζει τον Μέγιστο Κοινό Διαιρέτη (ΜΚΔ) και' ΓΡΑΨΕ 'το Ελάχιστο Κοινό Πολλαπλάσιο (ΕΚΠ) δυο αριθμών Α και Β.' ΓΡΑΨΕ ΓΡΑΨΕ 'Δώσε μια τιμή για τον αριθμό Α και στη συνέχεια μια τιμή για τον αριθμό Β:' ΔΙΑΒΑΣΕ Α ΔΙΑΒΑΣΕ Β ΟΣΟ (Α<0) ΚΑΙ (Β<0) ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ 'Δώσε δυο αριθμούς για Α και Β:' ΔΙΑΒΑΣΕ Α ΔΙΑΒΑΣΕ Β ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΚΔ <-- 1 ΜΚΔ <-- Υπολογισμός_ΜΚΔ(Α, Β, ΜΚΔ) ΓΡΑΨΕ ΓΡΑΨΕ 'Ύστερα από τους πρόχειρους υπολογισμούς μου βρήκα ότι:' ΓΡΑΨΕ 'ΜΚΔ(',Α,',',Β,')','=', ΜΚΔ ΜΕΤΡΗΤΗΣ <-- 1 ΜΙΚΡΟΤΕΡΟΣ <-- 1 ΜΕΓΑΛΥΤΕΡΟΣ <-- 1 ΕΚΠ <-- 1 ΕΚΠ <-- Υπολογισμός_ΕΚΠ(Α, Β, ΜΕΤΡΗΤΗΣ, ΜΙΚΡΟΤΕΡΟΣ, ΜΕΓΑΛΥΤΕΡΟΣ, ΕΚΠ) ΓΡΑΨΕ 'και' ΓΡΑΨΕ 'ΕΚΠ(',Α,',',Β,')','=', ΕΚΠ ΓΡΑΨΕ ΓΡΑΨΕ 'Έκανα λάθος; Δε νομίζω!!!' ΓΡΑΨΕ 'Made by John Kopanelos ©2009' ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΜΚΔ_ΕΚΠ ΣΥΝΑΡΤΗΣΗ Υπολογισμός_ΜΚΔ(Συν_Α, Συν_Β, Συν_ΜΚΔ) : : ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Συν_Α, Συν_Β, Συν_ΜΚΔ ΛΟΓΙΚΕΣ: Συν_ΟΚ ΑΡΧΗ ΑΝ Συν_Α<Συν_Β ΤΟΤΕ Συν_ΜΚΔ <-- Συν_Α ΑΛΛΙΩΣ Συν_ΜΚΔ <-- Συν_Β ΤΕΛΟΣ_ΑΝ Συν_ΟΚ <-- ΨΕΥΔΗΣ ΟΣΟ Συν_ΟΚ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ ΑΝ (Συν_Α mod Συν_ΜΚΔ = 0) ΚΑΙ(Συν_Β mod Συν_ΜΚΔ = 0) ΤΟΤΕ Συν_ΟΚ <-- ΑΛΗΘΗΣ ΑΛΛΙΩΣ Συν_ΜΚΔ <-- Συν_ΜΚΔ - 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Υπολογισμός_ΜΚΔ <-- Συν_ΜΚΔ ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ ΣΥΝΑΡΤΗΣΗ Υπολογισμός_ΕΚΠ(Συν_Α, Συν_Β, Συν_ΜΕΤΡΗΤΗΣ, Συν_ΜΙΚΡΟΤΕΡΟΣ, Συν_ΜΕΓΑΛΥΤΕΡΟΣ, Συν_ΕΚΠ) : ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Συν_Α, Συν_Β, Συν_ΜΕΤΡΗΤΗΣ, Συν_ΜΙΚΡΟΤΕΡΟΣ, Συν_ΜΕΓΑΛΥΤΕΡΟΣ, Συν_ΕΚΠ ΛΟΓΙΚΕΣ: Συν_ΟΚ ΑΡΧΗ ΑΝ Συν_Α>Συν_Β ΤΟΤΕ Συν_ΜΙΚΡΟΤΕΡΟΣ <-- Συν_Β Συν_ΜΕΓΑΛΥΤΕΡΟΣ <-- Συν_Α ΑΛΛΙΩΣ Συν_ΜΙΚΡΟΤΕΡΟΣ <-- Συν_Α Συν_ΜΕΓΑΛΥΤΕΡΟΣ <-- Συν_Β ΤΕΛΟΣ_ΑΝ Συν_ΟΚ <-- ΨΕΥΔΗΣ Συν_ΜΕΤΡΗΤΗΣ <-- 1 ΟΣΟ Συν_ΟΚ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ ΑΝ (Συν_ΜΕΓΑΛΥΤΕΡΟΣ*Συν_ΜΕΤΡΗΤΗΣ) mod Συν_ΜΙΚΡΟΤΕΡΟΣ = 0 ΤΟΤΕ Συν_ΟΚ <-- ΑΛΗΘΗΣ Συν_ΕΚΠ <-- Συν_ΜΕΓΑΛΥΤΕΡΟΣ*Συν_ΜΕΤΡΗΤΗΣ ΑΛΛΙΩΣ Συν_ΜΕΤΡΗΤΗΣ <-- Συν_ΜΕΤΡΗΤΗΣ + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Υπολογισμός_ΕΚΠ <-- Συν_ΕΚΠ ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ