ΠΡΟΓΡΑΜΜΑ ΛΕΙΤΟΥΡΓΙΚΑ_ΣΥΣΤΗΜΑΤΑ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: ΒΑΘΜΟΙ[5]
ΑΚΕΡΑΙΕΣ: Ι, ΣΥΕΣ, ΣΝΟ
ΧΑΡΑΚΤΗΡΕΣ: ΟΝ
ΑΡΧΗ
ΣΝΟ <- 0
ΣΥΕΣ <- ΣΝΟ
ΓΡΑΨΕ "ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΒΑΘΜΟΥΣ ΜΕ ΣΕΙΡΑ:ΟΝ,Α1,Α2,Α3,Π"
ΔΙΑΒΑΣΕ ΟΝ
ΟΣΟ ΟΝ <> " " ΕΠΑΝΑΛΑΒΕ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 4
ΚΑΛΕΣΕ ΒΑΘΜΟΣΥΠΟΧΡ(ΒΑΘΜΟΙ[Ι])
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ (ΒΑΘΜΟΙ[1] + ΒΑΘΜΟΙ[2] + ΒΑΘΜΟΙ[3] + ΒΑΘΜΟΙ[4])/4 >= 5 ΤΟΤΕ
ΓΡΑΨΕ "ΔΩΣΕ ΒΑΘΜΟ ΤΕΛΙΚΗΣ ΕΞΕΤΑΣΗΣ"
ΚΑΛΕΣΕ ΒΑΘΜΟΣΥΠΟΧΡ(ΒΑΘΜΟΙ[5])
ΓΡΑΨΕ ΥΠΟΛΟΓΙΣΜΟΣ_ΣΥΝΟΛΙΚΟΥ(ΒΑΘΜΟΙ[1], ΒΑΘΜΟΙ[2], ΒΑΘΜΟΙ[3], ΒΑΘΜΟΙ[4], ΒΑΘΜΟΙ[5])
ΣΥΕΣ <- ΣΥΕΣ + 1
ΑΛΛΙΩΣ
ΓΡΑΨΕ "Ο/Η ", ΟΝ, " ΔΕΝ ΔΙΚΑΙΟΥΤΑΙ ΝΑ ΣΥΜΜΕΤΑΣΧΕΙ ΣΤΗΝ ΤΕΛΙΚΗ ΕΞΕΤΑΣΗ "
ΣΝΟ <- ΣΝΟ + 1
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ "ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΒΑΘΜΟ"
ΔΙΑΒΑΣΕ ΟΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ "ΟΙ ΜΗ ΔΙΚΑΙΟΥΧΟΙ ΣΤΗΝ ΤΕΛΙΚΟΙ ΕΞΕΤΑΣΗ ΑΠΟΤΕΛΟΥΝ ΤΟ ", 100*ΣΝΟ/(ΣΥΕΣ + ΣΝΟ), " % ΤΟΥ ΣΥΝΟΛΟΥ"
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΒΑΘΜΟΣΥΠΟΧΡ(Β)
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Β
ΑΡΧΗ
ΔΙΑΒΑΣΕ Β
ΟΣΟ Β < 0 Η Β > 10 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ "ΠΡΕΠΕΙ 0<=Β<=10"
ΔΙΑΒΑΣΕ Β
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ΥΠΟΛΟΓΙΣΜΟΣ_ΣΥΝΟΛΙΚΟΥ(Α1, Α2, Α3, Π, ΤΕ): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Α1, Α2, Α3, Π, ΤΕ
ΑΡΧΗ
ΑΝ ΤΕ < 5 ΤΟΤΕ
ΥΠΟΛΟΓΙΣΜΟΣ_ΣΥΝΟΛΙΚΟΥ <- 0.1*(Α1 + Α2 + Α3) + 0.15*Π + 0.55*ΤΕ
ΑΛΛΙΩΣ
ΥΠΟΛΟΓΙΣΜΟΣ_ΣΥΝΟΛΙΚΟΥ <- 0.06*(Α1 + Α2 + Α3) + 0.12*Π + 0.7*ΤΕ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
η λυση του τρίτου 8εματος. εμένα μου τρεχει σωστα παντως στην ΓΛΩΣΣΑ οπως και το 4 θέμα .