Απαντήσεις - Λύσεις θεμάτων πανελληνίων εξετάσεων Δομημένου Προγραμματισμού 2013

Παραθέτω τις προτεινόμενες λύσεις των φετινών θεμάτων για το μάθημα του Δομέηνου Προγραμματισμού.

ΠΡΟΣΟΧΗ - ΠΡΟΣΟΧΗ - ΠΡΟΣΟΧΗ 

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

Παρακαλώ πολύ αν εντοπίσετε λάθη ενημερώστε στο fkoutsakas παπάκι gmail com

Λοιπόν έχουμε και λέμε...

ΘΕΜΑ Α

Α1.

α. Λάθος

β. Λάθος

γ. Σωστό

δ. Λάθος

ε. Σωστό

Α2

1β, 2ε, 3στ, 4α, 5δ

A3

a. X=10,
y=20

b. x=30,
y=40

Α4.

Γ

Α5

P	Q	P and Q	P or Q
True	True	True	True
True	False	False	True
False	True	False	True
False	False	False	False

ΘΕΜΑ Β

Β1

	k	m
ΑΡΧΙΚΕΣ ΤΙΜΕΣ	32	10
1η επανάληψη	16	26
2η επανάληψη	8	34
3η επανάληψη	4	38

Β2

ΘΕΜΑ 3

Program Thema2013_C;

Var

     arithmos_mathiton : integer;

     diatrofi   : string;

     kostos_diatrofis, kostos_ekdromis_xwris_diatrofi,  

     sinoliko_kostos : integer;

Begin

     write('Dwse ton arithmo ton mathitvn tou sxoleiou');

     readln(arithmos_mathiton);

     write('Oi mathites epithimoun diatrofi? , NAI i OXI');

     readln(diatrofi);

     if arithmos_mathiton <= 100 then

           kostos_ekdromis_xwris_diatrofi := arithmos_mathiton * 80

     else

           kostos_ekdromis_xwris_diatrofi := arithmos_mathiton * 60;

    

     writeln('To kostos tis diamonis einai: ',
kostos_ekdromis_xwris_diatrofi);

    

     if diatrofi = 'NAI' then

           kostos_diatrofis := arithmos_mathiton * 30;

     sinoliko_kostos := kostos_ekdromis_xwris_diatrofi +
kostos_diatrofis;

     writeln('To sinoliko kostos tis ekdromis einai: ',
sinoliko_kostos);

End.

ΘΕΜΑ Δ



Program Askisi_D_2013;



Var

a : integer;

onoma_epivati : string;

timi_eisitiriou : real;

sinolikes_eisprakseis : real;

mikroteri_timi : real;

epivatis_fthinotero_eisitirio : string;



Begin

timi_eisitiriou := 0;

sinolikes_eisprakseis := 0;

mikroteri_timi := 200;

epivatis_fthinotero_eisitirio := ' ';

onoma_epivati := ' ';



for a := 1 to 100 do 

begin

write('Dose to onoma tou epivati');

readln(onoma_epivati);



repeat

write('Dose tin timi tou eisitiriou, (apo 20 ews 200 euro) ');

readln(timi_eisitiriou);

until (timi_eisitiriou >= 20) and (timi_eisitiriou <= 200);



sinolikes_eisprakseis := sinolikes_eisprakseis + timi_eisitiriou;



if timi_eisitiriou < mikroteri_timi then

begin

mikroteri_timi := timi_eisitiriou;

epivatis_fthinotero_eisitirio := onoma_epivati;

end;

end;



if sinolikes_eisprakseis > 5000 then

writeln('KERDOS')

else

if sinolikes_eisprakseis < 5000 then

writeln('ZHMIA')

else

writeln('MHDENIKO APOTELESMA');



writeln('Epivatis me fthinotero eisitirio ', epivatis_fthinotero_eisitirio);

End.



Ουφ το κεφάλι μου έχει γίνει καμπερνέ...