Απαντήσεις - Λύσεις θεμάτων πανελληνίων εξετάσεων Δομημένου Προγραμματισμού 2013
Παρακαλώ πολύ αν εντοπίσετε λάθη ενημερώστε στο fkoutsakas παπάκι gmail com
δ. Λάθος
P
|
Q
|
P and Q
|
P or Q
|
True
|
True
|
True
|
True
|
True
|
False
|
False
|
True
|
False
|
True
|
False
|
True
|
False
|
False
|
False
|
False
|
k
|
m
|
|
ΑΡΧΙΚΕΣ ΤΙΜΕΣ
|
32
|
10
|
1η επανάληψη
|
16
|
26
|
2η επανάληψη
|
8
|
34
|
3η επανάληψη
|
4
|
38
|
ΘΕΜΑ Δ
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.
Ουφ το κεφάλι μου έχει γίνει καμπερνέ...