!Να γραφτεί υποπρόγραμμα που θα δέχεται ένα φυσικό αριθμό
!(του 0 συμπεριλαμβανομένου)
!και θα επιστρέφει το συμπλήρωμά του ως προς 9.
!Υπενθυμίζεται ότι το συμπλήρωμα ενός αριθμού χ ως προς 9
!είναι ένας αριθμός ψ, κάθε ψηφίο του οποίου αθροιζόμενο
!με το αντίστοιχο ψηφίο του χ δίνει αποτέλεσμα 9.
!Για παράδειγμα αν χ=265 τότε ψ=734
ΠΡΟΓΡΑΜΜΑ Συμπλήρωμα9
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:x,xΣυμπλ
ΑΡΧΗ
ΚΑΛΕΣΕ ΕισαγωγήΦυσικού(x)
xΣυμπλ <-- Συμπλήρωμα(x)
ΓΡΑΨΕ 'Το συμπλήρωμα ως προς 9 του',x,'είναι',xΣυμπλ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Συμπλήρωμα9
ΔΙΑΔΙΚΑΣΙΑ ΕισαγωγήΦυσικού(x)
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ:y
ΑΚΕΡΑΙΕΣ:x
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώστε ένα φυσικό αριθμό'
ΔΙΑΒΑΣΕ y
ΑΝ y<>Α_Μ(y) Η y<0 ΤΟΤΕ
ΓΡΑΨΕ 'Δέ δόθηκε φυσικός. Παρακαλώ ξαναδοκιμάστε'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ y=Α_Μ(y) ΚΑΙ y>=0
x <-- Α_Μ(y)
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΕισαγωγήΦυσικού
ΣΥΝΑΡΤΗΣΗ Συμπλήρωμα(x):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:x,x1,sum,Ψηφίο,Ψηφίο2,Θέση
ΑΡΧΗ
x1 <-- x
sum <-- 0
Θέση <-- 1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ψηφίο <-- x1 MOD 10
Ψηφίο2 <-- 9 - Ψηφίο
x1 <-- x1 DIV 10
sum <-- Θέση * Ψηφίο2 + sum
Θέση <-- Θέση * 10
ΜΕΧΡΙΣ_ΟΤΟΥ x1=0
Συμπλήρωμα <-- sum
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ Συμπλήρωμα