ΠΡΟΓΡΑΜΜΑ Κύριο
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ:Α[24],Λέξη_Γράμματα[15],απαντ
ΑΚΕΡΑΙΕΣ:ι,j,Λ,ν,Αρχική[15],Κλειδί[15],Τελική[15]
ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
Α[1] <-- 'Α'
Α[2] <-- 'Β'
Α[3] <-- 'Γ'
Α[4] <-- 'Δ'
Α[5] <-- 'Ε'
Α[6] <-- 'Ζ'
Α[7] <-- 'Η'
Α[8] <-- 'Θ'
Α[9] <-- 'Ι'
Α[10] <-- 'Κ'
Α[11] <-- 'Λ'
Α[12] <-- 'Μ'
Α[13] <-- 'Ν'
Α[14] <-- 'Ξ'
Α[15] <-- 'Ο'
Α[16] <-- 'Π'
Α[17] <-- 'Ρ'
Α[18] <-- 'Σ'
Α[19] <-- 'Τ'
Α[20] <-- 'Υ'
Α[21] <-- 'Φ'
Α[22] <-- 'Χ'
Α[23] <-- 'Ψ'
Α[24] <-- 'Ω'
!Αρχική λέξη
ΓΡΑΨΕ'Δώσε αριθμό γραμμάτων αρχικής λέξης(Μέγιστο 15 γράμματα)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Λ
ΜΕΧΡΙΣ_ΟΤΟΥ Λ<=15
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Λ
ΓΡΑΨΕ'Δώσε ',ι,'γράμμα'
ΔΙΑΒΑΣΕ Λέξη_Γράμματα[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Λ
j <-- 1
done <-- ΨΕΥΔΗΣ
ΟΣΟ j<=24 ΚΑΙ done= ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ Λέξη_Γράμματα[ι]=Α[j] ΤΟΤΕ
Αρχική[ι] <-- j
done <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
j <-- j+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Λέξη κλειδί
ΓΡΑΨΕ 'Δώσε αριθμό γραμμάτων λέξης κλειδί(Μέγιστο 15 γράμματα)'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ν
ΜΕΧΡΙΣ_ΟΤΟΥ ν<=15
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ ν
ΓΡΑΨΕ'Δώσε ',ι,'γράμμα'
ΔΙΑΒΑΣΕ Λέξη_Γράμματα[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ ν
j <-- 1
done <-- ΨΕΥΔΗΣ
ΟΣΟ j<=24 ΚΑΙ done= ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ Λέξη_Γράμματα[ι]=Α[j] ΤΟΤΕ
Κλειδί[ι] <-- j
done <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
j <-- j+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Επιλογή διαδικασίας
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε "Κ" Για κρυπτογράφηση ή "Α" για αποκρυπτογράφηση'
ΔΙΑΒΑΣΕ απαντ
ΜΕΧΡΙΣ_ΟΤΟΥ απαντ='Α' Ή απαντ='Κ'
ΑΝ απαντ='Κ' ΤΟΤΕ
ΚΑΛΕΣΕ κρυπτογράφηση(Αρχική,Κλειδί,Τελική,Λ,ν)
ΑΛΛΙΩΣ
ΚΑΛΕΣΕ αποκρυπτογράφηση(Αρχική,Κλειδί,Τελική,Λ,ν)
ΤΕΛΟΣ_ΑΝ
!Εμφάνιση αποτελέσματος
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Λ
ΓΡΑΨΕ_ Α[Τελική[ι]]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ κρυπτογράφηση(Α,Β,Γ,χ,ψ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α[15],Β[15],Γ[15],χ,ψ,ι,j
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ χ
ΑΝ ι<=ψ ΤΟΤΕ
j <-- ι
ΑΛΛΙΩΣ
j <-- ι MOD ψ
ΤΕΛΟΣ_ΑΝ
ΑΝ (Α[ι]+Β[j])<=24 ΤΟΤΕ
Γ[ι] <-- (Α[ι]+Β[j])
ΑΛΛΙΩΣ
Γ[ι] <-- (Α[ι]+Β[j]) MOD 24
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ αποκρυπτογράφηση(Α,Β,Γ,χ,ψ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α[15],Β[15],Γ[15],χ,ψ,ι,j
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ χ
ΑΝ ι<=ψ ΤΟΤΕ
j <-- ι
ΑΛΛΙΩΣ
j <-- ι MOD ψ
ΤΕΛΟΣ_ΑΝ
ΑΝ Α[ι]-Β[j]<=0 ΤΟΤΕ
Γ[ι] <-- Α[ι]-Β[j]+24
ΑΛΛΙΩΣ
Γ[ι] <-- Α[ι]-Β[j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
