[2007 - 2008] Ασκήσεις στην ΑΕΠΠ

ΠΡΟΓΡΑΜΜΑ ΣΚΟΠΟΒΟΛΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,J,ΒΟΛΗ[120,10],Β[10],ΣΒ[120],ΘΕΣΗ
ΧΑΡΑΚΤΗΡΕΣ:ΟΝΟΜΑ[120]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 120 
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι]
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 10 
ΔΙΑΒΑΣΕ ΒΟΛΗ[Ι,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 120 
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 10
Β[J]<--ΒΟΛΗ[Ι,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΒ[Ι]<--ΒΑΘΜΟΛΟΓΙΑ(Β)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΜΕΓΙΣΤΟΣ(ΣΒ,ΘΕΣΗ)
ΓΡΑΨΕ ΟΝΟΜΑ[ΘΕΣΗ]
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ 
 
 
ΣΥΝΑΡΤΗΣΗ ΒΑΘΜΟΛΟΓΙΑ(Α): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α[10],Ι,Σ,ΜΑΧ,ΜΙΝ
ΑΡΧΗ
ΜΑΧ<--Α[1]
ΜΙΝ<--Α[1]
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 10 
ΑΝ Α[Ι]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<--Α[Ι]
ΑΛΛΙΩΣ_ΑΝ Α[Ι]<ΜΙΝ ΤΟΤΕ 
ΜΙΝ<--Α[Ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Σ<--0 
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10 
ΑΝ Α[Ι]<>ΜΑΧ ΚΑΙ Α[Ι]<>ΜΙΝ ΤΟΤΕ
Σ<--Σ+Α[Ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΒΑΘΜΟΛΟΓΙΑ<--Σ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
 
 
ΔΙΑΔΙΚΑΣΙΑ ΜΕΓΙΣΤΟΣ(Π,ΜΑΧ_Θ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Π[120],Ι,ΜΑΧ,ΜΑΧ_Θ
ΑΡΧΗ
ΜΑΧ<--Π[1]
ΜΑΧ_Θ<--1
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 120 
ΑΝ Π[Ι]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<--Π[Ι]
ΜΑΧ_Θ<--Ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΠΡΟΓΡΑΜΜΑ πτηνοτροφική_μονάδα
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: έτος, i, μήνες[12], j, αυγά[12,31], Σ, Π[12], α
ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ_έτος, ΜΟ[12]
ΛΟΓΙΚΕΣ: εξοδος
ΑΡΧΗ
εξοδος<--ψευδής
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
     ΓΡΑΨΕ 'Δώσε έτος (2000-2099)'
     ΔΙΑΒΑΣΕ έτος
     ΑΝ έτος>2099 Ή έτος < 2000 ΤΟΤΕ
          ΓΡΑΨΕ 'Λάθος δεδομένα'
     ΑΛΛΙΩΣ
          εξοδος<--αληθής
     ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ εξοδος=αληθής
!Υπολογισμός ημερών κάθε μήνα
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
     μήνες[i] <-- μέρες(έτος,i)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Εισαγωγή αριθμού αυγών ανα μέρα
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
     ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ μήνες[i]
          ΔΙΑΒΑΣΕ αυγά[i,j]
     ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Υπολογισμός μέσης ημερήσιας παραγωγής για όλο το έτος
Σ <--0
α <--0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
     ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ μήνες[i]
          α<--α+1
          Σ<--Σ+αυγά[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ_έτος <-- Σ/α
!Υπολογισμός μέσης ημερήσιας παραγωγής κάθε μήνα χωριστά
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
     Σ<--0
     ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ μήνες[i]
          Σ<-Σ+αυγά[i,j]
     ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ[i]<--Σ/μήνες[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Μου φάνηκε πως αυτό ζητάει
κ<--1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
     Π[i]<--0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
     ΑΝ ΜΟ[i] >= 0.9*ΜΟ_έτος Ή ΜΟ[i] <= 1.1*ΜΟ_έτος ΤΟΤΕ
          Π[κ] <--i
          κ<--κ+1
     ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Π[3]=0 ΤΟΤΕ
     ΓΡΑΨΕ 'Δε βρέθηκε τέτοιος μήνας'
ΑΛΛΙΩΣ
     ΓΡΑΨΕ 'Ο μήνας αυτός είναι ο', Π[3],'ος μήνας.'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ μέρες(έτος,i):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: έτος, i, δίσεκτο
ΑΡΧΗ
δίσεκτο <--0
ΑΝ έτοςMOD4=0 ΚΑΙ έτοςMOD100<>0 Ή έτοςMOD400=0 ΤΟΤΕ
     δίσεκτο <--1
ΤΕΛΟΣ_ΑΝ
!Υπολογισμός ημερών Φεβρουαρίου
ΑΝ i=2 ΤΟΤΕ
     ΑΝ δίσεκτο=0 ΤΟΤΕ
          μέρες<--28
     ΑΛΛΙΩΣ
          μέρες<--29
     ΤΕΛΟΣ_ΑΝ
     ΑΛΛΙΩΣ
!Υπολογισμός μερών υπολοίπων μηνών μέχρι και τον Ιούλιο
          ΑΝ i<=7 ΤΟΤΕ
               ΑΝ iMOD2=0 ΤΟΤΕ
                    μέρες<--30
               ΑΛΛΙΩΣ
                    μέρες<--31
               ΤΕΛΟΣ_ΑΝ
          ΑΛΛΙΩΣ
!Υπολογισμός μερών Αυγούστου-Δεκεμβρίου
               ΑΝ iMOD2=0 ΤΟΤΕ
                    μέρες<--31
               ΑΛΛΙΩΣ
                    μέρες<--30
          ΤΕΛΟΣ_ΑΝ
     ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

θέση <-- 0 ! η θέση του ζητούμενου μήνα
κ <-- 0 ! πόσοι μήνες πληρούν την ζητούμενη συνθήκη
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 12
     ΑΝ ΜΟ[i] >= 0.9*ΜΟ_έτος Ή ΜΟ[i] <= 1.1*ΜΟ_έτος ΤΟΤΕ
          κ<--κ+1
          ΑΝ κ = 3 ΤΟΤΕ
                θέση <-- i
          ΤΕΛΟΣ_ΑΝ
     ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ θέση=0 ΤΟΤΕ
     ΓΡΑΨΕ 'Δε βρέθηκε τέτοιος μήνας'
ΑΛΛΙΩΣ
     ΓΡΑΨΕ 'Ο μήνας αυτός είναι ο', θέση, 'ος μήνας.'
ΤΕΛΟΣ_ΑΝ

[B]ΠΡΟΓΡΑΜΜΑ[/B] ΠΡΑΞΕΙΣ
[B]ΜΕΤΑΒΛΗΤΕΣ[/B]
        [B]ΑΚΕΡΑΙΕΣ[/B][B]:[/B] α[B],[/B]β[B],[/B]γ[B],[/B] ένα, δύο
[B]ΑΡΧΗ[/B]
[B]ΓΙΑ[/B] α [B]ΑΠΟ[/B] [B]-[/B]1 [B]ΜΕΧΡΙ[/B] 1
        β [B]<–[/B] α[B]+[/B]1
        γ [B]<–[/B] β[B]*[/B]β
        [B]ΚΑΛΕΣΕ[/B] πράξη[B]([/B]α[B],[/B]β[B],[/B]γ[B],[/B]ένα[B])[/B]
        [B]ΓΡΑΨΕ[/B] α[B],[/B]β[B],[/B]γ[B],[/B]ένα
[B]          ΚΑΛΕΣΕ[/B] πράξη[B]([/B]γ,α,β,δύο[B])[/B]
        [B]ΓΡΑΨΕ[/B] α[B],[/B]β[B],[/B]γ[B],[/B]δύο
[B]ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ[/B]
[B]ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ[/B] ΠΡΑΞΕΙΣ
[B]ΔΙΑΔΙΚΑΣΙΑ[/B] πράξη[B]([/B]κ[B],[/B]λ[B],[/B]μ[B],[/B]δύο[B])[/B]
[B]ΜΕΤΑΒΛΗΤΕΣ[/B]
        [B]ΑΚΕΡΑΙΕΣ[/B][B]:[/B] κ[B],[/B]λ[B],[/B]μ[B],[/B]δύο
[B]ΑΡΧΗ[/B]
δύο [B]<–[/B] 2*τρία[B]([/B]μ,κ[B])
ΓΡΑΨΕ δύο
[/B] μ[B]<–[/B]μ[B]+[/B]1
[B]ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ[/B]
[B]ΣΥΝΑΡΤΗΣΗ[/B] τρία[B]([/B]χ,ψ[B]):[/B][B]ΑΚΕΡΑΙΑ[/B]
[B]ΜΕΤΑΒΛΗΤΕΣ[/B]
        [B]ΑΚΕΡΑΙΕΣ[/B][B]:[/B] χ,ψ
[B]ΑΡΧΗ[/B]
τρία[B]<–[/B]χ[B]*[/B]χ+ψ
[B]ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ[/B]