Εργαστήριο αυτοαξιολόγησης 1998

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

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

ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΣ ΣΕ PASCAL

(Εργαστήριο αυτοαξιολόγησης)

Διδάσκων: Διομήδης Σπινέλλης 24 Μαρτίου 1998

Θέμα 1ο:

Να γραφεί πρόγραμμα σε Pascal το οποίο να διαβάζει από το χρήστη δύο ημερομηνίες (μέρα μήνα, μήνα, έτος) Η1, Η2 (Η1 < Η2, έτος > 1900) και να τυπώνει τον αριθμό ημερών ανάμεσα στις Η1 και Η2. Παρατηρήσεις:

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

Θέμα 2ο:

Τι θα τυπώσει το παρακάτω πρόγραμμα;

program    test;
var    x : integer;
procedure    a(var y : integer);
begin
    y := y + 4;
    x := x + 12 
end;
function    b(x : integer) : integer;
begin
    b := x * 2;
    x := x div 2
end;
procedure    c;
begin
    x := 8
end;
begin
    c; writeln(x);
    x := b(x); writeln(x);
    a(x); writeln(x)
end.

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