Εξεταστική περιόδος Σεπτεμβρίου 1997

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

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

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

Θέμα 1ο:

Να γραφεί πρόγραμμα σε Pascal το οποίο να ορίζει (με τη χρήση εγγραφών):

τα σημεία του επιπέδου ως νέο τύπο,
συνάρτηση που να δέχεται ως όρισμα δύο σημεία (A, B) και να επιστρέφει το μήκος του διανύσματος που ορίζεται από αυτά.

Θέμα 2ο:

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

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

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

Θέμα 3ο:

Να γραφεί πρόγραμμα σε Pascal το οποίο θα διαβάζει ένα αρχείο χαρακτήρων ((FILE OF CHAR) και στη συνέχεια θα τυπώνει τον αριθμό των χαρακτήρων που διάβασε καθώς και τη συχνότητα εμφάνισης για κάθε έναν από τους χαρακτήρες.

Θέμα 4ο:

Να γραφεί πρόγραμμα σε Pascal το οποίο με τη χρήση της διαδικασίας setpixel(x, y) να σχεδιάζει σε οθόνη με διαστάσεις 200*100 εικονοστοιχεία τις τιμές της συνάρτησης:

f(x) = x³+ x

για το x να παίρνει τιμές από το 0 έως το 10. Η συνάρτηση f καθώς και οι συναρτήσεις μετασχηματισμού από συντεταγμένες κόσμου σε συντεταγμένες οθόνης ή/και αντίστροφα να οριστούν ως συναρτήσεις της Pascal. Θεωρήστε ότι το σύστημά σας δουλεύει μόνιμα σε ρυθμό γραφικών (δε χρειάζεται να καλέσετε άλλες διαδικασίες).

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