Μάθημα : ΠΛΗΡΟΦΟΡΙΚΗ ΑΕΠΠ Γ ΛΥΚΕΙΟΥ 2021-2022

ΠΡΟΓΡΑΜΜΑ ΠΟΤΑΜΙΑ
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΠΛΗΘΟΣ, Ι,Κ, ΜΑΧ , ΕΠ[20,12] ,ΜΕΤΡΗΤΗΣ
   ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ[20]
   ΧΑΡΑΚΤΗΡΕΣ: Π[20], Π7[20],ΤΕΜΠ
ΑΡΧΗ
   ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΠΟΤΑΜΩΝ:'
   ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
         ΔΙΑΒΑΣΕ ΠΛΗΘΟΣ
   ΜΕΧΡΙΣ_ΟΤΟΥ ΠΛΗΘΟΣ>0 ΚΑΙ ΠΛΗΘΟΣ<=20
   ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ
        ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΟΝΟΜΑ ΤΟΥ ',Ι,'ΠΟΤΑΜΟΥ'
        ΔΙΑΒΑΣΕ Π[Ι]
   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
   ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ
           ΓΡΑΨΕ 'Η ΕΠΙΚΙΝΔΥΝΟΤΗΤΑ ΡΥΠΩΝ ΤΟΥ ΠΟΤΑΜΟΥ', Π[Ι],'ΕΙΝΑΙ:'
           ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
                  ΓΡΑΨΕ 'ΓΙΑ ΤΟΝ', Κ, 'ΜΗΝΑ'
                  ΚΑΛΕΣΕ Υ_Ε(ΜΑΧ)
                  ΕΠ[Ι,Κ] <-- ΜΑΧ
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ
           ΜΟ[Ι] <-- 0
           ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
                 ΜΟ[Ι] <-- ΜΟ[Ι] + ΕΠ[Ι,Κ]
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          ΜΟ[Ι] <-- ΜΟ[Ι]/12
   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΜΕΤΡΗΤΗΣ <-- 0
    ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ
           ΑΝ ΜΟ[Ι]>7 ΤΟΤΕ
                ΜΕΤΡΗΤΗΣ <-- ΜΕΤΡΗΤΗΣ+1
                Π7[ΜΕΤΡΗΤΗΣ] <-- Π[Ι]
          ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ ΜΕΤΡΗΤΗΣ
          ΓΙΑ Κ ΑΠΟ ΜΕΤΡΗΤΗΣ ΜΕΧΡΙ Ι ΜΕ ΒΗΜΑ -1
          ΑΝ Π7[Κ] < Π7[Κ-1] ΤΟΤΕ
             ΤΕΜΠ <-- Π7[Κ]
                 Π7[Κ] <-- Π7[Κ-1]
                 Π7[Κ-1] <-- ΤΕΜΠ
        ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΜΕΤΡΗΤΗΣ
          ΓΡΑΨΕ Π7[Ι]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ Υ_Ε(ΜΑΧ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΜΑΧ, ΕΠΙΚ
ΑΡΧΗ
ΜΑΧ <-- -1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΕΠΙΚΙΝΔΥΝΟΤΗΤΑ'
ΔΙΑΒΑΣΕ ΕΠΙΚ
ΑΝ ΜΑΧ<ΕΠΙΚ ΤΟΤΕ
ΜΑΧ <-- ΕΠΙΚ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠΙΚ=0

ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ