Albatross
Νεοφερμένος
Ο Παναγιώτης αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι 32 ετών, Απόφοιτος και μας γράφει απο Αμπελόκηποι (Θεσσαλονίκη). Έχει γράψει 64 μηνύματα.
25-05-09
23:40
Οκ αυτό ήθελα! Ευχαριστώ!
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Albatross
Νεοφερμένος
Ο Παναγιώτης αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι 32 ετών, Απόφοιτος και μας γράφει απο Αμπελόκηποι (Θεσσαλονίκη). Έχει γράψει 64 μηνύματα.
25-05-09
22:38
Code:
Αλγόριθμος Θερμοκρασίες
αθρ<-0
Για ι από 1 μέχρι 5
Διάβασε ΟΝ[ι]
Για κ από 1 μέχρι 31
Διάβασε ΘΕΡΜ[ι,κ]
αθρ<-αθρ+ΘΕΡΜ[ι,κ]
Τέλος_επανάληψης
Τέλος_επανάληψης
Μέση_Θερμ<-αθρ/(5*31)
Για ι από 1 μέχρι 5
μεγ[ι]<-ΘΕΡΜ[ι,1]
Για κ από 2 μέχρι 31
Αν ΘΕΡΜ[ι,κ]>μεγ[ι] τότε
μεγ[ι]<-ΘΕΡΜ[ι,κ]
Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε "Η μέρα με τη μεγαλύτερη θερμοκρασία για την" ,ι, "η πόλη είναι"
& ,μεγ[ι], "βαθμοί."
Για ι από 1 μέχρι 5
Αν μεγ[ι]>Μέση_Θερμ τότε
Εμφάνισε ΟΝ[ι]
Τέλος_αν
Τέλος_επανάληψης
Τέλος Θερμοκρασίες
Ι.
Code:
ΔΙΑΔΙΚΑΣΙΑ ΕΙΣΑΓΩΓΗ (Χ,Υ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι,Κ
ΠΡΑΓΜΑΤΙΚΕΣ: Υ[100,12]
ΧΑΡΑΚΤΗΡΕΣ: Χ[100]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΔΙΑΒΑΣΕ Χ[Ι]
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
ΔΙΑΒΑΣΕ Υ[Ι,Κ]
ΟΣΟ Υ[Ι,Κ]<0 Η' Υ[Ι,Κ]>20 Η' (Α_Μ(Υ[Ι,Κ])<>Υ[Ι,Κ]) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ "ΛΑΘΟΣ - ΕΠΑΝΑΛΗΨΗ ΕΙΣΑΓΩΓΗΣ"
ΔΙΑΒΑΣΕ Υ[Ι,Κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Code:
ΔΙΑΔΙΚΑΣΙΑ ΜΕΣΟΙ_ΟΡΟΙ (Χ,Υ)
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Υ[100]
ΑΚΕΡΑΙΕΣ: Χ[100,12], Ι,Κ,ΑΘΡ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΘΡ<-0
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
ΑΘΡ<-ΑΘΡ+Χ[Ι,Κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Υ[Ι]<-ΑΘΡ/12
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Code:
ΔΙΑΔΙΚΑΣΙΑ ΤΑΞΙΝΟΜΗΣΗ (Χ,Υ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι,Κ
ΠΡΑΓΜΑΤΙΚΕΣ: Υ[100], ΒΟΗΘ
ΧΑΡΑΚΤΗΡΕΣ: Χ[100], ΒΟΗΘ2
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 100
ΓΙΑ Κ ΑΠΟ 100 ΜΕΧΡΙ 1 ΜΕ_ΒΗΜΑ -1
ΑΝ Υ[Ι-1]<Υ[Ι] ΤΟΤΕ
ΒΟΗΘ<-Υ[Ι-1]
Υ[Ι-1]<-Υ[Ι]
Υ[Ι]<-ΒΟΗΘ
ΒΟΗΘ2<-Χ[Ι-1]
Χ[Ι-1]<-Χ[Ι]
Χ[Ι]<-ΒΟΗΘ2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Θα εμφανιστούν τα ονόματα των μαθητών με τον μεγαλύτερο μέσο όρο.
-----------------------------------------
Στην σελίδα με τις ασκ. που ζητούν αποτέλεσμα εντολής είναι:
1) Α=66, Β=150
2) ι) S=9 ii)S=11
-----------------------------------------
Code:
ΔΙΑΒΑΣΕ Α,Β,Γ
Κ<-Α
Λ<- ΜΕΓΙΣΤΟ(Β,Γ)
Μ<-ΜΕΓΙΣΤΟ(Κ,Λ)
ΓΡΑΨΕ Μ
ΣΥΝΑΡΤΗΣΗ ΜΕΓΙΣΤΟ(Χ,Υ):ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Χ,Υ
ΑΡΧΗ
ΑΝ Χ>Υ ΤΟΤΕ
ΜΕΓΙΣΤΟ<-Χ
ΑΛΛΙΩΣ
ΜΕΓΙΣΤΟ<-Υ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
Νομίζω τελείωσαν :Ρ Ελπίζω να βοήθησα...
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Albatross
Νεοφερμένος
Ο Παναγιώτης αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι 32 ετών, Απόφοιτος και μας γράφει απο Αμπελόκηποι (Θεσσαλονίκη). Έχει γράψει 64 μηνύματα.
25-05-09
21:56
Code:
Αλγόριθμος Σχολείο
Διάβασε ΜΑΘΗΤΕΣ
Όσο ΜΑΘΗΤΕΣ<0 Η' ΜΑΘΗΤΕΣ>200 επανάλαβε
Εμφάνισε "Λάθος - Επανάληψη εισαγωγής"
Διάβασε ΜΑΘΗΤΕΣ
Τέλος_επανάληψης
κ<-1
Για ι από 1 μέχρι ΜΑΘΗΤΕΣ
Διάβασε ΟΝ[ι],ΒΑΘ[ι]
Όσο ΒΑΘ[ι]<0 Η' ΒΑΘ[ι]>20 επανάλαβε
Εμφάνισε "Έκανες Λάθος"
Διάβασε ΒΑΘ[ι]
Τέλος_επανάληψης
Αν ΒΑΘ[ι]>=10 τότε
ΟΝΠΡΟΑΓ[κ]<-ΟΝ[ι]
ΠΡΟΑΓ[κ]<-ΒΑΘ[ι]
κ<-κ+1
Τέλος_αν
Τέλος_επανάληψης
Για ι απο 2 μέχρι κ
Για λ από κ μέχρι ι με βήμα -1
Αν ΠΡΟΑΓ[ι]>ΠΡΟΑΓ[ι-1] τότε
βοηθ<-ΠΡΟΑΓ[ι]
ΠΡΟΑΓ[ι]<-ΠΡΟΑΓ[ι-1]
ΠΡΟΑΓ[ι-1]<-βοηθ
βοηθ2<-ΟΝΠΡΟΑΓ[ι]
ΟΝΠΡΟΑΓ[ι]<-ΟΝΠΡΟΑΓ[ι-1]
ΟΝΠΡΟΑΓ[ι-1]<-βοηθ2
Τέλος_αν
Τέλος_επανάληψης
Τέλος_επανάληψης
ι<-1
Όσο ΠΡΟΑΓ[ι]=ΠΡΟΑΓ[1] ΚΑΙ ι<=κ επανάλαβε
Εμφάνισε ΟΝΠΡΟΑΓ[ι]
ι<-ι+1
Τέλος_επανάληψης
Τέλος Σχολείο
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Albatross
Νεοφερμένος
Ο Παναγιώτης αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι 32 ετών, Απόφοιτος και μας γράφει απο Αμπελόκηποι (Θεσσαλονίκη). Έχει γράψει 64 μηνύματα.
25-05-09
21:25
Code:
Αλγόριθμος Εταιρεία
!Α,Β
Για ι απο 1 μεχρι 100
Διάβασε ΟΝ[ι]
Για κ απο 1 μέχρι 6
Διάβασε ΩΡΕΣ[ι,κ]
Όσο ΩΡΕΣ[ι,κ] >12 'Η <0 επανάλαβε
Εμφάνισε "Λάθος - Επανάληψη εισαγωγής"
Διάβασε ΩΡΕΣ[ι,κ]
Τ_Ε
Τ_Ε
Τ_Ε
!Γ,Δ
Εμφάνισε "Όνομα Εργαζομένου Αποδοχές"
Εμφάνισε "-------------------- ----------"
ΠΟΣΟ_1<-0 ! Συνολικές πληρωμές κανονικού ωραρίου
ΠΟΣΟ_2<-0 ! Συνολικές πληρωμές υπερωριών
Για ι από 1 μέχρι 100
ΑΠΟΔΟΧΕΣ[ι]<-0
Για κ από 1 μέχρι 6
Αν ΩΡΕΣ[ι,κ] <=8 τότε
ΑΠΟΔΟΧΕΣ[ι]<-ΑΠΟΔΟΧΕΣ[ι]+ΩΡΕΣ[ι,κ]*7
ΠΟΣΟ_1<-ΠΟΣΟ_1+ΑΠΟΔΟΧΕΣ[ι]
Αλλιώς_αν ΩΡΕΣ[ι,κ] >8 τότε
ΑΠΟΔΟΧΕΣ[ι]<-ΑΠΟΔΟΧΕΣ[ι]+(56+10*(ΩΡΕΣ[ι,κ]-8))
ΠΟΣΟ_1<-ΠΟΣΟ_1+56
ΠΟΣΟ_2<-ΠΟΣΟ_2+(ΑΠΟΔΟΧΕΣ[ι]-56)
Τέλος_αν
Τ_Ε
Εμφάνισε ΟΝ[ι], " ", ΑΠΟΔΟΧΕΣ[ι]
Τ_Ε
Εμφάνισε "Συν. Ποσό για κανονικό ωράριο: ", ΠΟΣΟ_1
Εμφάνισε "Συν. Ποσό για υπερωρίες: ", ΠΟΣΟ_2
!Ε
Εμφάνισε "Λίστα απόντων"
Εμφάνισε "--------------"
Για ι από 1 μέχρι 100
ΗΜΕΡΕΣ<-0
Για κ από 1 μέχρι 6
Αν ΩΡΕΣ[ι,κ]=0 τότε
ΗΜΕΡΕΣ<-ΗΜΕΡΕΣ+1
Τέλος_αν
Τ_Ε
Αν ΗΜΕΡΕΣ>=2 τότε
Εμφάνισε ΟΝ[ι]
Τέλος_αν
Τ_Ε
Τέλος Εταιρεία
Βασικά τις έχεις όλες; Ή έχεις λύσει κάποιες; Ποιές θές;
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.