Αλγόριθμος 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μάδα_Μπάσκετ
 
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου