Η ανάρτηση υπάρχει και στο παρακάτω λίνκ
http://okiriostonipologiston.blogspot.gr/2014/06/2014.htmlΣτη συνέχεια παραθέτω τις (βιαστικές ;-)) λύσεις των θεμάτων (συγγνώμη για την κακή ποιότητα της φωτογραφίας, θα ανεβάσω καλύτερη στη αργότερα...).
Εννοείται ότι οι προτεινόμενες λύσεις είναι ενδεικτικές, προφανώς δεν είναι οι μοναδικές και ενδέχεται να περιέχουν λάθη. Παρακαλώ πολύ αν εντοπίσετε λάθη, αλλά και για οποιοδήποτε σχόλιο επικοινωνήστε.
Ευχαριστώ πολύ.
Λοιπόν έχουμε και λέμε...
ΠΡΟΤΕΙΝΟΜΕΝΕΣ ΛΥΣΕΙΣ
για τα θέματα του μαθήματος Δομημένος Προγραμματισμός (16-06-2014)
ΘΕΜΑ Α
Α1.
α. Σωστό
β. Σωστό
γ. Λάθος
δ. Σωστό
ε. Λάθος
στ. Σωστό
Α2.
1. β
2. γ
3. ε
4. στ
5. δ
Α3.
Οποιαδήποτε δύο χαρακτηριστικά από τα παρακάτω (σελ. 19)
· Η ακριβής περιγραφή των δεδομένων
· Ο Σαφής καθορισμός των βημάτων του
· Ο πεπερασμένος αριθμός βημάτων
· Η ολοκλήρωση κάθε βήματος σε πεπερασμένο χρόνο
· Η ακρίβεια αποτελεσμάτων κάθε βήματος
Α4.
α. 10
β. 3.1416
γ. i=2
Α5.
krat,. foros : παράμετροι μεταβλητής
akath: παράμετρος τριμής
ΘΕΜΑ Β
Β1
(για την εικόνα κλικ
https://drive.google.com/#folders/0B0vTQRXS6uPINnQ2TEhpZEtYUTQ Β2
Program Thema_B2_2014;
Var
plithos, sum, x, y : integer;
Begin
plithos := 0;
sum := 0;
x := 100;
repeat
readln(y);
plithos := plithos + 1;
sum := sum + y;
x := x div 2;
until x <= 5;
if sum > 80 then
writeln('πληθος=', plithos)
else
writeln('αθροισμα=', sum)
End.
ΘΕΜΑ Γ.
Program Thema_C_2014;
Var
kivismos, ilikia : integer;
asfalistra, asfalistra_me_fpa : real;
Begin
write('Δωσε μου τον Κυβισμό του αυτοκινήτου ');
readln(kivismos);
write('Δώσε μου την ηλικία του οδηγού ');
readln(ilikia);
if kivismos <= 1000 then
asfalistra := 150
else
if kivismos <= 2000 then
asfalistra := 200
else
asfalistra := 300;
if ilikia <= 23 then
asfalistra := asfalistra + 40;
asfalistra_me_fpa := asfalistra + (asfalistra * 23/100);
writeln('Το τελικό ποσό ασφσλίστρων με ΦΠΑ είναι: ' , asfalistra_me_fpa:10:2);
End.
ΘΕΜΑ Δ.
Program Thema_D_2014;
Var
nomos, nomos_megaliterou_eksetastikou : string;
i, plithos_mathiton, sinolo_eksetazomenon_mathiton : integer;
plithos_aponton, plithos_sxoleion_xwris_apontes : integer;
sinolo_paronton, paronters_eksetastikou : integer;
megaliteros_arithmos_mathiton : integer;
Begin
plithos_mathiton := 0; sinolo_eksetazomenon_mathiton := 0;
plithos_aponton := 0; plithos_sxoleion_xwris_apontes := 0;
sinolo_paronton :=0;
nomos := ' ';
nomos_megaliterou_eksetastikou := ' ';
for i := 1 to 143 do
begin
write('Δώσε τον νομό του εξεταστικού κέντρου ');
readln(nomos);
write('Δώσε το πλήθος των μαθητών που έχουν δικαίωμα να
προσέλθουν στις εξετάσεις ');
readln(plithos_mathiton);
write('Δώσε το πλήθος των απόντων μαθητών ');
readln(plithos_aponton);
if plithos_mathiton > megaliteros_arithmos_mathiton then
begin
megaliteros_arithmos_mathiton := plithos_mathiton;
nomos_megaliterou_eksetastikou := nomos;
end;
paronters_eksetastikou := plithos_mathiton - plithos_aponton;
sinolo_paronton := sinolo_paronton + paronters_eksetastikou;
if plithos_aponton = 0 then
plithos_sxoleion_xwris_apontes :=
plithos_sxoleion_xwris_apontes + 1;
end;
writeln('Ο νομός με το μεγαλύτερο εξεταστικό κέντρο είναι ο : ',
nomos_megaliterou_eksetastikou);
writeln('Ο συνολικός αριθμός των μαθητών που προσήλθαν στις
εξετάσεις ήταν', sinolo_paronton);
writeln('Το πλήθος των εξεταστικών κέντρων χωρίς απόντες είναι: ',
plithos_sxoleion_xwris_apontes);
End.