Αλγόριθμος Oμάδα_Μπάσκετ
! ερωτήματα α, β
Για i από 1 μέχρι 20
Για j από 1 μέχρι 40
Διάβασε Π[i, j]
Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 20
Διάβασε O[i]
Τέλος_επανάληψης
! ερώτημα γ
πόσοι ¬ 0
Για j από 1 μέχρι 40
! βρες max στήλης
max ¬ Π[1, j]
Για i από 2 μέχρι 20
Αν Π[i, j] > max τότε
max ¬ Π[i, j]
Τέλος_αν
Τέλος_επανάληψης
! πόσα max;
α ¬ 0
Για i από 1 μέχρι 20
Αν Π[i, j] = max τότε
α ¬ α + 1
Τέλος_αν
Τέλος_επανάληψης
Αν α = 1 τότε ! μόνο 1 max
πόσοι ¬ πόσοι + 1
Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε πόσοι
! ερώτημα δ
Για i από 1 μέχρι 20
! αναζήτηση του –1 στη γραμμή i
done ¬ ψευδής
j ß 1
Όσο done= ψευδής και j<=40 επανάλαβε
Αν Π[i, j] = -1 τότε
done ¬ αληθής
αλλιώς
j ß j+1
Τέλος_αν
Τέλος_επανάληψης
Αν done = ψευδής τότε ! δεν έχασε κανέναν αγώνα
Εμφάνισε Ο[i]
Τέλος_αν
Τέλος_επανάληψης
! ερώτημα ε
Διάβασε όνομα_αναζ ! ερώτημα ε
done ¬ ψευδής
pos ¬ 0
i ¬ 1
Όσο done = ψευδής και i <= 20 επανάλαβε
Αν Ο[i] = όνομα_αναζ τότε
done ¬ αληθής
pos ¬ i
αλλιώς
i ¬ i + 1
Τέλος_αν
Τέλος_επανάληψης
Αν done = αληθής τότε
! Στον πίνακα ΑΓ[40] κρατάω τους αριθμούς των αγώνων
Για i από 1 μέχρι 40
ΑΓ[I] ß i
Τέλος_επανάληψης
! φθίνουσα ταξινόμηση γραμμής pos πίνακα Π
Για i από 2 μέχρι 40
Για j από 40 μέχρι i με_βήμα -1
Αν Π[pos, j-1] < Π[pos, j] τότε
Αντιμετάθεσε Π[pos, j-1], Π[pos, j]
Αντιμετάθεσε ΑΓ[j-1], ΑΓ[j]
Τέλος_αν
Τέλος_επανάληψης
Τέλος_επανάληψης
Αν Π[pos, 6] <> -1 τότε ! έχει 6 καλύτερους
Εμφάνισε ‘Οι 6 καλύτεροι αγώνες για τον παίκτη ’, όνομα_αναζ
Για j από 1 μέχρι 6
Εμφάνισε ΑΓ[j]
Τέλος_επανάληψης
αλλιώς
Εμφάνισε " δεν έχει καν συμμετοχή σε 6 αγώνες"
Τέλος_αν
αλλιώς
Εμφάνισε "Δεν υπάρχει παίκτης με αυτό το όνομα"
Τέλος_αν
Τέλος Oμάδα_Μπάσκετ
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου