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

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

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

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

Θέμα 1ο:

Να γραφεί πρόγραμμα σε Pascal το οποίο να ορίζει:

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

Θέμα 2ο:

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

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

 program test;
 var a, b, c, d : char;
 
 procedure p(var x : char; y : char);
 var c : 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 το οποίο θα διαβάζει βαθμούς γραπτών από το χρήστη μέχρι αυτός να δώσει ως είσοδο τον αριθμό -1. Στη συνέχεια το πρόγραμμα θα τυπώνει στην οθόνη και θα γράφει και σε αρχείο κειμένου (TEXT) τον αριθμό των γραπτών που συγκέντρωσαν κάθε βαθμό (0-10), τον αντίστοιχο βαθμό, καθώς και το μέσο όρο όλων των βαθμών.

Θέμα 4ο:

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

f(x) = x²+ 5

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

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