! ---------------------------------------------------- ! Το πρόγραμμα ζητά τα ονόματα 10 εταιρειών και 40 ημερήσιες εισπράξεις κάθε μιας. ! Υστερα εμφανίζει το σύνολο κάθε εταιρείας,κάθε μέρας,την χειρότερη εταιρεία και ! την χειρότερη μέρα. ! ---------------------------------------------------- ΠΡΟΓΡΑΜΜΑ BICTOR ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Ι,Κ,ΘΕΣ,ΘΕΣ2 ΠΡΑΓΜΑΤΙΚΕΣ: Σ[10],ΕΙ[40],Σ2[40],ΜΙΝ,ΜΙΝ2 ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜ[3] ΑΡΧΗ ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10 ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ ΕΤΑΙΡΕΙΑΣ' ΔΙΑΒΑΣΕ ΟΝΟΜ[Ι] Σ[Ι] <-- 0 ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 40 ΓΡΑΨΕ 'ΔΩΣΕ ΕΙΣΠΡΑΞΗ' ΔΙΑΒΑΣΕ ΕΙ[Κ] Σ[Ι] <-- Σ[Ι]+ΕΙ[Κ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'ΣΥΝΟΛΟ ΕΤΑΙΡΕΙΑΣ',ΟΝΟΜ[Ι],'ΕΙΝΑΙ',Σ[Ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 40 Σ2[Κ] <-- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10 Σ2[Κ] <-- Σ2[Κ]+ΕΙ[Κ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'ΣΥΝΟΛΟ',Κ,'ΜΕΡΑΣ ΕΙΝΑΙ',Σ2[Κ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΙΝ <-- Σ[1] ΘΕΣ <-- 1 ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 10 ΑΝ ΜΙΝ<Σ[Ι] ΤΟΤΕ ΜΙΝ <-- Σ[Ι] ΘΕΣ <-- Ι ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΙΝ2 <-- Σ2[Ι] ΘΕΣ2 <-- 1 ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 40 ΑΝ ΜΙΝ2<Σ2[Ι] ΤΟΤΕ ΜΙΝ2 <-- Σ2[Ι] ΘΕΣ2 <-- Ι ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Η ΧΕΙΡΟΤΕΡΗ ΕΤΑΙΡΕΙΑ ΕΙΝΑΙ Η',ΟΝΟΜ[ΘΕΣ] ΓΡΑΨΕ 'Η ΜΕΡΑ ΜΕ ΤΙΣ ΛΙΓΟΤΕΡΕΣ ΕΙΣΠΡΑΞΕΙΣ ΕΙΝΑΙ Η',ΘΕΣ2 ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ BICTOR