Άσκηση : συγγραφή διαδικασίας

Γράψτε διαδικασία που διαβάζει τα αποτελέσματα
(ΝΙΚΗ ή ΙΣΟΠΑΛΙΑ ή ΗΤΤΑ) που έφερε μια ομάδα
ποδοσφαίρου σε 30 αγώνες της στο πρωτάθλημα και
υπολογίζει το ποσοστό (%) των νικών, ισοπαλιών και
ηττών της.
Παρατήρηση : Πρέπει να διασφαλίζεται η εγκυρότητα
όλων των εισερχόμενων δεδομένων.

Λύση

     ΔΙΑΔΙΚΑΣΙΑ ΟΜΑΔΑ(Π1, Π2, Π3)
     ΜΕΤΑΒΛΗΤΕΣ
          ΑΚΕΡΑΙΕΣ: Νικ, Ισο, Ητ, Κ
          ΠΡΑΓΜΑΤΙΚΕΣ: Π1, Π2, Π3
          ΧΑΡΑΚΤΗΡΕΣ: ΑΠ
     ΑΡΧΗ
         Νικ <-- 0
         Ισο <-- 0
         Ητ <-- 0
          ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 30
                ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                      ΔΙΑΒΑΣΕ ΑΠ
                ΜΕΧΡΙΣ_ΟΤΟΥ  (ΑΠ = 'ΝΙΚΗ') Ή
                                             (ΑΠ = 'ΙΣΟΠΑΛΙΑ') Ή
                                             (ΑΠ = 'ΗΤΤΑ')
                ΑΝ ΑΠ = 'ΝΙΚΗ' ΤΟΤΕ
                      Νικ <-- Νικ+1
                ΑΛΛΙΩΣ_ΑΝ  ΑΠ = 'ΙΣΟΠΑΛΙΑ' ΤΟΤΕ
                      Ισο <-- Ισο+1
                ΑΛΛΙΩΣ
                      Ητ <-- Ητ+1
                ΤΕΛΟΣ_ΑΝ
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          Π1 <-- 100*Νικ/30
          Π2 <-- 100*Ισο/30
          Π3 <-- 100*Ητ/30
     ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ