ΠΡΟΓΡΑΜΜΑ vathmoi
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: avath, bvath, cvath
  ΠΡΑΓΜΑΤΙΚΕΣ: tb
  ΛΟΓΙΚΕΣ: FLAG

ΑΡΧΗ
  ΚΑΛΕΣΕ eisagogi(avath, bvath, cvath, flag)
  TB <-- ΜΟ(AVATH, BVATH, CVATH, FLAG)
  ΚΑΛΕΣΕ EKSAGOGI(avath, bvath, cvath, tb, flag)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ vathmoi

ΔΙΑΔΙΚΑΣΙΑ eisagogi(a,b,c, done)
ΜΕΤΑΒΛΗΤΕΣ
  ΛΟΓΙΚΕΣ: done
  ΑΚΕΡΑΙΕΣ: a,b,c
ΑΡΧΗ
  done <-- ΨΕΥΔΗΣ
  ΓΡΑΨΕ 'dose ton vathmo toy a vathmologiti'
  ΔΙΑΒΑΣΕ a
  ΟΣΟ (a<0) Ή (a>100) ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'edoses lathos arithmo ksanaprospathise'
    ΔΙΑΒΑΣΕ a
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'dose ton vathmo toy b vathmologiti'
  ΔΙΑΒΑΣΕ b
  ΟΣΟ (b<0) Ή (b>100) ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'edoses lathos arithmo ksanaprospathise'
    ΔΙΑΒΑΣΕ b
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ Α_Τ(a-b)>12 ΤΟΤΕ
    done <-- ΑΛΗΘΗΣ
    ΓΡΑΨΕ 'dose ton vathmo toy  Anavathmologiti'
    ΔΙΑΒΑΣΕ c
    ΟΣΟ (c<0) Ή (c>100) ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'edoses lathos arithmo ksanaprospathise'
      ΔΙΑΒΑΣΕ c
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ ΜΟ(d,e,f,g): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΛΟΓΙΚΕΣ: g
  ΑΚΕΡΑΙΕΣ: d,e,f
ΑΡΧΗ
  ΑΝ g=ΨΕΥΔΗΣ ΤΟΤΕ
    ΜΟ <-- (d+e)/2
  ΑΛΛΙΩΣ
    ΜΟ <-- (d+e+f)/3
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ eksagogi(h,i,j,k,l)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: h,i,j
  ΠΡΑΓΜΑΤΙΚΕΣ: k
  ΛΟΓΙΚΕΣ: l
ΑΡΧΗ
  ΑΝ l=ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ  'A VATHMOLOGITIS  ',H,'  B VATHMOLOGITIS ',I,'  TELIKOS VATHMOS ',K
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ  'A VATHMOLOGITIS  ',H,'  B VATHMOLOGITIS ',I,' G VATHMOLOGITIS ',J,'  TELIKOS VATHMOS ',K
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
 

ΠΡΟΓΡΑΜΜΑ vathmoi
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: avath, bvath, cvath
  ΠΡΑΓΜΑΤΙΚΕΣ: tb
  ΛΟΓΙΚΕΣ: FLAG

ΑΡΧΗ
  ΚΑΛΕΣΕ eisagogi(avath)
  ΚΑΛΕΣΕ eisagogi(bvath)
  ΑΝ Check_Dif(avath, bvath)=ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'Αναβαθμολόγηση'
    ΚΑΛΕΣΕ eisagogi(cvath)
    flag <-- ΨΕΥΔΗΣ
  ΤΕΛΟΣ_ΑΝ
  TB <-- ΜΟ(AVATH, BVATH, CVATH, FLAG)
  ΚΑΛΕΣΕ EKSAGOGI(avath, bvath, cvath, tb, flag)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ vathmoi

!==============================================
ΔΙΑΔΙΚΑΣΙΑ eisagogi(bath)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: bath
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε Βαθμό'
  ΔΙΑΒΑΣΕ bath
  ΟΣΟ (bath < 0) Ή (bath > 100) ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'Λάθος βαθμός, επανάληψη'
    ΔΙΑΒΑΣΕ bath
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!==============================================
ΣΥΝΑΡΤΗΣΗ ΜΟ(d,e,f,g): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΛΟΓΙΚΕΣ: g
  ΑΚΕΡΑΙΕΣ: d,e,f
ΑΡΧΗ
  ΑΝ g=ΨΕΥΔΗΣ ΤΟΤΕ
    ΜΟ <-- (d+e)/2
  ΑΛΛΙΩΣ
    ΜΟ <-- (d+e+f)/3
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!==============================================
ΔΙΑΔΙΚΑΣΙΑ eksagogi(h,i,j,k,l)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: h,i,j
  ΠΡΑΓΜΑΤΙΚΕΣ: k
  ΛΟΓΙΚΕΣ: l
ΑΡΧΗ
  ΑΝ l=ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ  'A βαθμολογητής  ',H,'  B βαθμολογητής ',I,'  τελικός βαθμός',K
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ  'A βαθμολογητής  ',H,'  B βαθμολογητής ',I,' Αναβαθμολογητής ',J,' τελικός βαθμός ',K
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!==============================================
ΣΥΝΑΡΤΗΣΗ Check_Dif(a,b): ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: a,b
ΑΡΧΗ
  ΑΝ Α_Τ(a-b)>12 ΤΟΤΕ
    Check_Dif <-- ΨΕΥΔΗΣ
  ΑΛΛΙΩΣ
    Check_Dif <-- ΑΛΗΘΗΣ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!==============================================