Προγραμματισμός με τη Free Pascal - Μέρος 4ο

From Ubuntucy Wiki

Συγγραφή: Χατζηκυριάκου Γιώργος

---

Ο λόγος που χρησιμοποιούμε βρόγχους είναι όταν θέλουμε να επαναλάβουμε ένα κομμάτι κώδικα πολλές φορές. Οι βρόγχοι που θα εξετάσουμε είναι οι : For, While….do και ο βρόγχος Repeat….Until.

Contents 1 Ο Βρόγχος FOR 2 Ο Βρόγχος While….do 3 Ο Βρόγχος Repeat…Until 4 Άσκηση

Ο Βρόγχος FOR

Συντάσσεται:

For μεταβλητή: = αρχή to τέλος do
Begin
  «Κώδικας για επανάληψη»;
End;

Πρόγραμμα 1

Τυπώνει κάθετα τους αριθμούς από το 1 ως το 10.

Program Lesson4_Program1;
var count :integer;
begin
for count := 1 to 10 do
    begin
    writeln(count);
    end;
End.

Εδώ υπάρχει η μεταβλητή count (τύπου integer) της όποιας δίνουμε αρχική τιμή 1 και τελική τιμή 10 (άρα ο βρόγχος μας θα εκτελεστεί 10 φορές), αυτό που γίνετε μέσα στον βρόγχο είναι ότι τυπώνετε η τιμή που παίρνει κάθε φορά η μεταβλητή count δηλαδή 1,2,3,4,5,6,7,8,9,10.

Πρόγραμμα 2

Τυπώνει κάθετα τους αριθμούς από το 10 ως το 1.

Program Lesson4_Program2;
var count :integer;
begin
for count := 10 downto 1 do
    begin
    writeln(count); 
    end;
Readln;
End.

Έχει τον ίδιο τρόπο λειτουργίας με το πρόγραμμα 1 αλλά αυτή την φορά ο μετρητής count μετρά ανάποδα (downto). Άρα η μεταβλητή count παίρνει τις τιμές: 10,9,8,7,6,5,4,3,2,1

Ο Βρόγχος While….do

Συντάσσεται:

while «Συνθήκη» do
Begin
  «Κώδικας για επανάληψη»;
End;

Πρόγραμμα 3

Τυπώνει κάθετα τους αριθμούς από το 0 ως το 9.

Program Lesson4_Program3;
var a :integer;
begin
a := 0;

while a < 10 do
  begin
    writeln (a);
    a := a + 1;
  end;
End.

Καταρχάς δίνουμε αρχική τιμή στη μεταβλητή a :=0;. Όσο το a είναι μικρότερο του 10 τυπώνει το a και στη συνέχεια προσθέτει 1 … Άρα το a θα παίρνει τις τιμές 0,1,2,3,4,5,6,7,8,9. Στο a<10 (δηλαδή το 9) θα τερματιστεί ο βρόγχος για τον λόγω ότι ΔΕΝ θα ισχύει η συνθήκη και στην συνέχεια θα τερματιστεί το πρόγραμμα.

Ο Βρόγχος Repeat…Until

Συντάσσεται:

Repeat
  «Κώδικας για επανάληψη»;
Until «Συνθήκη»;

Πρόγραμμα 4

Program Lesson4_Program4;
var a :integer;
begin
  a := 0;

  Repeat
    writeln(a);
    a := a + 1;
  Until (a > 9);
End.

Όπως και στο Πρόγραμμα 3 δίνουμε αρχική τιμή στη μεταβλητή a :=0;. Θα προσθέτει 1 στο a μέχρι το a να πάρει τιμή μεγαλύτερη του 9 Άρα το a θα παίρνει τις τιμές 0,1,2,3,4,5,6,7,8,9. Μόλις το a πάρει την τιμή 10 (a >9) θα τερματιστεί ο βρόγχος για τον λόγω ότι ΔΕΝ θα ισχύει η συνθήκη και στην συνέχεια θα τερματιστεί το πρόγραμμα.

Προσοχή! Οι βρόγχοι με συνθήκη πρέπει να περιλαμβάνουν κάτι που να αλλάζει την τιμή της έκφρασης, ώστε αυτή να γίνει ψευδής και ο βρόγχος να λήξει, αλλιώς δεν θα τελειώσει ΠΟΤΕ. 

Άσκηση

Να γράψετε πρόγραμμα στη Pascal (χρησιμοποιώντας βρόγχο) που θα διαβάζει 10 ακεραίους από το πληκτρολόγιο και να τυπώνει το άθροισμα τους.

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