ΠΡΟΓΡΑΜΜΑ ΨΗΦΙΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:Α[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 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΑΝ ΑΚ_Μ <-- Ι ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ