Απαντήσεις - Λύσεις θεμάτων πανελληνίων εξετάσεων Δομημένου Προγραμματισμού 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.

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

Δεν υπάρχουν σχόλια :