Αλγόριθμος ΔΘ
Σ<- 0
p<- 1
Για i απο 1 μέχρι 10
Διάβασε ΟΝ[i]
Για j απο 1 μέχρι 4
Για κ απο 1 μέχρι 7
Δίαβασε Μ[i,j,κ] !Χρησιμοποιώ τριδιάστατο πίνακα αφού διευκολύνει ιδιαίτερα
Τέλος_επανάληψης !το τελευταίο ερώτημα,και γενικότερα έχουμε καλύτερο έλεγχο των εβδομάδων/μερών
Τέλος_επανάληψης
Τέλος_επανάληψης !Τέλος Δ1
Για i απο 1 μέχρι 10
Σ<- 0
Για j απο 1 μέχρι 4
Για κ απο 1 μέχρι 7
Σ<- Σ+Μ[i,j,k] !Κάνω το σύνολο κάθε βδομάδας
Τέλος_επανάληψης
Τέλος_επανάληψης
Εμφάνισε "Όνομα:", ΟΝ[i],"Επισκέψεις σε διάστημα 4 εβδομάδων:",Σ
Τέλος_επανάληψης !Τέλος Δ2
f1<- false
Για i απο 1 μέχρι 10
i<- 1
f2<- true
Όσο j<=4 και f=true επανάλαβε
Όσο κ<=7 και f2=true επανάλαβε
Αν M[i,j,κ]=<500 τοτε f2=false !Αν έστω και μία μέρα δέν έχει πάν απο 500,σταματάει
κ<- κ+1 !η σύγκριση αυτού το ιστοτόπου μέσω της μεταβλητής f2
Τέλος_επανάληψης
j<- j+1
Τέλος_επανάληψης
Άν f=true τοτε
Εμφάνισε "Ο ιστότοπος",ΟΝ[i],"είχε 500 και άνω επισκέψεις καθημερινά αυτές τις 4 εβδομάδες"
f1<- true
Tέλος_αν
Τέλος_επανάληψης
Aν f1=false τοτε Εμφάνισε "Δέν υπήρξαν σελίδες που να πληρούν τα κριτήρια"
Αρχή_επανάληψης !Tέλος Δ3
Εμφάνισε "Εισάγετε όνομα"
Δίαβασε χ
f1<- false
Όσο i<=10 και f1=false επανάλαβε !Ξαναχρησιμοποιώ την f1 μη χαλαμε τζάμπα bytes αφου κάθεται...
Αν x=ΟΝ[i] τότε
f1<- true
p<- i !Βρίσκω ποιός ιστοτοπος είναι με την μεταβλητη p
Tέλος_αν
Tέλος_επανάληψης
μέχρις_οτου f1=true
Για j απο 1 μέχρι 4 !Mεταφέρω τα εβδομαδιαία σύνολα σε άλλο πίνακα
Για k απο 1 μέχρι 7
Ε[j]<- E[j]+M[p,j,κ]
Tέλος_επανάληψης
Τέλος_επανάληψης
max<- E[1]
m<- 1
Για j απο 2 μεχρι 4 !Βρίσκω το μέγιστο τους
Άν max<E[j] τότε
max<- E[j]
m<- j
Tέλος_αν
Tέλος_επανάληψης
Eμφάνισε "Εβδομαδα μέγιστης επισκεψιμότητας:", m !Ξαναψάχνω μήπως υπάρχει άλλη βδομάδα με το ίδιο σύνολο,αφού η εκφώνηση λέει "εβδομάδες"
Για j απο 2 μέχρι 4
Άν max=E[j] τότε
Εμφάνισε "Εβδομάδα επίσης μέγιστης επισκεψιμότητας:",j
Tέλος_αν
Τέλος_επανάληψης
Τέλος ΘΔ
