Εξεταστική περιόδος Ιουνίου 1998

ΠΑΝΕΠΙΣΤΗΜΙΟ ΑΙΓΑΙΟΥ

Τμήμα Μαθηματικών

ΠΛΗΡΟΦΟΡΙΚΗ ΙΙ
Διδάσκων: Διομήδης Σπινέλλης
Εξεταστική περίοδος
Ιουνίου 1998

Θέμα 1ο: (2.5 βαθμοί)

Ένα πρόγραμμα Pascal περιέχει τους ορισμούς και τις δηλώσεις που ακολουθούν:

const
	pi = 3.1415;
var
	i, j : integer;
	a, b : real;
	p, q : boolean;
	c, d : char;

Για όσες από τις παρακάτω εντολές θεωρείτε εσφαλμένες τεκμηριώστε με μια φράση την άποψή σας:

c := succ(d)
d := d + 1
i := ord(c) + ord(d)
a := b / pi
i := j / 2

p := i = j
q := q and (ord(c) = 'w')
'c' := d
if q then writeln(a,b)
while i + 1 do writeln(i)

Θέμα 2ο: (2.5 βαθμοί)

Tι θα τυπώσει το παρακάτω πρόγραμμα αν στη γραμμή σημειωμένη με **** αντικαταστήσετε τις τιμές των χαρακτήρων που τίθενται στις μεταβλητές με τους πέντε πρώτους χαρακτήρες του επωνύμου σας; Για παράδειγμα αν σας λένε "Μαρία Ατσίδα" οι γραμμή θα είναι:

 a := 'A'; b := 'T'; c := 'S'; d:= 'I'; e:= 'D';

Τεκμηριώστε περιληπτικά την απάντησή σας.

 program test;
 var a, b, c, d, e, f : char;
 function p(d : char; var y : char): char;
 var b : char;
 begin
     c := '2';     b := '3';
     d := '4';     y := '5';
     p := d;
 end;
 begin
     a:='S'; b:='P'; c:='I'; d:='N'; e:='E'; {****}
     writeln(a, b, c, d, e);
     f := p(a, e);
     writeln(a, b, c, d, e, f)
 end.

Θέμα 3ο: (5 βαθμοί)

Τα στοιχεία των ποδοσφαιριστών μιας ομάδας του MUNDIAL 98 φυλάσσονται σε αρχείο χαρακτήρων (FILE OF CHAR) με την παρακάτω γραμμογράφηση:

όνομα, ύψος, ηλικία, επιτυχημένα τέρματα.

Παράδειγμα:

Ronaldo 1.82 21 77

Να γραφεί πρόγραμμα σε Pascal το οποίο διαβάζει από το αρχείο τα στοιχεία 22 ποδοσφαιριστών και θα τα φυλάει σε πίνακα εγγραφών. Στη συνέχεια τυπώνει: α) για κάθε ποδοσφαιριστή τα πλήρη στοιχεία του καθώς και τόσα θαυμαστικά (!) όσα και τα επιτυχημένα του τέρματα, β) τα ονόματα και την ηλικία των ποδοσφαιριστών με ηλικία μεγαλύτερη των 30 ετών και γ) το συνολικό αριθμό και το μέσο όρο των επιτυχημένων τερμάτων της ομάδας. Τα θαυμαστικά που αντιστοιχούν στα τέρματα να τυπώνονται από ξεχωριστή διαδικασία.

Διάρκεια εξέτασης 2 ώρες
Καλή επιτυχία!