ΠΡΟΓΡΑΜΜΑ ΑΠΛΟΠΟΙΗΣΗ_ΤΕΤΡΑΓΩΝΙΚΗΣ_ΡΙΖΑΣ
!Το πρόγραμμα διαβάζει ένα μη αρνητικό αριθμό Α και απλοποιεί την
!τετραγωνική του ρίζα.
!π.χ. αν το Α=8 επιστρέφει Τ_Ρ(8)=2*Τ_Ρ(2)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α, ΣΥΝΤ, ΥΠΟΡ, Κ, Β
ΑΡΧΗ
ΚΑΛΕΣΕ ΔΙΑΒΑΣΕ_ΑΡΙΘΜΟ(Α)
Β ← Α_Μ(Τ_Ρ(Α))
ΑΝ Α = Β^2 ΤΟΤΕ
ΓΡΑΨΕ "ΤετραγωνικήΡίζα(", Α, ")=", Β
ΑΛΛΙΩΣ
ΣΥΝΤ ← 1
ΥΠΟΡ ← Α
Κ ← 2
ΟΣΟ Κ^2 <= ΥΠΟΡ ΕΠΑΝΑΛΑΒΕ
ΑΝ ΥΠΟΡ MOD (Κ^2) = 0 ΤΟΤΕ
ΣΥΝΤ ← ΣΥΝΤ*Κ
ΥΠΟΡ ← ΥΠΟΡ DIV (Κ^2)
ΑΛΛΙΩΣ
Κ ← Κ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΣΥΝΤ = 1 ΤΟΤΕ
ΓΡΑΨΕ "Η Τετραγωνική Ρίζα του ", Α, " δεν απλοποιείτε"
ΑΛΛΙΩΣ
ΓΡΑΨΕ "ΤετραγωνικήΡίζα(", Α, ")=", ΣΥΝΤ, "*ΤετραγωνικήΡίζα(", ΥΠΟΡ, ")"
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΑΣΕ_ΑΡΙΘΜΟ(ΑΡ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΑΡ
ΑΡΧΗ
ΓΡΑΨΕ "Δώσε μη αρνητικό ακέραιο"
ΔΙΑΒΑΣΕ ΑΡ
ΟΣΟ ΑΡ < 0 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ "Ο αριθμός δεν πρέπει να είναι αρνητικός"
ΔΙΑΒΑΣΕ ΑΡ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ