Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

77
Βρόχος For … Next Σκοπός Μαθήματος Χρήση For … Next για την εκτέλεση προκαθορισμένου αριθμού επαναλήψεων μιας ομάδα εντολών. Αθήνα, Απρίλιος 2014

Transcript of Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Page 1: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Βρόχος For … Next

Σκοπός Μαθήματος Χρήση For … Next για την εκτέλεση προκαθορισμένου αριθμού επαναλήψεων μιας ομάδα εντολών.

Αθήνα, Απρίλιος 2014

Page 2: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Επαναλήψεις Εντολών

Η Visual Basic υποστηρίζει επαναλήψεις ενός συνόλου εντολών:

• Για προκαθορισμένο αριθμό επαναλήψεων (For … Next).

• Όσο μια συνθήκη είναι αληθής (Do While ή Do Loop While).

• Μέχρι μια συνθήκη να γίνει αληθής (Do Until ή Do Loop Until).

Page 3: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

For … Next

• Η απλούστερη μέθοδος επανάληψης ενός συνόλου εντολών για προκαθορισμένο αριθμό επαναλήψεων είναι με τη χρήση του βρόχου For…Next.

• Είναι ένας σύντομος τρόπος γραφής πολλών εντολών που θέλουμε να επαναλαμβάνονται.

Page 4: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

For … Next

Το πλήθος των επαναλήψεων προκύπτειμέσω μίας μεταβλητής, η οποία παίρνει

μίααρχική τιμή πριν εκτελεστούν για

πρώτηφορά οι εντολές και η τιμή της αλλάζει

κάθεφορά που τελειώνει η εκτέλεση τωνεντολών αυτών

Page 5: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

For … Next

For Μετρητής=αρχική τιμή To τελική τιμή [Step βήμα]

Εντολή(ες)

Next Μετρητής

Page 6: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

For … Next

• Ο μετρητής επιτρέπεται να χρησιμοποιηθεί σε υπολογισμούς μέσα στο βρόχο. Η τιμή του δεν επιτρέπεται να τροποποιηθεί μέσα στο βρόχο.

• Δεν επιτρέπεται να μεταβληθεί η αρχική και η τελική τιμή του μετρητή. Πρέπει να έχουν τον ίδιο τύπο.

Page 7: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 1: For … Next

Dim i As Integer

For i = 1 To 50Print "Καλημέρα"; i

Next i

Page 8: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 2: For … Next

Dim i As Integer

For i = 1 To 50 Step 10Print "Καλημέρα "

Next i

Page 9: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 3: For … Next

Dim i As Integer

For i = 5 To 25 Step 5Print "Καλημέρα"

Next i

Page 10: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 4: For … Next

Dim i As Single

For i = 1 To 2.5 Step 0.5

Print i Next i

Page 11: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 5: For … Next

Dim i As Integer

For i = 50 To 1 Step -1 Print i

Next i

Page 12: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 6: For … Next

Dim i As Integer

For i = 1 To 15 FontSize = 10 + i Print "Γραμμή"; i Next i

Page 13: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 7: For … Next

Dim i As Integer, Name As String

Name = InputBox(“Δώσε όνομα”)

For i = 1 To 10 Print Name, "Τιμή

Μετρητή=" ; iNext i

Page 14: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 8: For … Next

Dim i As Integer, j As Integer

For i = 1 To 3For j = 1 To 2 Print i, j

Next jNext i

Page 15: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 9: For … Next

For i = 1 To 4 For j = 1 To 3 For k = 1 To 2 Print i, j, k Next k Next jNext i

Page 16: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 10: For … Next

Dim sum As Integer, i As Integer sum = 0For i = 1 To 100 sum = sum + iNext iPrint “Aθροισμα 1-100”; sum

Page 17: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 11: For … Next

Dim i As Integer, Number As SingleDim sum As Singlesum = 0For i = 1 To 10 Number = InputBox(”Δώσε αριθμό") sum = sum + NumberNext iMsgBox (“Άθροισμα=" & sum)

Page 18: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 12: For … Next

Dim gin As Single, i As Integer

gin = 1

For i = 1 To 10 gin = gin * i Next i

Print “Γινόμενο:=“, gin

Page 19: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Παράδειγμα 13: For … Next

Dim gin As Single, Number As Integer

Dim i As IntegerNumber = InputBox("Δώσε αριθμό")gin = 1For i = 1 To Number gin = gin * iNext iPrint “Γινόμενο=“; gin

Page 20: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Αλγόριθμος εύρεσης Μέγιστου

5 3 6 2 1 10 8 9

Είσοδος

Αλγόριθμος

10

Έξοδος

Παράδειγμα

Page 21: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

5ΜΑΧ

Page 22: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

5ΜΑΧ

3

Page 23: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

5ΜΑΧ

3 6

Page 24: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

6ΜΑΧ

3 6

Page 25: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

6ΜΑΧ

3 6 2

Page 26: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

6ΜΑΧ

3 6 2 1

Page 27: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

6ΜΑΧ

3 6 2 1 10

Page 28: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

10ΜΑΧ

3 6 2 1 10

Page 29: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

10ΜΑΧ

3 6 2 1 10 8

Page 30: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

5 3 6 2 1 10 8 9

5

10ΜΑΧ

3 6 2 1 10 8 9

Page 31: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Αλγόριθμος σε φυσική γλώσσα

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

Page 32: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Άσκηση 1

• Να γραφεί πρόγραμμα το οποίο δέχεται σαν είσοδο 5 ακέραιους αριθμούς.

• Το πρόγραμμα εμφανίζει στην έξοδο το μεγαλύτερο από τους αριθμούς που δόθηκαν.

Page 33: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Αρχή

Page 34: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Διάβασε Μ

Αρχή

Page 35: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Διάβασε Μ

ΜΑΧ Μ

Αρχή

Page 36: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

ΜΑΧ Μ

Αρχή

Page 37: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

Page 38: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

Page 39: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

Page 40: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

Τύπωσε ΜΑΧ

Page 41: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Page 42: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

Page 43: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 5

Page 44: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 5

5

Page 45: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 5

5

Μετρητής

1

1 4 ?

Page 46: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 2

5

2

Μετρητής

1

Page 47: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 2

5

2

Μετρητής

1

Page 48: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 2

5

2

Μετρητής

2

2 4 ?

Page 49: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 6

5

2

Μετρητής

2

6

Page 50: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 6

5

2

Μετρητής

2

6

Page 51: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 6

6

2

Μετρητής

2

6

Page 52: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 6

6

2

Μετρητής

3

3 4 ?

6

Page 53: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 3

6

2

Μετρητής

3

63

Page 54: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 3

6

2

Μετρητής

3

63

Page 55: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 3

6

2

Μετρητής

4

63

4 4 ?

Page 56: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 1

6

2

Μετρητής

4

631

Page 57: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 1

6

2

Μετρητής

4

631

Page 58: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 1

6

2

Μετρητής

5

631

5 4 ?

Page 59: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 1

6

2

Μετρητής

5

631

6

Page 60: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Μ

ΜΑΧ

Είσοδος

Έξοδος

5 1

6

2

Μετρητής

5

631

6

Page 61: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Number = inputbox(“Δώσε αριθμό”)

Page 62: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Number = inputbox(“Δώσε αριθμό”)

Max = Number

Page 63: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Number = inputbox(“Δώσε αριθμό”)

Max = Number

For i=1 to 4

Next i

Page 64: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Number = inputbox(“Δώσε αριθμό”)

Max = Number

For i=1 to 4

Number = inputbox(“Δώσε αριθμό”)

Next i

Page 65: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Number = Inputbox(“Δώσε αριθμό”)

Max = Number

For i=1 to 4

Number = Inputbox(“Δώσε αριθμό”)

If Number > Max then

End if

Next i

Page 66: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Number = Inputbox(“Δώσε αριθμό”)

Max = Number

For i=1 to 4

Number = inputbox(“Δώσε αριθμό”)

If Number > Max then

Max = Number

End if

Next i

Page 67: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για 4 φορές επανέλαβε

Διάβασε Μ

Μ>ΜΑΧ ?

ΜΑΧ Μ

ΝΑΙ ΟΧΙ

Διάβασε Μ

ΜΑΧ Μ

Αρχή

ΤέλοςΤύπωσε ΜΑΧ

Number = inputbox(“Δώσε αριθμό”)

Max = Νumber

For i=1 to 4

Number = inputbox(“Δώσε αριθμό”)

If Νumber > Μax then

Μax = Νumber

End if

Next i

Msgbox(“o μεγαλύτερος αριθμός είναι ο “ & max)

Page 68: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Άσκηση 1: Διαφορετικός Αλγόριθμος

Dim i As Integer, Number As Single, max As Single

For i = 1 To 5Number = InputBox(“Δώσε αριθμό " & i)

If i = 1 Then max = Number End If If Number > max Then max = Number End IfNext iPrint “Ο μεγαλύτερος αριθμός είναι=", max

Page 69: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Να γραφεί πρόγραμμα που δέχεται σαν είσοδο τα ονόματα 3 παραγωγών, και την ποσότητα του προϊόντος σε κιλά που παρήγαγε ο καθένας. Η τιμή του προϊόντος είναι 2 € το κιλό. Το πρόγραμμα να εμφανίζει στην έξοδο:

1. Το όνομα κάθε παραγωγού και το ποσό που αυτός εισέπραξε.

2. Το ποσό που εισέπραξαν συνολικά οι παραγωγοί.

3. Τη μέση είσπραξη ανά παραγωγό.

Άσκηση 2

Page 70: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Άσκηση 2: For … Nextsum = 0For i = 1 To 3 Name = InputBox("Ονοματεπώνυμο") posotita = InputBox("Ποσότητα παραγωγής") poson = 2 * posotita sum = sum + poson Print Name, "Ποσό που εισέπραξε="; posonNext iPrint “Η συνολική είσπραξη είναι“; sumPrint “H μέση είσπραξη ανά παραγωγό είναι“; sum/3

Page 71: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Να γραφεί πρόγραμμα το οποίο:• Διαβάζει 10 αριθμούς.• Υπολογίζει το άθροισμα των αριθμών αυτών.Μετά το τέλος εισαγωγής των στοιχείων το πρόγραμμα εμφανίζει στην οθόνη: • Tο άθροισμα των αριθμών αυτών.• Tο μεγαλύτερο από τους αριθμούς. • Tο μικρότερο από τους αριθμούς.

Άσκηση 3

Page 72: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Άσκηση για το σπίτι

Να γραφεί πρόγραμμα που δέχεται σαν είσοδο τα ονόματα 5 παραγωγών, καθώς και την ποσότητα του προϊόντος που αυτός παρήγαγε. Το πρόγραμμα εμφανίζει στην έξοδο:

Α) το όνομα του παραγωγού με τη μεγαλύτερη σοδειά, και την ποσότητα του προϊόντος που αυτός παρήγαγε

Β) Το πλήθος των παραγωγών που παρήγαγαν πάνω από 500 κιλά έκαστος

Γ) Τη συνολική ποσότητα προϊόντος που παρήγαγαν και οι 5 παραγωγοί.

Page 73: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

sum1 = 0sum2 = 0pl1 = 0pl2 = 0plithos = 5For i = 1 To plithos onoma = InputBox("όνομα

παραγωγού “)

eidos = InputBox("είδος 1 ή 2 ") posot = InputBox("ποσότητα

παραγωγής") timi = InputBox("τιμή μονάδος")

Page 74: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

axia = posot * timi If eidos = 1 Then sum1 = sum1 + posot pl1 = pl1 + 1 End If If eidos = 2 Then sum2 = sum2 + posot pl2 = pl2 + 1 End If Print onoma, axia Next i

Page 75: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Print "ειδος 1 ", sum1, pl1Print "ειδος 2 ", sum2, pl2

Page 76: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Για να βγούμε από ένα For…Next πριν ολοκληρωθεί η εκτέλεσή του, χρησιμοποιούμε την εντολή Exit For.

Η εντολή Exit For χρησιμοποιείται κυρίως όταν χρειάζεται να αντιμετωπισθούν ειδικές περιπτώσεις μέσα στο βρόχο και συντάσσεται κυρίως σε συνδυασμό με τη δομή If…Then.

Exit For

Page 77: Προγραμματισμός & Εφαρμογές Υπολογιστών (βρόχος For next)

Dim i As Integer

For i= 1 To 20If i =5 Then Exit For

Next i

Παράδειγμα: Exit For