Θέματα Γ+Δ Part2
Άσκηση 1:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ01
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ : i , x
ΠΡΑΓΜΑΤΙΚΕΣ: ΘΕΡΜΟΚΡΑΣΙΑ[20] ,ΜΑΧ
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ[20]
ΑΡΧΗ:
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[i] ,ΘΕΡΜΟΚΡΑΣΙΑ[i]
TEΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΑΧ=-9999 !Γιατί η υψηλότερη μπορεί να είναι και -40 - δεν το ξέρουμε )
χ<- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΑΝ ΘΕΡΜΟΚΡΑΣΙΑ[i] > ΜΑΧ ΤΟΤΕ
ΜΑΧ<- ΘΕΡΜΟΚΡΑΣΙΑ[i]
χ<- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΟΝΟΜΑ[x]
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 2:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ102:
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ: Ι ,ΣΥΝΟΝΟΛΟΟΧΙ ,ΣΥΝΟΛΟΝΑΙ ,COUNTER
ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ1 ,ΜΟ2 ,ΓΕΝΙΚΟΣΜΟ
ΧΑΡΑΚΤΗΡΕΣ : ΟΝΟΜΑ1[650] . ΟΝΟΜΑ2[480] ,ΑΠΑ1[650] ,ΑΠΑ2[480]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 650
ΔΙΑΒΑΣΕ ΟΝΟΜΑ1[Ι],ΗΛΙΚΙΑ1[Ι]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΠΑ1[Ι]
ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΑ1[Ι]="ΝΑΙ" Η ΑΠΑ1[Ι]="ΟΧΙ"
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 480
ΔΙΑΒΑΣΕ ΟΝΟΜΑ2[Ι],ΗΛΙΚΙΑ2[Ι]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΠΑ1[Ι]
ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΑ2[Ι]="ΝΑΙ" Η ΑΠΑ2[Ι]="ΟΧΙ"
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΥΝΟΛΟΝΑΙ=0
ΣΥΝΟΛΟΟΧΙ=0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 650
ΑΝ ΑΠΑ1[Ι]="ΝΑΙ" ΤΟΤΕ
ΣΥΝΟΛΟΝΑΙ= ΣΥΝΟΛΟΝΑΙ +1
ΑΛΛΙΩΣ
ΣΥΝΟΛΟΟΧΙ= ΣΥΝΟΛΟΟΧΙ +1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 480
ΑΝ ΑΠΑ1[Ι]="ΝΑΙ" ΤΟΤΕ
ΣΥΝΟΛΟΝΑΙ= ΣΥΝΟΛΟΝΑΙ +1
ΑΛΛΙΩΣ
ΣΥΝΟΛΟΟΧΙ= ΣΥΝΟΛΟΟΧΙ +1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΣΥΝΟΛΟΝΑΙ>ΣΥΝΟΛΟΟΧΙ ΤΟΤΕ
ΓΡΑΨΕ "ΟΙ ΚΑΤΟΙΚΟΙ ΘΕΛΟΥΝ ΤΟ ΕΡΓΟΣΤΑΣΙΟ"
ΑΛΛΙΩΣ_ ΑΝ ΣΥΝΟΛΟΝΑΙ<ΣΥΝΟΛΟΟΧΙ ΤΟΤΕ
ΓΡΑΨΕ "ΟΙ ΚΑΤΟΙΚΟΙ ΔΕΝ ΘΕΛΟΥΝ ΤΟ ΕΡΓΟΣΤΑΣΙΟ"
ΑΛΛΙΩΣ
ΓΡΑΨΕ "ΙΣΟΠΑΛΙΑ"
ΜΟ1=0
ΜΟ2=0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 650
ΜΟ1= ΜΟ1 + ΗΛΙΚΙΑ1[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 480
ΜΟ2= ΜΟ2 + ΗΛΙΚΙΑ2[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΕΝΙΚΟΣΜΟ= (ΜΟ1+ΜΟ2)/(650+480)
ΜΟ1= ΜΟ1/650
ΜΟ2= ΜΟ2/480
ΓΡΑΨΕ ΜΟ1,ΜΟ2,ΓΕΝΙΚΟΣΜΟ
COUNTER=0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 650
ΑΝ ΗΛΙΚΙΑ1[Ι] > ΓΕΝΙΚΟΣΜΟ ΤΟΤΕ
COUNTER= COUNTER +1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 480
ΑΝ ΗΛΙΚΙΑ2[Ι] > ΓΕΝΙΚΟΣΜΟ ΤΟΤΕ
COUNTER= COUNTER +1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ COUNTER
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 3:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ103
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ : Ι , Ν
ΠΡΑΓΜΑΤΙΚΕΣ: Β[150] ,SWAP
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ[150] ,SWAP1
ΑΡΧΗ:
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 150 ! Αλγόριθμος Ταξινόμησης
ΓΙΑ Ν ΑΠΟ 150 ΜΕΧΡΙ Ι ΜΕ_ΒΗΜΑ -1
ΑΝ Β[Ν]>Β[Ν-1] ΤΟΤΕ
SWAP = Β[Ν]
! Μεταβλητή που συγκρατεί την τίμη της μίας μεταβλητής για να αντιμεταθέσουμε
τις τίμες (Διαφορετικά θα χάναμε την μία τιμή)
B[N] = [B[N-1]
B[N-1] = SWAP
SWAP1 = ONOMA[Ν]
ONOMA[N] = ONOMA[N-1]
ONOMA[N-1] = SWAP1
TEΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 150
ΓΡΑΨΕ ΟΝΟΜ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 4:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ104
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΕΣ : ΜΟ
ΑΚΕΡΑΙΕΣ : Ι ,ΑΝΤΙΤΥΠΟ[Ν] , ΦΟΡΕΣ[Ν] ,Κ ,ΛΙΓ ,ΚΑΘΟΛΟΥ ,ΑΝΤΙΤΥΠΟ
ΧΑΡΑΚΤΗΡΕΣ : ΟΝΟΜΑΒΙΒΛΙΟΥ[Ν] ,ΑΠ
ΑΡΧΗ
Ι=0
ΚΑΘΟΛΟΥ=0
ΑΝΤΙΤΥΠΑ=0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ " ΕΧΕΙΣ ΚΙ ΑΛΛΟ ΒΙΒΛΙΟ; "
ΔΙΑΒΑΣΕ ΑΠ
ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΠ="ΝΑΙ" Η ΑΠ="ΟΧΙ)
ΑΝ (ΑΠ="ΝΑΙ")
Ι <- Ι+1 !Για να μετρήσουμε πόσα βιβλία υπάρχουν μέσα στην βιβλιοθήκη ,μιας και μπορούν να μας δοθούν απο 0 μέχρι Ν βιβλία!
ΔΙΑΒΑΣΕ ΟΝΟΜΑΒΙΒΛΙΟΥ[Ι] ,ΑΝΤΙΤΥΠΟ[Ι] , ΦΟΡΕΣ[Ι]
ΑΝΤΙΤΥΠΑ= ΑΝΤΙΤΥΠΑ + ΑΝΤΙΤΥΠΟ[Ι]
ΑΝ ΦΟΡΕΣ[Ι]=0 ΤΟΤΕ
ΚΑΘΟΛΟΥ = ΚΑΘΟΛΟΥ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ (Ι=Ν Ή ΑΠ="ΟΧΙ" )
ΜΟ=ΑΝΤΙΤΥΠΑ/Ι
ΓΡΑΨΕ Ι , ΜΟ ,ΚΑΘΟΛΟΥ
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ Ι
ΑΝ ( ΜΟ>ΑΝΤΙΤΥΠΟ[Ι] ΚΑΙ ΦΟΡΕΣ[Ι] >10 ) ΤΟΤΕ
ΛΙΓ = ΛΙΓ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ ΛΙΓ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 5:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ105
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΕΣ : ΒΑΘΜ[12] , ΜΑΧ
ΑΚΕΡΑΙΕΣ : ΗΛΙΚΙΑ[12] , Ζ ,Ι ,Σ ,ΜΙΝ
ΧΑΡΑΚΤΗΡΕΣ : ΟΝΟΜΑ[12]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 12
ΔΙΑΒΑΣΕ ΗΛΙΚΙΑ[Ι] ,ΟΝΟΜΑ[Ι] ,ΒΑΘΜ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΑΧ = ΒΑΘΜ[1]
Ζ=1
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 12 ! Το 1 έχει ηδη χρησιμοποιηθει ως μαξ ,γι αυτο δεν χρειάζεται αυτή η επανάληψη
ΑΝ ΜΑΧ<ΒΑΘΜ[Ι] ΤΟΤΕ
ΜΑΧ=ΒΑΘΜ[Ι]
Ζ=Ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΟΝΟΜΑ[Ζ] , ΗΛΙΚΙΑ[Ζ]
ΜΙΝ= ΗΛΙΚΙΑ[1]
Σ=1
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 12
ΑΝ ΜΙΝ<ΗΛΙΚΙΑ[Ι] ΤΟΤΕ
ΜΙΝ = ΗΛΙΚΙΑ[Ι]
Σ=Ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Ζ=Σ ΤΟΤΕ
ΓΡΑΨΕ" O μικρότερος σε ηλικία είχε την μεγαλύτερη βαθμολογία " , ΜΙΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 6:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ106
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΕΣ : Π[100], Χ[100], ΜΑΧ
ΑΚΕΡΑΙΕΣ : Ι
ΧΑΡΑΚΤΗΡΕΣ : ΠΡΟΜΗΘΕΥΤΗΣ
ΛΟΓΙΚΕΣ : ΒΡΕΘΗΚΕ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Π[Ι], Χ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΑΧ<- 0 !ΕΥΡΕΣΗ ΤΟΥ ΜΕΓΙΣΤΟΥ ΧΡΕΟΥΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΝ Χ[Ι]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<-Χ[Ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΣΑΡΩΣΗ ΠΙΝΑΚΑ ΧΡΕΩΝ ΚΑΙ ΕΛΕΧΓΟΣ ΓΙΑ ΚΑΘΕ ΘΕΣΗ ΑΝ ΕΙΝΑΙ ΙΣΟ ΜΕ ΜΑΧ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΚΑΙ ΕΜΦΑΝΙΣΗ ΠΡΟΜΗΘΕΥΤΗ
ΑΝ Χ[Ι]=ΜΑΧ ΤΟΤΕ
ΓΡΑΨΕ Π[Ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΠΡΟΜΗΘΕΥΤΗΣ !ΑΝΑΖΗΤΗΣΗ ΠΡΟΜΗΘΕΥΤΗ ΣΤΟΝ Π[100]
ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ ! Η ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ ΣΤΑΜΑΤΑ ΜΟΛΙΣ ΒΡΕΘΕΙ Ο ΠΡΟΜΗΘΕΥΤΗΣ ΜΕ ΤΗ ΒΟΗΘΕΙΑ ΤΗΣ ΒΡΕΘΗΚΕ
Ι<- 1
ΟΣΟ Ι <=100 ΚΑΙ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ Π[Ι] = ΠΡΟΜΗΘΕΥΤΗΣ ΤΟΤΕ
ΓΡΑΨΕ Π[Ι]
ΒΡΕΘΗΚΕ <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
Ι<- Ι +1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΤΟΤΕ !ΕΜΦΑΝΙΣΗ ΜΗΝΥΜΑΤΟΣ ΣΕ ΠΕΡΙΠΤΩΣΗ ΑΠΟΤΥΧΗΜΕΝΗΣ ΑΝΑΖΗΤΗΣΗΣ
ΓΡΑΨΕ 'Ο ΠΡΟΜΗΘΕΤΗΣ ΠΟΥ ΔΩΣΑΤΕ ΔΕΝ ΥΠΑΡΧΕΙ ΣΤΟΝ ΠΙΝΑΚΑ ΠΡΟΜΗΘΕΤΩΝ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 7:⌗
ΠΡΟΓΡΑΜΜΑ 107
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: αρ,δεξ,μεσ,Α[300],ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ: βρ
ΑΡΧΗ
αρ <- 1
δεξ <- 300
βρ <-ΨΕΥΔΗΣ
θ <- 0
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2 ! Αλγόριθμος Δυαδικής αναζήτησης
ΑΝ Α[μεσ]< ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ - 1
ΑΛΛΙΩΣ_ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ+1
ΑΛΛΙΩΣ
βρ <- ΑΛΗΘΗΣ
θ<-μεσ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΒΡΕΘΗΚΕ ΣΤΗΝ ΘΕΣΗ: ' ,θ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ΄Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΔΕΝ ΥΠΑΡΧΕΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8:⌗
ΠΡΟΓΡΑΜΜΑ ΑΚ108
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: αρ,δεξ,μεσ,Α[60],ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ: βρ
ΑΡΧΗ
αρ <- 1
δεξ <- 60
βρ <-ΨΕΥΔΗΣ
θ <- 0
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]< ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ + 1
ΑΛΛΙΩΣ_ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ -1
ΑΛΛΙΩΣ
βρ <- ΑΛΗΘΗΣ
θ<-μεσ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΒΡΕΘΗΚΕ ΣΤΗΝ ΘΕΣΗ: ' ,θ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ΄Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΔΕΝ ΥΠΑΡΧΕΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 9:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ109
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[30], i, j, K
ΛΟΓΙΚΕΣ: Flag
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
ΔΙΑΒΑΣΕ Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Flag ← ΑΛΗΘΗΣ
i ← 2
ΟΣΟ i <= 30 ΚΑΙ flag = ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ
flag ← ΨΕΥΔΗΣ
ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
ΑΝ Α[j-1] > A[j] ΤΟΤΕ
Κ ← Α[j - 1]
Α[j-1] ← Α[j]
Α[j] ← Κ
flag ← ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
i ← i + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΡΑΨΕ Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Θέμα Γ 2011 Πανελλήνιες:⌗
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Γ_2011_ΗΜΕΡ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, S, ΒΑΘ[3], ελάχιστο, μέγιστο
ΛΟΓΙΚΕΣ: επιτυχών
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ, Όνομα_ελάχιστο
ΑΡΧΗ
ελάχιστο <-- 1000 ! ελάχιστη συνολική βαθμολογία επιτυχόντα
! αρχική τιμή αρκετά μεγάλη ώστε να αλλάξει (βλ.παρ.3, κεφ2)
ΓΡΑΨΕ 'ΔΩΣΤΕ ΟΝΟΜΑ ΥΠΟΨΗΦΙΟΥ'
ΔΙΑΒΑΣΕ ΟΝΟΜΑ
ΟΣΟ ΟΝΟΜΑ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ ! Γ4
! Γ1
ΓΡΑΨΕ 'ΔΩΣΤΕ ΒΑΘΜΟΥΣ (3)'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΔΙΑΒΑΣΕ ΒΑΘ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Γ2
! εύρεση μέγιστου σε πίνακα
μέγιστο <-- ΒΑΘ[1]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 3
ΑΝ ΒΑΘ[i]>μέγιστο ΤΟΤΕ
μέγιστο <-- ΒΑΘ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΜΕΓΑΛΥΤΕΡΟΣ ΒΑΘΜΟΣ ', μέγιστο
! Γ3
! αν έστω ένας βαθμός κάτω του 50, απορρίπτεται ο υποψήφιος
επιτυχών <-- ΑΛΗΘΗΣ
i <-- 1
ΟΣΟ i <= 3 ΚΑΙ επιτυχών = ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ ΒΑΘ[i]<50 ΤΟΤΕ
επιτυχών <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! υπολογισμός συνολικής βαθμολογίας επιτυχόντα
ΑΝ επιτυχών=ΑΛΗΘΗΣ ΤΟΤΕ
S <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
S <-- S + ΒΑΘ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
! Αν MO κάτω του 55, απορρίπτεται ο υποψήφιος
ΑΝ επιτυχών=ΑΛΗΘΗΣ ΤΟΤΕ
ΑΝ S/3 < 55 ΤΟΤΕ
επιτυχών <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
! όνομα και σύνολική βαθμολογία επιτυχόντα
ΑΝ επιτυχών=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'ΕΠΙΤΥΧΩΝ', ΟΝΟΜΑ, S
ΤΕΛΟΣ_ΑΝ
! Γ5
! υπολογισμός ελάχιστης βαθμολογίας επιτυχόντων
ΑΝ επιτυχών=ΑΛΗΘΗΣ ΤΟΤΕ
ΑΝ S < ελάχιστο ΤΟΤΕ
ελάχιστο <-- S
Όνομα_ελάχιστο <-- ΟΝΟΜΑ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'ΔΩΣΤΕ ΟΝΟΜΑ ΥΠΟΨΗΦΙΟΥ'
ΔΙΑΒΑΣΕ ΟΝΟΜΑ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ελάχιστο<>1000 ΤΟΤΕ ! Περίπτωση να μη έχει γίνει εισαγωγή
ΓΡΑΨΕ 'ΥΠΟΨΗΦΙΟΣ ΜΕ ΤΗΝ ΜΙΚΡΟΤΕΡΗ ΒΑΘΜΟΛΟΓΙΑ'
ΓΡΑΨΕ Όνομα_ελάχιστο, ελάχιστο
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 11:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ11
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: τοπ, επ1, πλ
ΧΑΡΑΚΤΗΡΕΣ: επ2, αρ, π[250]
ΑΡΧΗ
τοπ <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' Μενού Επιλογών'
ΓΡΑΨΕ ' 1. Επιβίβαση'
ΓΡΑΨΕ ' 2. Αποβίβαση'
ΓΡΑΨΕ ' 3. Έξοδος'
ΓΡΑΨΕ ' Δώσε επιλογή:'
ΔΙΑΒΑΣΕ επ1
ΑΝ επ1 = 1 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' Υπάρχει αυτοκίνητο για επιβίβαση (Ν/Ο);'
ΔΙΑΒΑΣΕ επ2
ΑΝ επ2 <> 'Ν' ΚΑΙ επ2 <> 'ν' ΚΑΙ επ2 <> 'Ο' ΚΑΙ επ2 <> 'ο' ΤΟΤΕ
ΓΡΑΨΕ 'Λάθος επιλογή. Ξαναπροσπάθησε!!!'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ επ2 = 'Ο' Η επ2 = 'ο' Η επ2 = 'Ν' Η επ2 = 'ν'
ΑΝ επ2 = 'Ν' Η επ2 = 'ν' ΤΟΤΕ
ΑΝ τοπ < 250 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσε αριθμό κυκλοφορίας του αυτοκινήτου:'
ΔΙΑΒΑΣΕ αρ
τοπ <- τοπ + 1
π[τοπ] <- αρ
ΑΝ τοπ = 250 ΤΟΤΕ
ΓΡΑΨΕ 'Το πλοίο γέμισε και δεν χωρά άλλα αμάξια'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Το πλοίο είναι γεμάτο'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ τοπ = 250 Η επ2 = 'Ο' Η επ2 = 'ο'
ΑΛΛΙΩΣ_ΑΝ επ1 = 2 ΤΟΤΕ
πλ <- 0
ΟΣΟ τοπ >= 1 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Αποβιβάζεται το αυτοκίνητο με αριθμό κυκλοφορίας:', π[τοπ]
π[τοπ] <- ' '
τοπ <- τοπ - 1
πλ <- πλ + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πλήθος οχημάτων που αποβιβάστηκαν στο λιμάνι της ΑΙΓΙΝΑΣ:', πλ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ επ1 = 3
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 12:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ12
ΜΕΤΑΒΛΗΤΕΣ:
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ_ΟΜΑΔΑΣ[20] , ΟΝΟΜΑ_ΠΑΙΚΤΗ[20,10]
ΑΚΕΡΑΙΟΙ: Ι,Ζ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 20
ΔΙΑΒΑΣΕ ΟΝΟΜΑ_ΟΜΑΔΑΣ[Ι]
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΒΑΣΕ ΟΝΟΜΑ_ΠΑΙΚΤΗ[Ι,Ζ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ ΟΝΟΜΑ_ΟΜΑΔΑΣ[Ι]
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ ΟΝΟΜΑ_ΠΑΙΚΤΗ[Ι,Ζ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 13:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ13
ΜΕΤΑΒΛΗΤΕΣ:
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ[25] ,SWAP1
ΠΡΑΓΜΑΤΙΚΕΣ: ΘΕΡΜΟΚΡΑΣΙΑ[25][12],ΣΥΝΟΛΟ[25],SWAP
ΑΚΕΡΑΙΕΣ : Ι,Ζ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 25
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι]
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 12
ΔΙΑΒΑΣΕ ΘΕΡΜΟΚΡΑΣΙΑ[Ι][Ζ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 25
ΣΥΝΟΛΟ[Ι]=0
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 12
ΣΥΝΟΛΟ[Ι]= ΣΥΝΟΛΟ[Ι]+ΘΕΡΜΟΚΡΑΣΙΑ[Ι][Ζ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΥΝΟΛΟ[Ι]= ΣΥΝΟΛΟ[Ι]/12
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 12
ΓΙΑ Ζ ΑΠΟ 12 ΜΕΧΡΙ Ι ΜΕ ΒΗΜΑ_-1
ΑΝ ΣΥΝΟΛΟ[Ζ]>ΣΥΝΟΛΟ[Ζ-1] ΤΟΤΕ
SWAP = ΣΥΝΟΛΟ[Ζ]
ΣΥΝΟΛΟ[Ζ]=ΣΥΝΟΛΟ[Ζ-1]
ΣΥΝΟΛΟ[Ζ-1]=SWAP
SWAP1=ΟΝΟΜΑ[Ζ]
ΟΝΟΜΑ[Ζ]=ΟΝΟΜΑ[Ζ-1]
ΟΝΟΜΑ[Ζ-1]=SWAP1
TEΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 25
ΓΡΑΨΕ ΟΝΟΜΑ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 14:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ14:
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΟΙ:
ΑΚΕΡΑΙΟΙ:Χ,Ι,Ζ,Κ
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ[3][17] ,ΟΝΟΜΑΤΟΠ3[9]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 17
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι][Ζ],ΒΑΘΜΟΣ[Ι][Ζ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ Ζ ΑΠΟ 2 ΜΕΧΡΙ 17
ΓΙΑ Κ ΑΠΟ 17 ΜΕΧΡΙ Ζ ΜΕ ΒΗΜΑ -1
ΑΝ ΒΑΘΜΟΣ[Ι][Κ]>ΒΑΘΜΟΣ[Ι][Κ-1] ΤΟΤΕ
SWAP = ΒΑΘΜΟΣ[Ι][Κ-1]
ΒΑΘΜΟΣ[Ι][Κ-1]= ΒΑΘΜΟΣ[Ι][Κ]
ΒΑΘΜΟΣ[Ι][Κ]= SWAP
SWAP1= ΟΝΟΜΑ[Ι][Κ-1]
ΟΝΟΜΑ[Ι][Κ-1]=ΟΝΟΜΑ[Ι][Κ]
ΟΝΟΜΑ[Ι][Κ] = SWAP1
TEΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Χ=1
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 3 !Διότι θα μπορούσε οι 3 μεγαλύτεροι βαθμοί να είναι από το ίδιο σχολείο. Άρα, θα πάρουμε τους 3 μεγαλύτερους βαθμούς από κάθε σχολείο.
ΒΑΘΜΟΣΤΟΠ3[Χ]=ΒΑΘΜΟΣ[Ι][Ζ] !Παίρνουμε τους 3 καλύτερους βαθμούς από κάθε σχολείο ,και τους βάζουμε σε ένα μονοδιάστατο πίνακα ,ώστε να ξανακάνουμε ταξινόμηση και να βρούμε τους 3 μεγαλύτερους βαθμούς.
ΟΝΟΜΑΤΟΠ3[Χ]=ΟΝΟΜΑ[Ι][Ζ]
Χ=Χ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 9
ΑΝ ΒΑΘΜΟΣΤΟΠ3[Χ]>ΒΑΘΜΟΣΤΟΠ3[Χ-1] ΤΟΤΕ
SWAP = ΒΑΘΜΟΣΤΟΠ3[Χ-1]
ΒΑΘΜΟΣΤΟΠ3[Χ-1]= ΒΑΘΜΟΣΤΟΠ3[Χ]
ΒΑΘΜΟΣΤΟΠ3[Χ]= SWAP
SWAP1= ΟΝΟΜΑΤΟΠ3[Χ-1]
ΟΝΟΜΑΤΟΠ3[Χ-1]=ΟΝΟΜΑΤΟΠ3[Χ]
ΟΝΟΜΑΤΟΠ3[Χ] = SWAP1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΡΑΨΕ ΟΝΟΜΑΤΟΠ3[Χ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 15:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ15:
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΟΙ:
ΑΚΕΡΑΙΟΙ: Ι , ,ΝΕΟΣΠΙΝΑΚΑΣ[Ν][Ν],ΠΙΝΑΚΑΣ1[Ν][Ν],ΠΙΑΝΑΚΣ2[Ν][Ν],SWAP
ΧΑΡΑΚΤΗΡΕΣ:
ΑΡΧΗ:
ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΝΕΟΠΙΝΑΚΑΣ[Α][Ι] = ΠΙΝΑΚΑΣ1[Ι]+ΠΙΝΑΚΑΣ2[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ΝΕΟΠΙΝΑΚΑΣ[Α][Ι]<ΝΕΟΠΙΝΑΚΑΣ[Α][Ι] ΤΟΤΕ
SWAP= ΝΕΟΠΙΝΑΚΑΣ[Α][Ι]
ΝΕΟΠΙΝΑΚΑΣ[Α][Ι]=ΝΕΟΠΙΝΑΚΑΣ[Α][Ι-1]
ΝΕΟΠΙΝΑΚΑΣ[Α][Ι-1]=SWAP
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 16:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ16:
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΟΙ:
ΑΚΕΡΑΙΟΙ: Ι ,Α ,ΝΕΟΣΠΙΝΑΚΑΣ[2Ν][Ν],ΠΙΝΑΚΑΣ1[Ν][Ν],ΠΙΑΝΑΚΣ2[Ν][Ν]
ΧΑΡΑΚΤΗΡΕΣ:
ΑΡΧΗ:
ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΝΕΟΠΙΝΑΚΑΣ[Α][Ι] = ΠΙΝΑΚΑΣ1[Α][Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Α=Α+1 !Διότι θέλουμε να κρατήσουμε την γραμμή και να πάμε στην ακριβώς επόμενη για να συνεχίσουμε να γεμίζουμε τον νέο πίνακα με τα στοιχεία και του 2ου πίνακα
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΝΕΟΠΙΝΑΚΑΣ[Α][Ι]=ΠΙΝΑΚΑ2Σ[Ζ][Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Α=Α+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 17:⌗
ΜΕΤΑΒΛΗΤΕΣ:
ΠΡΑΓΜΑΤΙΚΟΙ:
ΑΚΕΡΑΙΟΙ: Ι , ,Α,ΠΙΝΑΚΑΣ1[Ν][Ν],ΠΙΑΝΑΚΣ2[Ν][Ν],ΣΥΝΟΛΙΚΑ
ΧΑΡΑΚΤΗΡΕΣ:
ΑΡΧΗ:
ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΠΙΝΑΚΑΣ1[Α][Ι]=ΠΙΝΑΚΑΣ2[Α][Ι] ΤΟΤΕ
ΣΥΝΟΛΙΚΑ=ΣΥΝΟΛΙΚΑ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΣΥΝΟΛΙΚΑ=Ν*Ν ΤΟΤΕ
ΓΡΑΨΕ "Οι πίνακες είναι ίσοι"
ΑΛΛΙΩΣ
ΓΡΑΨΕ "Το ποσοστό ίσων στοιχείων είναι " , (ΣΥΝΟΛΙΚΑ/(Ν*Ν))*100
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 18:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ18
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ: Ι,Ζ
ΠΡΑΓΜΑΤΙΚΕΣ: Α[Ν,Ν] , Β[Ν,Ν] , Γ[Ν,Ν] ,ΣΥΝΟΛΟ ,
ΑΡΧΗ
...
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ Ν
ΣΥΝΟΛΟ = 0
#ΥΠΟΛΟΓΙΣΜΟΣ ΜΕΣΟΥ ΟΡΟΥ ΤΟΥ ΚΆΘΕ ΚΕΛΙΟΥ ΤΟΥ ΚΆΘΕ ΠΙΝΑΚΑ
ΣΥΝΟΛΟ= ( Α[Ι,Ζ] + Β[Ι,Ζ] )/2
Γ[Ι,Ζ] = ΣΥΝΟΛΟ # Η ΝΕΑ ΤΙΜΗ ΣΤΟΝ ΝΈΟ ΠΙΝΑΚΑ Γ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΣΥΝΟΛΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 19:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ19
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ: Ι,Ζ
ΠΡΑΓΜΑΤΙΚΕΣ: Α[Ν,Ν] ,ΑΘΡΟΙΣΜΑ ,
ΑΡΧΗ
...
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ Ι=Ζ ΤΟΤΕ: ! ΚΥΡΙΑ ΔΙΑΓΩΝΙΟΣ ΕΊΝΑΙ ΌΤΑΝ Ι=Ζ
ΑΘΡΟΙΣΜΑ= ΑΘΡΟΙΣΜΑ + Α[Ι,Ζ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΑΘΡΟΙΣΜΑ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 20:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ20
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ: Ι,Ζ
ΠΡΑΓΜΑΤΙΚΕΣ: Α[Ν,Ν] ,ΑΘΡΟΙΣΜΑ ,
ΑΡΧΗ
...
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ Ι=Ζ ΤΟΤΕ:
!ΔΕΥΤΕΡΕΥΟΥΣΑ ΔΙΑΓΩΝΙΟΣ ΕΊΝΑΙ ΌΤΑΝ Ι=Ζ
ΑΘΡΟΙΣΜΑ= ΑΘΡΟΙΣΜΑ + Α[Ι,Ν+1-Ζ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΑΘΡΟΙΣΜΑ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Δευτερεύουσα διαγώνιος!!!. Οι γραμμές παρατηρούμε ότι τις εξερευνούμε σειριακά δηλαδή 1,2,3,4…..Ν , ενώ τις στήλες παρατηρούμε ότι ξεκινάμε από την τελευταία και σε κάθε επανάληψη, πάμε μία στήλη πιο μέσα. Γι αυτό λοιπόν έχουμε Ν+1-Ζ από πάνω. Ν διότι θέλουμε να ξεκινήσουμε από την τελευταία στήλη, Το +1 το επιλέγουμε γιατί το Ζ ξεκινάει από το 1 , αρά Ν-Ζ = Ν-1, αρά δεν θα είχαμε πρόσβαση στην στήλη Ν. Σε κάθε επανάληψη, όσο αυξάνεται το Ζ, πάμε όλο και στην πιο μέσα στήλη μέχρι να επισκεφτούμε όλη την δευτερεύουσα διαγώνιο.
Άσκηση 21:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ21
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ: Ι
ΠΡΑΓΜΑΤΙΚΕΣ: Α[Ν,Ν] ,ΣΥΝΟΛΟ ,
ΛΟΓΙΚΕΣ:ΑΝΩ,ΚΑΤΩ
ΑΡΧΗ
ΑΝΩ <- ΑΛΗΘΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ( Α[Ι,Ζ]<>0 ΚΑΙ (Ι>Ζ) ) ΤΟΤΕ
ΑΝΩ <- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
κατω <- ΑΛΗΘΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ( Α[Ι,Ζ]<>0 ΚΑΙ (Ι<Ζ) ) ΤΟΤΕ
ΚΑΤΩ <- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ (ΑΝΩ=ΑΛΗΘΗΣ ΚΑΙ ΚΑΤΩ=ΑΛΗΘΗΣ) ΤΟΤΕ
ΓΡΑΨΕ "ΔΙΑΓΩΝΙΟΣ"
ΑΛΛΙΩΣ_ΑΝ ΑΝΩ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ "ΑΝΩ ΤΡΙΓΩΝΙΚΟΣ"
ΑΛΛΙΩΣ_ΑΝ ΑΛΛΙΩΣ_ΑΝ ΚΑΤΩ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ "ΑΝΩ ΤΡΙΓΩΝΙΚΟΣ"
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 22:⌗
ΠΡΟΓΡΑΜΜΑ ΑΣΚ22
ΜΕΤΑΒΛΗΤΕΣ:
ΑΚΕΡΑΙΕΣ: Ι ,Ζ ,ΑΠΑ1
ΠΡΑΓΜΑΤΙΚΕΣ:
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ[60],ΚΟΣΤΟΣ[60][15] ,ΑΠ
ΛΟΓΙΚΕΣ:ΔΙΑΘΕΣΙΜΑ[60][15] ,ΕΒΡΕΘΗ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 60
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι]
ΓΙΑ Ζ ΑΠΟ 1 ΜΕΧΡΙ 15
ΔΙΑΒΑΣΕ ΚΟΣΤΟΣ[Ι][Ζ]
ΓΡΑΨΕ "Είναι διαθέσιμο;"
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΠ
ΑΝ (ΑΠ="ΝΑΙ") ΤΟΤΕ
ΔΙΑΘΕΣΙΜΑ[Ι][Ζ]=ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΔΙΑΘΕΣΙΜΑ[Ι][Ζ]=ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΠ="ΝΑΙ" Ή ΑΠ="ΟΧΙ")
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΞΟΔΟΣ=10
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ "Πίεσε 0 για ενικοίαση δωματίου , 1 για άδειασμα δωματίου , 2 για έλεγχο διαθεσιμότητας , 3 για έξοδο"
ΔΙΑΒΑΣΕ ΑΠ1
ΑΝ ΑΠΑ1=0 ΤΟΤΕ
ΓΡΑΨΕ " Σε ποιό ξενοδοχείο θες να κάνεις κράτηση;"
ΔΙΑΒΑΣΕ ΑΠ
Ι=0
ΕΒΡΕΘΗ=ΨΕΥΔΗΣ
ΟΣΟ Ι<60 ΚΑΙ ΕΒΡΕΘΗ=ΨΕΥΔΗΣ ΕΠΑΝΕΛΑΒΕ
ΑΝ ΟΝΟΜΑ[Ι]!=ΑΠ
ΑΛΛΙΩΣ
ΕΒΡΕΘΗ=ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΕΒΡΕΘΗ=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ " Δεν υπάρχει αυτό το ξενοδοχείο"
ΑΛΛΙΩΣ
Ζ=1
ΟΣΟ Ζ<15 ΕΠΑΝΕΛΑΒΕ
ΑΝ ΔΙΑΘΕΣΙΜΑ[Ι][Ζ]=ΑΛΗΘΗΣ ΤΟΤΕ
Ζ=Ζ+1 !Μέχρι να βρούμε άδειο δωμάτιο
ΑΝ Ζ=15 ΤΟΤΕ
ΓΡΑΨΕ "Δεν υπάρχει άδειο δωμάτιο"
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΔΙΑΘΕΣΙΜΑ[Ι][Ζ]=ΑΛΗΘΗΣ
Ζ=16 !Ώστε να βγει από την όσο
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι][Ζ],ΗΛΙΚΙΑ[Ι][Ζ],ΑΤΟΜΑ[Ι][Ζ]
ΑΝ ΑΤΟΜΑ[Ι][Ζ]>3 ΤΟΤΕ
ΑΝ ( ΗΛΙΚΙΑ[Ι][Ζ]<=18 ΚΑΙ ΗΛΙΚΙΑ[Ι][Ζ]<=23 ) ΤΟΤΕ
ΚΟΣΤΟΣ[Ι][Ζ]=ΤΙΜΗ[Ι] - 5*ΤΙΜΗ[Ι]/100
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΕΞΟΔΟΣ=1
ΚΟΣΤΟΣ[Ι][Ζ]=ΤΙΜΗ[Ι] + 15*ΤΙΜΗ[Ι]/100
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ ΑΠΑ1=1 ΤΟΤΕ
ΓΡΑΨΕ " Σε ποιό ξενοδοχείο θες να ακυρωθεί η κράτηση;"
ΔΙΑΒΑΣΕ ΑΠ
Ι=0
ΕΒΡΕΘΗ=ΨΕΥΔΗΣ
ΟΣΟ Ι<60 ΚΑΙ ΕΒΡΕΘΗ=ΨΕΥΔΗΣ ΕΠΑΝΕΛΑΒΕ
ΑΝ ΟΝΟΜΑ[Ι]!=ΑΠ
ΑΛΛΙΩΣ
ΕΒΡΕΘΗ=ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΕΒΡΕΘΗ=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ " Δεν υπάρχει αυτό το ξενοδοχείο"
ΑΛΛΙΩΣ
ΓΡΑΨΕ "Δώσε αριθμό δωματίου που θέλεις να γίνει ακύρωση "
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΡ1
ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΡ<=15)
ΑΝ ΔΙΑΘΕΣΙΜΑ[Ι][ΑΡ2]=ΨΕΥΔΗΣ ΤΟΤΕ
ΔΙΑΘΕΣΙΜΑ[Ι][ΑΡ2]=ΑΛΗΘΗΣ
ΟΝΟΜΑ[Ι][Ζ]="" ! Κενό
ΗΛΙΚΙΑ[Ι][Ζ]= -1
ΚΟΣΤΟΣ[Ι][Ζ]= -1
ΑΛΛΙΩΣ
ΓΡΑΨΕ "Αυτό το δωμάτιο είναι ήδη διαθέσιμο¨
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ_ΑΝ ΑΠΑ1=2
ΔΙΑΒΑΣΕ ΑΠ
Ι=0
ΕΒΡΕΘΗ=ΨΕΥΔΗΣ
ΟΣΟ Ι<60 ΚΑΙ ΕΒΡΕΘΗ=ΨΕΥΔΗΣ ΕΠΑΝΕΛΑΒΕ
ΑΝ ΟΝΟΜΑ[Ι]!=ΑΠ
ΑΛΛΙΩΣ
ΕΒΡΕΘΗ=ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΕΒΡΕΘΗ=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ " Δεν υπάρχει αυτό το ξενοδοχείο"
ΑΛΛΙΩΣ
ΓΡΑΨΕ "Δώσε αριθμό δωματίου που θέλεις να ελέγξεις "
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΡ1
ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΡ<=15)
ΑΝ ΔΙΑΘΕΣΙΜΑ[Ι][ΑΡ2]=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ " Είναι κλεισμένο"
ΑΛΛΙΩΣ
ΓΡΑΨΕ "Διαθέσιμο¨
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΑΠΑ1=3 ΤΟΤΕ
ΕΞΟΔΟΣ=1
ΤΕΛΟΣ_ΑΝ
ΠΡΟΓΡΑΜΜΑ ΑΣΚ23
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,J,Α[5,3],ΤΕΜP,K,ΣΧ_1,ΣΧ_2,ΣΕΤ_1,ΣΕΤ_2
ΧΑΡΑΚΤΗΡΕΣ:ΟΝ[5],TEMP2
ΑΡΧΗ
ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΡΑΨΕ ’Δώσε το όνομα του σχολείου’
ΔΙΑΒΑΣΕ ΟΝ [Ι]
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 3
Α[Ι,J]<--0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ ’Δώσε τα αποτελέσματα κάθε αγώνα’
ΔΙΑΒΑΣΕ ΣΧ_1, ΣΧ_2, ΣΕΤ_1,ΣΕΤ_2
Α[ΣΧ_1,2]<--Α[ΣΧ_1,2]+ΣΕΤ_1
Α[ΣΧ_1,3]<--Α[ΣΧ_1,3]+ΣΕΤ_2
Α[ΣΧ_2,2]<--Α[ΣΧ_2,2]+ΣΕΤ_2
Α[ΣΧ_2,3]<--Α[ΣΧ_2,3]+ΣΕΤ_1
ΑΝ ΣΕΤ_1>ΣΕΤ_2 ΤΟΤΕ
Α[ΣΧ_1,1]<--Α[ΣΧ_1,1]+2
Α[ΣΧ_2,1]<--Α[ΣΧ_2,1]+1
ΑΛΛΙΩΣ
Α[ΣΧ_1,1]<--Α[ΣΧ_1,1]+1
Α[ΣΧ_2,1]<--Α[ΣΧ_2,1]+2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 5
ΓΙΑ J ΑΠΟ 5 ΜΕΧΡΙ Ι ΜΕ_ΒΗΜΑ -1
ΑΝ Α[J,1]>A[J-1,1] ΤΟΤΕ
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 3
TEMP<-- A[J,K]
A[J,K]<--A[J-1,K]
A[J-1,K]<--TEMP
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
TEMP2<--ON[J]
ON[J]<-- ON[J-1]
ON[J-1]<--TEMP2
ΑΛΛΙΩΣ_ΑΝ Α[J,1]=A[J-1,1] ΤΟΤΕ
ΑΝ Α[J,2]>A[J-1,2] ΤΟΤΕ
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 3
TEMP<-- A[J,K]
A[J,K]<--A[J-1,K]
A[J-1,K]<--TEMP
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
TEMP2<--ON[J]
ON[J]<-- ON[J-1]
ON[J-1]<--TEMP2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΡΑΨΕ ΟΝ[Ι],Α[Ι,1],Α[Ι,2],Α[Ι,3]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Υποστηρίξτε το Project για να συνεχίσουμε να παράγουμε εκπαιδευτικό υλικό.⌗
Προσοχή: Από τις 28 Δεκεμβρίου το Project Panellinies_AEPP απενεργοποιεί όλες τις διαφημίσεις πάνω στο εκπαιδευτικό υλικό. Τo Project πλέον λειτουργεί και υποστηρίζεται αποκλειστικά από τις χορηγίες σας σε Basic Attention Token (BAT) μέσω του Brave Browser στο κανάλι στο Youtube καθώς και σε άλλα κρυπτονομίσματα στις παρακάτω διευθύνσεις:
Bitcoin: bc1q6j959m3whh44ztr8k6p7545n5pzcsncple7qmy
Ethereum: 0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
Cardano: addr1qxewtm0y5yk2mgf93ct4ghguus2shu34fu786t62j3tv7296evenhmr0ltmx3hdyw4d6d8gj8qspry5pe3raaw4nu8as7jsr9l
Monero: 46ewn3rgXMSceuEUEng1bze1RzG61rEiFV3hJ6VKuzvHU62jPntydJRBcFinQ62Pad8AvdoX9YbQcY5HKX3Cr3UQPkhiQ4L
VeChain:0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
Shiba:0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
AIOZ:0x3f27F05Ca28a5B5F876A3A7d435E2E852756F873
Για το πώς θα κερδίσετε δωρεάν BAT, διαβάστε αυτό το άρθρο κάνοντας κλικ εδώ
