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

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

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

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

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

Διδάσκων: Διομήδης Σπινέλλης 15 Απριλίου 1997

Θέμα 1ο:

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

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

Θέμα 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.

Θέμα 3ο:

Να γραφεί πρόγραμμα το οποίο με τη ÷ρήση των δομών CASE, FOR και REPEAT θα διαβάζει ÷αρακτήρες από το ÷ρήστη και θα τυπώνει 10 φορές στην οθόνη την παράστασή τους σύμφωνα με τον κώδικα Morse (Α: .- Β: -... Γ: --. Δ: -.. Ε: .) μέ÷ρι ο ÷ρήστης να δώσει ως είσοδο το ÷αρακτήρα ×. (Το πρόγραμμα να υλοποιηθεί μόνο για τους παραπάνω ÷αρακτήρες).

Θέμα 4ο:

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

f(x) = ημ x

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