ΛΥΣΗ ΕΠΑΝΑΛΗΠΤΙΚΗΣ ΑΣΚΗΣΗΣ 5

ΠΡΟΓΡΑΜΜΑ κινητή_τηλεφωνία

ΜΕΤΑΒΛΗΤΕΣ

ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡΟΝΟΙ[100000,12],Συνολικός_χρόνος,Σ

ΑΚΕΡΑΙΕΣ: συνδρομητής,μήνας,ΠΟΣΑ[1000000],θέση

ΧΑΡΑΚΤΗΡΕΣ:ONOMATA[1000000],όνομα

ΛΟΓΙΚΕΣ:βρέθηκε

ΑΡΧΗ

ΓΙΑ συνδρομητής ΑΠΟ 1 ΜΕΧΡΙ 10000000

ΓΡΑΨΕ 'Δώστε το όνομα του ',συνδρομητής,'ου συνδρομητή:'

ΔΙΑΒΑΣΕ ΟΝΟΜΑΤΑ[συνδρομητης]

ΓΙΑ μήνας ΑΠΟ 1 ΜΕΧΡΙ 12

ΓΡΑΨΕ 'Δώστε το χρόνο ομιλίας για τον',μήνας,'ο μήνα:'

ΔΙΑΒΑΣΕ ΧΡΟΝΟΙ[συνδρομητής,μήνας]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

Συνολικός_χρόνος<-0

ΓΙΑ συνδρομητής ΑΠΟ 1 ΜΕΧΡΙ 1000000

Συνολικός_χρόνος<-Συνολικός_χρόνος+ΧΡΟΝΟΙ[συνδρομητής,3]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΓΙΑ συνδρομητής ΑΠΟ 1 ΜΕΧΡΙ 1000000

Σ<-0

ΓΙΑ μήνας ΑΠΟ 1 ΜΕΧΡΙ 12

Σ<-Σ+ΧΡΟΝΟΙ[συνδρομητής,μήνας]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΑΝ Σ<=50 ΤΟΤΕ

ΠΟΣΑ[συνδρομητής]<-80

ΑΛΛΙΩΣ_ΑΝ Σ<=120 ΤΟΤΕ

ΠΟΣΑ[συνδρομητής]<--130

ΑΛΛΙΩΣ

ΠΟΣΑ[συνδρομητής] <--200

ΤΕΛΟΣ_ΑΝ

ΓΡΑΨΕ 'Δώστε το όνομα του συνδρομητή:'

ΔΙΑΒΑΣΕ όνομα

συνδρομητής<--1

βρέθηκε<--ΨΕΥΔΗΣ

θέση<--0

ΟΣΟ (βρέθηκε=ΨΕΥΔΗΣ) ΚΑΙ (συνδρομητής<=10000000) ΕΠΑΝΑΛΑΒΕ

ΑΝ ΟΝΟΜΑΤΑ[συνδρομητής]=όνομα ΤΟΤΕ

βρέθηκε<--ΑΛΗΘΗΣ

θέση<--συνδρομητής

ΑΛΛΙΩΣ

συνδρομητής<--συνδρομητής+1

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΑΝ βρέθηκε=ΑΛΗΘΗΣ ΤΟΤΕ

ΓΡΑΨΕ 'Ο συνδρομητής θα ενισχυθεί με το ποσό των',ΠΟΣΑ[θέση],'ΕΥΡΩ'

ΑΛΛΙΩΣ

ΓΡΑΨΕ 'Δεν υπάρχει συνδρομητής με όνομα',όνομα

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ