ΠΡΟΓΡΑΜΜΑ SXOLIKOS_DIAGONISMOS
!****************************************************************
!* PROGRAM MADE BY PERIPTERO *
!* EMAIL periptero at gmail dot com *
!* Το παρακάτω πρόγραμμα θεωρώ ότι ξεφεύγει από τους σκοπούς *
!* του μαθήματος ΑΕΠΠ. Πιστεύω ότι είναι ανωτέρου επιπέδου *
!****************************************************************
ΣΤΑΘΕΡΕΣ
N=100
M=30
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: I,J,BATHMOS[N],SXOLEIO[N], KOD, SUM1, MAX1, MAX2, MAX3, FLAG, FLAG1
ΠΡΑΓΜΑΤΙΚΕΣ: F[M], MO_B
ΧΑΡΑΚΤΗΡΕΣ: ONOMA[N], TAXH[N], ONOMA_SX[M], ONOMA_MATHITI, ONOMA_SXOLEIOU
ΑΡΧΗ
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ N
ΓΡΑΨΕ 'DOSE TO ONOMATEPONYMO TOU MATHITI'
ΔΙΑΒΑΣΕ ONOMA[I]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'DOSE THN TAJH TOU MATHITI (A η B η Γ)'
ΔΙΑΒΑΣΕ TAXH[I]
ΜΕΧΡΙΣ_ΟΤΟΥ TAXH[I]='Α' Η TAXH[I]='Β' Η TAXH[I]='Γ'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'DOSE TO BATHMO (1-100)'
ΔΙΑΒΑΣΕ BATHMOS[I]
ΜΕΧΡΙΣ_ΟΤΟΥ BATHMOS[I]>0 ΚΑΙ BATHMOS[I]<101
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'DOSE TON KODIKO TOU SXOLEIOU (1-30)'
ΔΙΑΒΑΣΕ SXOLEIO[I]
ΜΕΧΡΙΣ_ΟΤΟΥ SXOLEIO[I]>0 ΚΑΙ SXOLEIO[I]<31
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ M
ΓΡΑΨΕ 'DOSE TO ONOMA TOU SXOLEIOU ΜΕ KODIKO: ', I
ΔΙΑΒΑΣΕ ONOMA_SX[I]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ M
F[I] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ N
KOD <-- SXOLEIO[I]
F[KOD] <-- F[KOD]+SXOLEIO[I]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ M
F[I] <-- F[I]/M
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
SUM1 <-- 0
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ N
ΑΝ TAXH[I]='Β' ΤΟΤΕ
SUM1 <-- SUM1+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
MO_B <-- SUM1/N
MO_B <-- MO_B*100
ΓΡΑΨΕ 'MO= ', MO_B, '%'
MAX1 <-- 0
MAX2 <-- 0
MAX3 <-- 0
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ N
ΑΝ TAXH[I]='Α' ΤΟΤΕ
ΑΝ BATHMOS[I]>MAX1 ΤΟΤΕ
MAX1 <-- BATHMOS[I]
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ TAXH[I]='Β' ΤΟΤΕ
ΑΝ BATHMOS[I]>MAX2 ΤΟΤΕ
MAX2 <-- BATHMOS[I]
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΑΝ BATHMOS[I]>MAX3 ΤΟΤΕ
MAX3 <-- BATHMOS[I]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ N
ΑΝ BATHMOS[I]=MAX1 ΤΟΤΕ
ΓΡΑΨΕ TAXH[I],ONOMA[I],BATHMOS[I],SXOLEIO[I]
ΤΕΛΟΣ_ΑΝ
ΑΝ BATHMOS[I]=MAX2 ΤΟΤΕ
ΓΡΑΨΕ TAXH[I],ONOMA[I],BATHMOS[I],SXOLEIO[I]
ΤΕΛΟΣ_ΑΝ
ΑΝ BATHMOS[I]=MAX3 ΤΟΤΕ
ΓΡΑΨΕ TAXH[I],ONOMA[I],BATHMOS[I],SXOLEIO[I]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'DOSE TO ONOMA TOU MATHITI'
ΔΙΑΒΑΣΕ ONOMA_MATHITI
FLAG <-- 0
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ N
ΑΝ ONOMA_MATHITI=ONOMA[I] ΤΟΤΕ
ΓΡΑΨΕ TAXH[I], BATHMOS[I], SXOLEIO[I]
FLAG <-- 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ FLAG=0 ΤΟΤΕ
ΓΡΑΨΕ 'DEN YPARXEI'
ΤΕΛΟΣ_ΑΝ
FLAG1 <-- 0
ΓΡΑΨΕ 'DOSE TO ONOMA TOU SXOLEIOU'
ΔΙΑΒΑΣΕ ONOMA_SXOLEIOU
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ M
ΑΝ ONOMA_SXOLEIOU=ONOMA_SX[I] ΤΟΤΕ
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ N
ΑΝ SXOLEIO[J]=I ΤΟΤΕ
ΓΡΑΨΕ ONOMA[J], BATHMOS[J], TAXH[J]
FLAG1 <-- 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ FLAG1=0 ΤΟΤΕ
ΓΡΑΨΕ 'TO SXOLEIO DEN YPARXEI'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ