Απαντήσεις - Λύσεις θεμάτων πανελληνίων εξετάσεων Δομημένου Προγραμματισμού 2013
Παραθέτω τις προτεινόμενες λύσεις των φετινών θεμάτων για το μάθημα του Δομέηνου Προγραμματισμού.
Παρακαλώ πολύ αν εντοπίσετε λάθη ενημερώστε στο fkoutsakas παπάκι gmail com
ΘΕΜΑ Δ
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.
Ουφ το κεφάλι μου έχει γίνει καμπερνέ...
ΠΡΟΣΟΧΗ - ΠΡΟΣΟΧΗ - ΠΡΟΣΟΧΗ
Οι λύσεις που προτείνω δεν είναι οι μοναδικές και ενδέχεται να περιέχουν λάθη (ειδικά κάτω από τις συνθήκες που τις ετοίμασα: στο καφέ της γειτονίας μου, που ευτυχώς έχει γουί-φι, φορώντας τα προ-προ-περσινά γυαλιά σταβομάρας μου - τα κανονικά μου έσπασαν χθες, στην 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.
Ουφ το κεφάλι μου έχει γίνει καμπερνέ...
