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

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

  Ιουνίου 04, 2013    Philippos Koutsakas

---

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

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

Οι λύσεις που προτείνω δεν είναι οι μοναδικές και ενδέχεται να περιέχουν λάθη (ειδικά κάτω από τις συνθήκες που τις ετοίμασα: στο καφέ της γειτονίας μου, που ευτυχώς έχει γουί-φι, φορώντας τα  προ-προ-περσινά γυαλιά σταβομάρας μου - τα κανονικά μου έσπασαν χθες, στην 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.

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