Slide 1

ΑΛΓΟΡΙΘΜΟΙ
«ΕΥΡΕΣΗ ΜΕΣΟΥ ΟΡΟΥ ΠΙΝΑΚΑ»

ΠΛΗ 10
2ος Τόμος : «ΤΕΧΝΙΚΕΣ ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΥ»
Κεφάλαιο: «ΑΛΓΟΡΙΘΜΟΙ»
ΣΕΛΙΔΑ : 37


Slide 2

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Θα δείξουμε την
εκτέλεση του
αλγόριθμου βήμα
προς βήμα
χρησιμοποιώντας έναν
πίνακα εισόδου P
τεσσάρων (4)
στοιχείων.

P

1

2

3

4

P[I]

14

5

166

40


Slide 3

Σε κάθε στιγμή της
εκτέλεσης του αλγόριθμου
η κίτρινη μπάρα μας
δείχνει την εντολή που
μόλις εκτελέστηκε.

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ


Slide 4

Με κόκκινο χρώμα
φαίνονται οι τιμές των
μεταβλητών που
άλλαξαν τιμή στο
τρέχον βήμα.
Με μπλε χρώμα
φαίνονται τα δεδομένα
εισόδου

Ν

Χ

Ι

P[I]

ΜΟ

4

14

2

5

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ

Το κίτρινο χρώμα μας
δείχνει το στοιχείο του
πίνακα που εξετάζουμε
στο τρέχον βήμα του
βρόγχου

Δώστε τιμή για το Ν: 4
14


Slide 5

Ξεκινάμε από την ΑΡΧΗ …

… εκτελούμε τις εντολές …

… και τελειώνουμε στο ΤΕΛΟΣ


Slide 6

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

?

?

?

?

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ


Slide 7

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

?

?

?

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4


Slide 8

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

0

?

?

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4


Slide 9

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

0

1

14

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4


Slide 10

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

0

1

14

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14


Slide 11

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

14

1

14

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14


Slide 12

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

14

2

5

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14


Slide 13

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

14

2

5

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5


Slide 14

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

19

2

5

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5


Slide 15

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

19

3

166

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5


Slide 16

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

19

3

166

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166


Slide 17

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

185

3

166

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166


Slide 18

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

185

4

40

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166


Slide 19

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

185

4

40

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166
40


Slide 20

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

225

4

40

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166
40


Slide 21

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

225

5

?

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166
40


Slide 22

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

225

5

?

?

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166
40


Slide 23

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

225

5

?

56,25

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166
40


Slide 24

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

225

5

?

56,25

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166
40
56,25


Slide 25

ΑΛΓΟΡΙΘΜΟΣ ΜΟ-ΠΙΝΑΚΑ-1ΧΝ
ΔΕΔΟΜΕΝΑ
P:ARRAY[1..N] OF INTEGER;
N,X,I: INTEGER;
MO: REAL;
ΑΡΧΗ
ΔΙΑΒΑΣΕ(Ν);
Χ:=0;
ΓΙΑ Ι:=1 ΕΩΣ Ν ΕΠΑΝΕΛΑΒΕ
ΤΥΠΩΣΕ (Ρ[Ι]);
Χ:=Χ+Ρ[Ι];
ΓΙΑ-ΤΕΛΟΣ
ΜΟ:=Χ/Ν;
ΤΥΠΩΣΕ(ΜΟ);
ΤΕΛΟΣ

Ν

Χ

Ι

P[I]

ΜΟ

4

225

5

?

56,25

P

1

2

3

4

P[I]

14

5

166

40

ΟΘΟΝΗ ΕΚΤΥΠΩΣΗΣ
Δώστε τιμή για το Ν: 4
14
5
166
40
56,25


Slide 26

ΤΕΛΟΣ