Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --άσκηση 89
- Αλγόριθμος Ασκ_89
- //Δεδομένα Α//
- sum <— 0
- Για j από 1 μέχρι 6
- sum <— sum + Α[3, j]
- τέλος_επανάληψης
- sum2 <— 0
- Για i από 1 μέχρι 5
- sum2 <— sum2 + A[i, 4]
- τέλος_επανάληψης
- //Αποτελέσματα sum, sum2//
- Τέλος Ασκ_89
- --άσκηση 90
- Αλγόριθμος Ασκ_90
- //Δεδομένα Α//
- y <— 0
- sum0 <— 0
- Για i από 1 μέχρι Ν
- Για j από 1 μέχρι Μ
- Αν (Α[i,j] = y) τότε
- sum0 <— sum0 + 1
- τέλος_αν
- τέλος_επανάληψης
- τέλος_επανάληψης
- ποσοστό <— (sum0/(N*M))*100
- Αν ( ποσοστό > 80) τότε
- Εμφάνισε "Ο πίνακας είναι αραιός"
- αλλιώς
- Εμφάνισε "Ο πίνακας δεν είναι αραιός"
- τέλος_αν
- Τέλος Ασκ_90
- --άσκηση 95
- Αλγόριθμος Καθηγητής_Ζαλίδης
- Για i από 1 μέχρι 150
- Διάβασε ΟΝ[i]
- τέλος_επανάληψης
- Για i από 2 μέχρι 150
- Για y από 150 μέχρι i με_βήμα -1
- Αν ( ON[y-1] > ON[y] ) τότε
- temp <— ON[y-1]
- ON[y-1] <— ON[y]
- ON[y] <— temp
- τέλος_αν
- τέλος_επανάληψης
- τέλος_επανάληψης
- Εμφάνισε "Δώσε πλήθος εργασιών"
- Διάβασε Ν
- Για i από 1 μέχρι 150
- Για j από 1 μέχρι Ν
- Διάβασε ΒΑΘΜΟΙ[i,j]
- τέλος_επανάληψης
- τέλος_επανάληψης
- sum20 <— 0
- Για i από 1 μέχρι 150
- Για j από 1 μέχρι Ν
- Αν ( ΒΑΘΜΟΙ[i,j] = 20 ) τότε
- sum20 <— sum20 + 1
- τέλος_αν
- τέλος_επανάληψης
- τέλος_επανάληψης
- Εμφάνισε "έβαλε 20", sum20, "φορές"
- Για i από 1 μέχρι 150
- sum <— 0
- Για j από 1 μέχρι Ν
- sum <— sum + ΒΑΘΜΟΙ[i,j]
- τέλος_επανάληψης
- ΜΟ[i] <— sum/N
- Εμφάνισε ΜΟ[i]
- τέλος_επανάληψης
- Για i από 1 μέχρι 150
- sums <— sums + ΜΟ[i]
- τέλος_επανάληψης
- Μ_Ο <— sums / 150
- Εμφάνισε "Ο μέσος όρος όλων των εργασιών όλων των μαθητών είναι", Μ_Ο
- summ <— 0
- Για i από 1 μέχρι 150
- Για j από 1 μέχρι Ν
- Αν ( ΒΑΘΜΟΙ[i,j] > Μ_Ο ) τότε
- summ <— summ + 1
- τέλος_αν
- τέλος_επανάληψης
- τέλος_επανάληψης
- Εμφάνισε summ, "βαθμοί είναι > M.O."
- !όταν χρησιμοποιείς μετρητές δεν χρειάζεσαι λογικές μεταβλητές.Στην περίπτωση που δε βρεθεί κανένας βαθμός
- !μεγαλύτερος του γενικού μέσου όρου ο μετρητής θα παραμείνει 0. Οπότε με ένα μήνυμα είσαι καλυμένος.
- max <— ΜΟ[1]
- min <— ΜΟ[1]
- Για i από 2 μέχρι 150
- Αν ( ΜΟ[i] > max ) τότε
- max <— ΜΟ[i]
- τέλος_αν
- Αν (ΜΟ[i] < min ) τότε
- min <— ΜΟ[i]
- τέλος_αν
- τέλος_επανάληψης
- Για i από 1 μέχρι 150
- Αν ( ΜΟ[i] = max ) τότε
- Εμφάνισε ΟΝ[i], max
- τέλος_αν
- Αν (ΜΟ[i] = min ) τότε
- Εμφάνισε ΟN[i], min
- τέλος_αν
- τέλος_επανάληψης
- Τέλος Καθηγητής_Ζαλίδης
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement