Βοήθεια/Απορίες στην ΑΕΠΠ - Ασκήσεις

[leobakagian]

Αλγοριθμος Στοιχημα
Διαβασε ποσο1,ποσο2,ποσο3,κερδισμενα
Σποσο<--ποσο1+ποσο2+ποσο3
κερδος1<--(ποσο1/Σποσο)*κερδισμενα
κερδος2<--(ποσο2/Σποσο)*κερδισμενα
κερδος3<--(ποσο3/Σποσο)*κερδισμενα
Εμφανισε κερδος1,κερδος2,κερδος3
Τελος Στοιχημα
...Με καθε επιφύλαξη...

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[SuXu-MuXu]

Αν τα κέρδη τα μοιράζονται αναλογικά με το ποσό που έβαλε ο καθένας ο αλγόριθμος γράφεται ως εξής:

Αλγόριθμος ΟΠΑΠ
Διάβασε π1,π2,π3,ποσο_κέρδους ! π1,π2,π3 τα ποσά που πόνταρε καθένας απο τους 3 φίλους.
Σπ← π1+π2+π3 !Σπ το συνολικό ποσό που πόνταραν
κ1← π1/Σπ*ποσο_κέρδους
κ2← π2/Σπ*ποσο_κέρδους
κ3← π3/Σπ*ποσο_κέρδους
Εμφάνισε κ1 ,κ2 ,κ3
Τέλος ΟΠΑΠ

Γίνεται και με δομή επανάληψης αν θέλεις.

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[mixas!!]

Εχω μια ασκηση πανω στην ταξινομηση με παρεμβολη(εχει κατι σχετικο το τετραδιο εργασιων)


Για i απο 1 μεχρι Ν-1
Τεμπ<-Α[κ]
Κ<-i
Oσο τεμπ<Α[κ-1] και (κατι ακομη_εε???) επαναλαβε
Α[Κ]<-Α[Κ-1]
Κ<-Κ-1
Τελος_επαναληψης
Α[κ]<-τεμπ
Τελος επαναληψης


Μπορειται μηπως να βοηθησετε???

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[michael92]

Καταρχάς όρισε τo N και γράψε την εκφώνιση...

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Pavlitos]

Κάποιος θα μπορούσε να με βοηθήσει στην παρακάτω άσκηση;

Ένας συνδρομητής κινητής τηλεφωνίας χρεώνεται μηνιαίως προς εξής:

α) Πάγιο 30 ?
β) ομιλία 0,03?/min
γ)μηνύματα 0,09/μήνυμα

Να γραφεί ο αλγόριθμος ο οποίος να δέχεται ως είσοδο τα λεπτά που μίλησε ο συνδρομητής και τα μηνύματα που έστειλε και να εμφανίζει το ποσό που πρέπει να πληρώσει.

Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[soares]

για σας παιδες εχω κολλησει σε μια ασκηση και ελπιζω σε λιγη βοηθεια....
να γινει αλγοριθμος ο οποιος θα δεχεται το πληθος των γκολ που σημειωσε καθε μια απο τις 16 ομαδες του επαγγελματικου πρωταθληματος σε καθε αγωνιστικη.Θεωρηστε οτι το πρωταθλημα εχει συνολικα 30 αγωνιστικες.Ο αλγοριθμος θελουμε να υπολογιζει και τυπωνει τα εξης
α)τα συνολικα γκολ που σημειωθηκαν στο πρωταθλημα
β)την αγωνιστικη με τα περισσοτερα γκολ
γ)την ομαδα που εβαλε τα λιγοτερα γκολ σε ολο το πρωταθλημα
δ)τις ομαδες που στις 5 πρωτες αγωνιστικες ειχαν αγωνα στον οποιο σημειςσαν περισσοτερα γκολ απο το μεσο ορο των γκολ ολου του πρωταθληματος,....

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[aLe3ouLa]

Κάποιος θα μπορούσε να με βοηθήσει στην παρακάτω άσκηση;

Ένας συνδρομητής κινητής τηλεφωνίας χρεώνεται μηνιαίως προς εξής:

α) Πάγιο 30 ?
β) ομιλία 0,03?/min
γ)μηνύματα 0,09/μήνυμα

Να γραφεί ο αλγόριθμος ο οποίος να δέχεται ως είσοδο τα λεπτά που μίλησε ο συνδρομητής και τα μηνύματα που έστειλε και να εμφανίζει το ποσό που πρέπει να πληρώσει.

Αλγοριθμος α1
Διαβασε λεπτα, μην
Ποσο<- 0,03*λεπτα + μην*0.09+30
Εμφάνισε 'Πρέπει να πληρώσει', Ποσο
Τελος α1

για σας παιδες εχω κολλησει σε μια ασκηση και ελπιζω σε λιγη βοηθεια....
να γινει αλγοριθμος ο οποιος θα δεχεται το πληθος των γκολ που σημειωσε καθε μια απο τις 16 ομαδες του επαγγελματικου πρωταθληματος σε καθε αγωνιστικη.Θεωρηστε οτι το πρωταθλημα εχει συνολικα 30 αγωνιστικες.Ο αλγοριθμος θελουμε να υπολογιζει και τυπωνει τα εξης
α)τα συνολικα γκολ που σημειωθηκαν στο πρωταθλημα
β)την αγωνιστικη με τα περισσοτερα γκολ
γ)την ομαδα που εβαλε τα λιγοτερα γκολ σε ολο το πρωταθλημα
δ)τις ομαδες που στις 5 πρωτες αγωνιστικες ειχαν αγωνα στον οποιο σημειςσαν περισσοτερα γκολ απο το μεσο ορο των γκολ ολου του πρωταθληματος,....

Αλγόριθμος ασκ
Για i από 1 μέχρι 16

Για j από 1 μέχρι 30
Διαβασε γκολ [i,j]
Τ_Ε
​

Τ_Ε
sum <- 0
Για i από 1 μέχρι 16

Για j από 1 μέχρι 30
sum<- sum + γκολ [i,j]
Τ_Ε
​

Τ_Ε
μο<- sum / 16*30
Εμφάνισε 'Τα συνολικά γκολ ήταν', sum
Για j από 1 μέχρι 30

s[j]<-0
Για i από 1 μέχρι 16
s[j] <s[j] +γκολ[i,j]
Τ_Ε
​

Τ_Ε
max<-s[1]
Θεση<-1
Για j από 1 μέχρι 30

Αν s[j]>max Τοτε
max <- s[j]
Θεση<-j
Τελος_Αν
​

Τ_Ε
Εμφάνισε ' Η αγωνιστική με τα περισσότερα γκολ ήταν η', Θεση
Για i από 1 μέχρι 16

s1<- 0
Για j από 1 μέχρι 30
s1<-s1 +γκολ [i,j]
T_E
​

T_E
min1<- s1[1]
θ1<-1
Για i από 1 μέχρι 16

Αν min1>s1 τοτε
min1<-s1
θ1<- i
Τελος_Αν
​

Τ_Ε
Εμφάνισε ' Η ομάδα που έβαλε τα λιγότερα γκολ ήταν η' θ1
Για i από 1 μέχρι 16

Για j από 1 μέχρι 5

An γκολ [i,j] > μο Τοτε
Εμφάνισε i
Τελος_Αν
​

Τ_Ε
​

Τ_Ε
Τελος ασκ

Νομίζω έτσι πάει.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[ptsiotakis]

Στο
μο<- sum / 16*30
θέλει παρενθέσεις ο παρονομαστής



Μπορείς να βρεις την άσκηση (άσκηση 11) μαζί με άλλες ασκήσεις στο https://users.kor.sch.gr/ptsiotakis/aepp/aepp_ask3_2.htm

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Ntzios Kostas]

Είναι η άσκηση 7.69 από το παλιό τεύχος η οποία τροποποιήθηκε στην 22.28 στην νέα έκδοση. Σας προτείνω να διαβάζετε και λυμένες ασκήσεις, ώστε να βλέπετε τον τρόπο σκέψης των καθηγητών σας.


Με εκτίμηση,
Ντζιός Κώστας.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[michael92]

@Black Butterfly

sum <- 0
Για i από 1 μέχρι 16
Για j από 1 μέχρι 30
sum<- sum + γκολ [i,j]
Τ_Ε

είναι λάθος, ο μηδενισμός μπαίνει μέσα και το καταχωρούμε σε πίνακα :

Για i από 1 μέχρι 16
sum <- 0
Για j από 1 μέχρι 30
sum<- sum + γκολ [i,j]
Τ_Ε
SUM[i,j] <- sum
T_E

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[aLe3ouLa]

Θέλει συνολικά γκολ το πρώτο ερώτημα, άρα άθροισμα σε όλον τον πινακα και μηδενισμό έξω..
Αυτό που γραφεις βρίσκει το άθροισμα των γκολ του κάθε παίχτη, και στον πινακα δεν καταλαβαίνω τι βάζεις

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[michael92]

α οκ τότε my bad

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

Παιδια μπορεις καποιος να με βοηθησει σε 2 ασκησεις? Κατι πηγα να κανω αλλα μου φενονται δυσκολες

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Αμαλιτσα]

Δεν είμαι σίγουρη οτι είναι ολόσωστη αλλα έτσι πρεπει να λύνετε η Ασκηση 4 :

Αλγόριθμος Ασκ_4
Διάβασε ΟΝΟ
flag<-ψευδής
i<-1
θ<-0
ΟΣΟ flag<-ψευδής και i<=500 επανάλαβε
ΑΝ ΟΝΟ=A τοτε
Εμφάνισε 'ο', Α,' είναι μέλος του συλλογου'
θ<-i (κρατάμε την θέση που βρήκαμε)
πληθ<-ο
Για i απο 1 μεχρι 500
Αν Β>Β[θ] τοτε
πληθ<-πληθ+1
Τελος_αν
Τελος_επανάληψης
Εμφάνισε πληθ
flag<-αληθής
Αλλιως
i<-i+1
Τελος_αν
Τελος_επανάληψης
Αν flag=ψευδής τοτε (ελεγχουμε αν το ονομα που εδωσαν δεν υπήρχε)
Εμφάνισε ' Δεν υπάρχει τετοιο όνομα στο σύλογο'
Τελος_αν
sum<-0
Για i απο 1 μεχρι 500
sum<-sum+B (βρισκουμε το αθροισμα ετσι ωστε να υπολογισουμε τον μεσο ορο)
Τελος_επανάληψης
ΜΟ<-sum/500 (ο μεσος ορος υπολογίζετε ως το γενικό αθροισμα δια το συνολο των ανθρώπων)
πληθ2<-0
Για i απο 1 μεχρι 500
Αν Β>=ΜΟ τοτε (ελεγχουμε ποιοι ειχαν μεγαλυτερο,ισο επιδομα απο τον Μεσο ορο)
Εμφάνισε 'ο',Α,'κερνάει στο καφενείο'
πληθ2<-πληθ2+1
Τελος_αν
Τελος_επανανάληψης
Εμφανισε πληθ2
Τελος Ασκ_4




*Αν τυχον υπαρχουν λάθη διορθώστε

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[teoubas]

teoubas is back!!

Στην 1η άσκηση δε μπορώ να καταλάβω που χρησιμεύει ο πίνακας Β αφού δεν λέει να τον κάνουμε κάτι. Τέσπα μια πολύ βιαστική λύση και την έγραψα σήμερα στις 12 με το κεφάλι καζάνι, είναι εδώ... Λυπηθείτε με αν έχει λάθος

Αλγόριθμος οτινανε
 Δεδομένα //Α,Β,Γ//

 Για α από 1 μέχρι 14

     !Μηδενιμος
     Για κ από 1 μέχρι 4
         μάθημα[α,κ] <- 0
     τέλος_επανάληψης

     Για β από 1 μέχρι 500 j
    	 Αν Α[β,α] <= 10 τότε
            μάθημα[α,1] <- μάθημα[α,1] + 1  !κακός+1
         αλλιώς_αν Α[β,α] <= 15 τότε
            μάθημα[α,2] <- μάθημα[α,2] + 1  !μέτριος+1
         αλλιώς_αν Α[β,α] <= 17 τότε
            μάθημα[α,3] <- μάθημα[α,3] + 1  !καλός+1
	 αλλιώς 
	    μάθημα[α,4] <- μάθημα[α,4] + 1  !αριστοι+1
         τέλος_αν
     Τέλος_Επανάληψης
     
     max <- μάθημα[α,1] 
     κατηγορία <- κακός

     Αν μάθημα[α,2] > max
        max <- μάθημα[α,2]
        κατηγορία <- μέτριος
     τέλος_αν
     Αν μάθημα[α,3] > max
        max <- μάθημα[α,3]
        κατηγορία <- καλός
     τέλος_αν
     Αν μάθημα[α,4] > max
        μαχ <- μάθημα[α,4]
        κατηγορία <- άριστοι
     τέλος_αν
     
     Εμφάνισε 'Στο μάθημα',Γ[α],'οι περισσότεροι ήταν',κατηγορία
 Τέλος_επανάληψης

 !buble
 Για t από 2 μέχρι 14
     Για λ από 14 μέχρι t με_βήμα -1
         Αν μάθημα[λ-1,4] > μάθημα[λ,4] τότε
             Αντιμετάθεσε Γ[λ],Γ[λ-1]
          τέλος_αν
     Τέλος_επανάληψης
 Τέλος_επανάληψης

 Εμφάνισε Γ[14]
Τέλος οτινανε

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[soares]

Για σας παιδες θελω λιγη βοηθεια σε μια ασκηση
Μια εταρεια αποφασιζει να μηχανογραφησει το πελατολογια της και τουσ τζιρους των πελατων για το χρονο που περασε.Ζητειται να φτιαχθει προγραμμα το οποιο θα διαβαζει το ονομα και του μηναιους τζιρουσ των 40 πελατες της εταιρειας και στη συνεχεια θα υπολογιζει και θα εμφανιζει τα ακολουθα.
1)το ονομα των πελατων και το συνολικο τζιρο και καθε ενα απο αυτους για το χρονο που περασε.
2)το μην α που η εταιρεια πραγματοποιησε τις λιγοτερες πωλησεις
3)το ονομα καθε πελατη και διπλα σε ποσους μηνες ο τζιρος του προς την εταιρεια ηταν μικροτερος των 500$
4)τους 5 καλυτερους πελατες της εταιρειας..

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[dianechristy]

Για σας παιδες θελω λιγη βοηθεια σε μια ασκηση
Μια εταρεια αποφασιζει να μηχανογραφησει το πελατολογια της και τουσ τζιρους των πελατων για το χρονο που περασε.Ζητειται να φτιαχθει προγραμμα το οποιο θα διαβαζει το ονομα και του μηναιους τζιρουσ των 40 πελατες της εταιρειας και στη συνεχεια θα υπολογιζει και θα εμφανιζει τα ακολουθα.
1)το ονομα των πελατων και το συνολικο τζιρο και καθε ενα απο αυτους για το χρονο που περασε.
2)το μην α που η εταιρεια πραγματοποιησε τις λιγοτερες πωλησεις
3)το ονομα καθε πελατη και διπλα σε ποσους μηνες ο τζιρος του προς την εταιρεια ηταν μικροτερος των 500$
4)τους 5 καλυτερους πελατες της εταιρειας..

Προγραμμα Εταιρεια
Μεταβλητες(οσες χρησιμοποιήσω παρακάτω.. )
Αρχη
Για ι απο 1 μεχρι 40
Διαβασε Ον[ι]
Για j απο 1 μεχρι 12
Διαβασε ΤΖ[j]
Τελος_Επαν
Τελος_Επαν.
----------------------------(1 ερωτημα)
Για ι απο 1 μεχρι 40
συν[ι]<-0 ! χρησιμοποιώ πίνακα γιατί θα μου χρειαστεί στο τελευταίο ερώτημα
Για j απο 1 μεχρι 12
συν[ι]<- συν[ι]+ΤΖ[j]
Τελος_Επαν.
Γραψε Ον[ι], συν[ι]
Τελος_Επαν.
-----------------------------(2 ερωτημα)
Για απο 1 μεχρι 12
συν<-0
Για j απο 1 μεχρι 40
συν<-συν+ΤΖ[j]
Τελος_Επαν.
Μ[ι]<-συν ! χρησιμοποιω τον πινακα Μ για να βρω τον μηνα με τις λιγοτερες πωλησεις
Τελος_Επαν.
μιν<- Μ[1]
θεση<- 1
Για ι απο 2 μεχρι 12
Αν Μ[ι]<μιν τοτε
μιν<- Μ[ι]
θεση<- ι
Τελος_αν
Τελος_επαν.
Γραψε θεση, μιν
-----------------------------(3 ερωτημα)
Για ι απο 1 μεχρι 40
μ<-0
Για j απο 1 μεχρι 12
Αν ΤΖ[j] <500 τοτε
μ<-μ+1
Τελος_αν
Γραψε Ον[ι], μ
Τελος_Επαν.
-----------------------------(4 ερωτημα)
Για ι απο 2 μεχρι 40
Για j απο 40 μεχρι ι με_βημα -1
Αν συν[j-1]<συν[j] τοτε
temp<-συν[j]
συν[j]<- συν[j-1]
συν[j-1] <- temp
temp1<- Ov[j]
Ov[j]<- Ov[j-1]
Ov[j-1]<- temp1
τελος_αν
Τελος_Επαν.
Τελος_Επαν.
Για ι απο ι μεχρι 5
Γραψε Ον[ι], συν[ι]
Τελος_Επαναληψης
Τελος_Προγράμματος

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[ptsiotakis]

στο https://www.pseudoglossa.gr θα βρεις έναν Online διερμηνευτή για εκτέλεση αλγορίθμων σε μορφή ψευδογλώσσας.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[rafaa]

Ενας επιχειρηματιας αποφασισε να διαθεσει ενα σημαντικο ποσο για φιλανθρωπικους σκοπους αγοραζοντας πακετα ρυζι.Να γινει αλγοριθμος που:

1. θα διαβαζει το ποσο που θελει να διαθεσει ο επιχειρηματιας,
2. θα διαβαζει επαναληπτικα τη μαρκα και την τιμη του καθε πακετου,
3. θα εμφανιζει τη μαρκα του πιο ακριβου πακετου,
4. θα εμφανιζει την τιμη του πιο φθημου πακετου,
5. θα υπολογιζει και και θα εμφανιζει ποσα πακετα πυζι κοστισαν πανω απο 2euro,
6. θα εμφανιζει ποσα πακετα ρυζι αγορασε συνολικα ο επιχειρηματιας και
7. θα εμφανιζει μηνυμα <<Εξαντλησε ολο το ποσο>> αν δεν περισσεψαν καθολου χρηματα.

Ο αλγοριθμος τερματιζει οταν εξαντληθει ολο το ποσο ή οταν δεν φτανει για να αγορασει και αλλο πακετο.

---μπορει καποιος βοηθησει;

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Spyros2309]

Ενας επιχειρηματιας αποφασισε να διαθεσει ενα σημαντικο ποσο για φιλανθρωπικους σκοπους αγοραζοντας πακετα ρυζι.Να γινει αλγοριθμος που:

1. θα διαβαζει το ποσο που θελει να διαθεσει ο επιχειρηματιας,
2. θα διαβαζει επαναληπτικα τη μαρκα και την τιμη του καθε πακετου,
3. θα εμφανιζει τη μαρκα του πιο ακριβου πακετου,
4. θα εμφανιζει την τιμη του πιο φθημου πακετου,
5. θα υπολογιζει και και θα εμφανιζει ποσα πακετα πυζι κοστισαν πανω απο 2euro,
6. θα εμφανιζει ποσα πακετα ρυζι αγορασε συνολικα ο επιχειρηματιας και
7. θα εμφανιζει μηνυμα <<Εξαντλησε ολο το ποσο>> αν δεν περισσεψαν καθολου χρηματα.

Ο αλγοριθμος τερματιζει οταν εξαντληθει ολο το ποσο ή οταν δεν φτανει για να αγορασει και αλλο πακετο.

---μπορει καποιος βοηθησει;

Περίπου ίδια με μια πανελληνίων (μας την είχαν βάλει στο σχολείο )
Άντε, να περάσει η ώρα.

ΑΛΓΟΡΙΘΜΟΣ μπεεεεεεεεεεεεεε

      ΓΡΑΨΕ 'Πληκτρολογήστε το ποσό που θέλετε να ξοδέψετε.'
      ΔΙΑΒΑΣΕ χ
      ι <-- τ
      π <-- 0
      π2 <-- 0
      ΟΣΟ χ> 0 ΕΠΑΝΑΛΑΒΕ
            ι <-- ι + 1
            ΓΡΑΨΕ 'Δώσε τη τιμή του', ι,'ου πακέτου.'
            ΔΙΑΒΑΣΕ  ΜΠΕ[2, ι]
            ΑΝ χ-ΜΠΕ[2, ι]>=0 ΤΟΤΕ
                  π <-- π+1
                  ΓΡΑΨΕ 'Δώσε τη μάρκα του', ι,'ου πακέτου.'
                  ΔΙΑΒΑΣΕ ΜΠΕ[1,ι]
                  ΑΝ ΜΠΕ[2,ι]>2 ΤΟΤΕ π2 <-- π2 + 1
                  χ <-- χ - ΜΠΕ[2,ι]
            ΑΛΛΙΩΣ
                  ΓΡΑΨΕ 'Δε μπορείτε να αγοράσετε αυτό το πακέτο -- Η αγορά τελείωσε'
                  χ <-- -1
            ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΑΝ χ = 0 ΤΟΤΕ ΓΡΑΨΕ '«Εξαντλήθηκε όλο το ποσό»'
      μεγ <-- 1
      ελ <-- ΜΠΕ[2,1]
      ΓΙΑ κ ΑΠΟ 2 ΜΕΧΡΙ ι
            ΑΝ ΜΠΕ[2,κ] > ΜΠΕ[2,μεγ] ΤΟΤΕ μεγ <-- κ
            ΑΝ ΜΠΕ[2,κ] < ελ ΤΟΤΕ ελ <-- ΜΠΕ[2,κ]
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Μάρκα ακριβότερου πακέτου:', ΜΠΕ[1,μεγ]
      ΓΡΑΨΕ 'Τιμή φθηνότερου πακέτου:', ελ
      ΓΡΑΨΕ 'Αγοράσατε συνολικά', π,' πακέτα ρύζι, από τα οποία ', π2,' κοστίζουν πάνω από 2?.'
ΤΕΛΟΣ

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.