Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2017
45
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Python 3.75 KB | None | 0 0
  1. --άσκηση 89
  2.  
  3. Αλγόριθμος Ασκ_89
  4. //Δεδομένα Α//
  5. sum <0
  6.   Για j από 1 μέχρι 6
  7.     sum <sum + Α[3, j]
  8.   τέλος_επανάληψης
  9. sum2 <0
  10.   Για i από 1 μέχρι 5
  11.     sum2 <— sum2 + A[i, 4]
  12.   τέλος_επανάληψης
  13. //Αποτελέσματα sum, sum2//
  14. Τέλος Ασκ_89
  15.  
  16.  
  17. --άσκηση 90
  18.  
  19. Αλγόριθμος Ασκ_90
  20. //Δεδομένα Α//
  21. y <0
  22. sum0 <0
  23.   Για i από 1 μέχρι Ν
  24.     Για j από 1 μέχρι Μ
  25.       Αν (Α[i,j] = y) τότε
  26.         sum0 <— sum0 + 1
  27.       τέλος_αν
  28.     τέλος_επανάληψης
  29.   τέλος_επανάληψης
  30. ποσοστό <(sum0/(N*M))*100
  31.   Αν ( ποσοστό > 80) τότε
  32.     Εμφάνισε "Ο πίνακας είναι αραιός"
  33.   αλλιώς
  34.     Εμφάνισε "Ο πίνακας δεν είναι αραιός"
  35.   τέλος_αν
  36. Τέλος Ασκ_90
  37.  
  38.  
  39. --άσκηση 95
  40.  
  41. Αλγόριθμος Καθηγητής_Ζαλίδης
  42.   Για i από 1 μέχρι 150
  43.     Διάβασε ΟΝ[i]
  44.   τέλος_επανάληψης
  45.   Για i από 2 μέχρι 150
  46.     Για y από 150 μέχρι i με_βήμα -1
  47.       Αν ( ON[y-1] > ON[y] ) τότε
  48.         temp <— ON[y-1]
  49.         ON[y-1] <— ON[y]
  50.         ON[y] <— temp
  51.       τέλος_αν
  52.     τέλος_επανάληψης
  53.   τέλος_επανάληψης
  54. Εμφάνισε "Δώσε πλήθος εργασιών"
  55. Διάβασε Ν
  56.   Για i από 1 μέχρι 150
  57.     Για j από 1 μέχρι Ν
  58.       Διάβασε ΒΑΘΜΟΙ[i,j]
  59.     τέλος_επανάληψης
  60.   τέλος_επανάληψης
  61.  sum20 <0
  62.   Για i από 1 μέχρι 150
  63.     Για j από 1 μέχρι Ν      
  64.         Αν ( ΒΑΘΜΟΙ[i,j] = 20 ) τότε
  65.           sum20 <— sum20 + 1
  66.         τέλος_αν
  67.     τέλος_επανάληψης
  68.   τέλος_επανάληψης
  69. Εμφάνισε "έβαλε 20", sum20, "φορές"
  70.   Για i από 1 μέχρι 150
  71.     sum <0
  72.       Για j από 1 μέχρι Ν
  73.         sum <sum + ΒΑΘΜΟΙ[i,j]
  74.       τέλος_επανάληψης
  75.     ΜΟ[i] <sum/N
  76.     Εμφάνισε ΜΟ[i]
  77.   τέλος_επανάληψης
  78.   Για i από 1 μέχρι 150
  79.     sums <— sums + ΜΟ[i]
  80.   τέλος_επανάληψης
  81. Μ_Ο <— sums / 150
  82. Εμφάνισε "Ο μέσος όρος όλων των εργασιών όλων των μαθητών είναι", Μ_Ο
  83. summ <0
  84.   Για i από 1 μέχρι 150
  85.     Για j από 1 μέχρι Ν
  86.       Αν ( ΒΑΘΜΟΙ[i,j] > Μ_Ο ) τότε
  87.         summ <— summ + 1
  88.       τέλος_αν
  89.     τέλος_επανάληψης
  90.   τέλος_επανάληψης
  91. Εμφάνισε summ, "βαθμοί είναι > M.O."
  92. !όταν χρησιμοποιείς μετρητές δεν χρειάζεσαι λογικές μεταβλητές.Στην περίπτωση που δε βρεθεί κανένας βαθμός
  93. !μεγαλύτερος του γενικού μέσου όρου ο μετρητής θα παραμείνει 0. Οπότε με ένα μήνυμα είσαι καλυμένος.
  94. max <— ΜΟ[1]
  95. min <— ΜΟ[1]
  96.   Για i από 2 μέχρι 150
  97.     Αν ( ΜΟ[i] > max ) τότε
  98.         max <— ΜΟ[i]
  99.     τέλος_αν
  100.     Αν (ΜΟ[i] < min ) τότε
  101.         min <— ΜΟ[i]
  102.     τέλος_αν
  103.   τέλος_επανάληψης
  104.   Για i από 1 μέχρι 150
  105.     Αν ( ΜΟ[i] = max ) τότε
  106.         Εμφάνισε ΟΝ[i], max
  107.     τέλος_αν
  108.     Αν (ΜΟ[i] = min ) τότε
  109.         Εμφάνισε ΟN[i], min
  110.     τέλος_αν
  111.   τέλος_επανάληψης
  112. Τέλος Καθηγητής_Ζαλίδης
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement