ΠΡΟΓΡΑΜΜΑ ΨΗΦΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α[50],Ψ,Ι,Π,ΑΡ,ΜΗΔΕΝΙΚΑ,ΦΟΡΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ:Χ
ΧΑΡΑΚΤΗΡΕΣ:ΑΠ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΦΟΡΕΣ <-- 0
ΜΗΔΕΝΙΚΑ <-- 0
Π <-- 0
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'Δωσε εναν οποιονδηποτε αριθμο'
ΔΙΑΒΑΣΕ Χ
ΑΝ Χ<0 ΤΟΤΕ
Χ <-- -Χ
ΤΕΛΟΣ_ΑΝ
ΑΝ ΑΚ_Μ(Χ)<>Χ ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Χ<=1 ΤΟΤΕ
ΜΗΔΕΝΙΚΑ <-- ΜΗΔΕΝΙΚΑ +1
Α[ΜΗΔΕΝΙΚΑ] <-- 0
Π <-- 0
ΤΕΛΟΣ_ΑΝ
ΦΟΡΕΣ <-- ΦΟΡΕΣ+1
Π <-- Π+1
Χ <-- Χ*10
ΜΕΧΡΙΣ_ΟΤΟΥ ΑΚ_Μ(Χ)=Χ
ΤΕΛΟΣ_ΑΝ
ΑΡ <-- ΑΚ_Μ(Χ)
Ψ <-- ΕΥΡΕΣΗ_ΑΡΙΘΜΟΥ_ΨΗΦΙΩΝ(ΑΡ)
ΚΑΛΕΣΕ ΕΥΡΕΣΗ_ΚΑΘΕ_ΨΗΦΙΟΥ(ΑΡ,Ψ,Α,ΜΗΔΕΝΙΚΑ)
ΓΡΑΨΕ'================================='
ΓΡΑΨΕ 'Ο αριθμος που εδωσες εχει',Ψ+ΜΗΔΕΝΙΚΑ,'ψηφια'
ΓΡΑΨΕ'================================='
ΓΡΑΨΕ 'Ακεραιο Μερος'
ΑΝ ΜΗΔΕΝΙΚΑ<>0 ΤΟΤΕ
Π <-- Π-1
ΤΕΛΟΣ_ΑΝ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ψ-Π
ΓΡΑΨΕ Ι,'-->:', Α[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ'================================='
ΑΝ ΦΟΡΕΣ<>0 ΤΟΤΕ
ΓΡΑΨΕ'================================='
ΓΡΑΨΕ 'Πραγματικο Μερος'
ΓΙΑ Ι ΑΠΟ Ψ-Π+1 ΜΕΧΡΙ Ψ+ΜΗΔΕΝΙΚΑ
ΓΡΑΨΕ Ι,'-->:', Α[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ'================================='
ΤΕΛΟΣ_ΑΝ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Εκτελεση Ξανα ? (ΝΑΙ/ΟΧΙ)'
ΔΙΑΒΑΣΕ ΑΠ
ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠ='ΟΧΙ' Η ΑΠ='OXI' Η ΑΠ='ΝΑΙ' Η ΑΠ='NAI'
ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠ='ΟΧΙ' Η ΑΠ='OXI'
ΚΛΕΙΣΕ_ΠΑΡΑΘΥΡΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΕΥΡΕΣΗ_ΑΡΙΘΜΟΥ_ΨΗΦΙΩΝ(ΑΡ):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ΑΡ,Κ,Ι,Ψ
ΑΡΧΗ
Κ <-- 1
Ι <-- 1
Ψ <-- 0
ΟΣΟ Κ<> 0 ΕΠΑΝΑΛΑΒΕ
Ψ <-- 1+Ψ
Ι <-- Ι*10
Κ <-- ΑΚ_Μ(ΑΡ/Ι)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΥΡΕΣΗ_ΑΡΙΘΜΟΥ_ΨΗΦΙΩΝ <-- Ψ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΕΥΡΕΣΗ_ΚΑΘΕ_ΨΗΦΙΟΥ(ΑΡ,Ψ,Α,ΜΗΔΕΝΙΚΑ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,ΑΡ,Ψ,Α[50],Κ,ΜΗΔΕΝΙΚΑ
ΑΡΧΗ
Κ <-- ΜΗΔΕΝΙΚΑ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ψ
Κ <-- Κ+1
Α[Κ] <-- ΑΚ_Μ(ΑΡ/(10^(Ψ-Ι)))
ΑΡ <-- ΑΚ_Μ(ΑΡ - Α[Κ]*10^(Ψ-Ι))
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ΑΚ_Μ(Χ):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ:Χ
ΑΚΕΡΑΙΕΣ:Ι
ΑΡΧΗ
Ι <-- 0
ΑΝ Χ>=0 ΤΟΤΕ
ΟΣΟ Χ>=1 ΕΠΑΝΑΛΑΒΕ
Ι <-- Ι+1
Χ <-- Χ-1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ
ΟΣΟ Χ<=-1 ΕΠΑΝΑΛΑΒΕ
Ι <-- Ι-1
Χ <-- Χ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΚ_Μ <-- Ι
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ