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

From Ubuntucy Wiki

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

---

Πίνακες – Arrays

Πίνακα ονομάζουμε διάταξη δεδομένων μιας ή περισσοτέρων διαστάσεων η οποία είναι συγκεκριμένου τύπου δεδομένων.

Για παράδειγμα έχουμε ένα πίνακα ακραίων 5 θέσεων τον οποίο ονομάζουμε myarray και τον δηλώνουμε όπως βλέπουμε παρακάτω στις μεταβλητές του προγραμματος μας:

…
myarray :array[1..5] of integer;
….

myarray[1]  myarray[2]  myarray[3]  myarray[4]  myarray[5]
    4           7           1           3           6

Πρώτο στοιχειό του πίνακα myarray είναι ο myarray[1] που έχει τιμή τον ακέραιο 4 και το τελευταίο στοιχείο είναι ο myarray[5] που έχει τιμή τον ακέραιο 6.

Για να δώσουμε τιμή σε ένα στοιχειό του πίνακα myarray γραφούμε : Π.χ

Κατευθείαν … myarray[2]:=7;

ή μέσω πληκτρολογίου… readln(myarray[2]);

Για να παρουσιάσουμε μια τιμή από τον πίνακα myarray γραφούμε : Π.χ

write(myarray[3]);

Άν είναι μεγάλος ο πίνακας καλό είναι να χρησιμοποιούμε βρόγχους για την προσπέλαση του.

Πρόγραμμα 1

Γέμισμα και Παρουσίαση στοιχείων του πίνακα στην οθόνη.

Program Lesson5_Program1;

var
myarray :array[1..5] of integer;
count1,count2 :integer;

begin

for count1 := 1 to 5 do
  begin
    readln(myarray[count1]);
  end;

for count2 := 1 to 5 do
  begin
    write(myarray[count2]);
  end;
end.

Ασκήσεις

1.Να γράψετε πρόγραμμα στη Pascal που θα γεμίζει έναν πίνακα ακεραίων τον pin1 ο ποιος είναι 10 θέσεων, στην συνέχεια να 
αθροίζει τα στοιχεία και θα τυπώνει το αποτέλεσμα.

2.Να γράψετε πρόγραμμα στη Pascal που θα γεμίζει έναν πίνακα ακεραίων τον pin2 ο ποιος είναι 5 θέσεων, και στην συνέχεια να τ
υπώνει τους αρνητικούς αριθμούς καθώς και το πλήθος τους (πόσοι είναι).

3.Να γράψετε πρόγραμμα στη Pascal που θα γεμίζει έναν πίνακα ακεραίων τον pin3 ο ποιος είναι 5 θέσεων, στην συνέχεια να 
βρίσκει το μικρότερο στοιχείο και θα το τυπώνει στην οθόνη.

**Οι ασκήσεις να υλοποιηθούν με βρόγχους FOR.

Στο επόμενο μέρος θα δούμε την χρήση των διαδικασιών και συναρτήσεων...