Πανελλαδικές 2011 - Λύσεις

Ξεκίνησε από Edu1, 30 Μαΐου 2011, 12:47:16 ΜΜ

« προηγούμενο - επόμενο »

Edu1

Θέμα Α.
A1.

a)   Λαθος
b)   Σωστο
c)   Λάθος
d)   Σωστο
e)   Λάθος

Α2.

1 – ε
2 – α
3 – β
4 – στ
5 – γ

Α3
Σελ 18 παραγραφος 2

Α4
Σελ 71
Ακεραιες, Πραγματικες, Λογικες, Χαρακτηρες

A5
Σελ 58 – 60 ονομαστικα

Θέμα Β.

Β1.
a)   6
b)   3
c)   3
d)   4
e)   3
f)   18

Β2.
Readln(x);
Case  x  of
1:  y:=x+5;
2:  y:= x*5 +8;
3:  y:= 2*x –x;
4:  y:= (x+x*5) div 7
else
y:= (x  div  3)  + (x mod  3);
end;
writeln(y) ;

Edu1

Θέμα Γ.

Program T3;
Var  i, N, plithos, k : integer;
        OS : string;

Begin

Readln(N);

For i:=1 to N do
Begin

   Readln(OS);
   Readln(plithos);
   
   If plithos <=20 then
   K:= plithos*10
Else if plithos <=40 then
K:=(plithos-5)*10
Else
K:=(plithos-9) *10;

Writeln(OS, K);
end;
 

End.



Program T3;
Var  i, N, plithos, k : integer;
        OS : string;

Begin

Readln(N);

For i:=1 to N do
Begin

   Readln(OS);
   Readln(plithos);
   
   If  (plithos>=1) and (plithos <=20) then
   K:= plithos*10

if (plithos>=21) and  (plithos <=40)  then
K:=(plithos-5)*10

if plithos>=41  then
K:=(plithos-9) *10;

Writeln(OS, K);
end;
 

End.

Edu1

Θεμα Δ.

Program T4;

Var  plithos1, plithos2  : integer;
        Poso,  Sum, MO : real;
        Onoma:  string;

Begin

Plithos1:=0;
Plithos2:= 0;
Sum :=0;

Writeln('Dose onoma');
Readln(onoma);

While  (onoma <> 'ΤΕΛΟΣ') do
Begin

Writeln('Dose to poso etiseon poliseon');
readln(Poso);

if Poso >=50000 then
plithos1:=plithos1+1
else
plithos2:=plithos2+1;

Sum:=Sum +Poso;

Writeln('Dose onoma');
Readln(onoma);

End;

Writeln('Plithos politon >=50000', plithos1);
Writeln('Plithos politon <50000', plithos2);
Writeln('Synolo poliseon', Sum:0:1);

MO:=Sum/(plithos1+plithos2);
Writeln('Mesos oros', MO:0:1);

End.


Ma8hths

Στο θέμα Γ1 που λέει:  "Να διαβάζει το πλήθος N των σχολείων της πόλης." ως όνομα στην μεταβλητή δεν έβαλα "Ν" αλλα "sxo",είναι λάθος; η άσκηση ζήταει να έχει το όνομα "Ν";

Ευχαριστώ  :police:

petrosp13

Μην αγχώνεσαι για τέτοια θέματα
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

xristosomadab

Στο θεμα Γ ξεχασα να δηλωσω τον μετρητη(i) ποσο λετε να μ κοψουν?
Στο θεμα Δ μαλλον εχω βαλει τη μετααβλητη ποσο Integer στην περιπτωση που το εκανα αυτο ποσο θα χασω και απο εκει?
ευχαριστω!

petrosp13

Και για τα 2 μαζί, το πολύ 1 μονάδα στις 100
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

vaggos_7

την βοηθεια σας..τα λαθη που εκανα ηταν
Readln(x);
Case  x  of
1:  y:=x+5;
2:  y:= x*5 +8;
3:  y:= 2*x –x;
4:  y:= (x+x*5) div 7
else: y:= (x  div  3)  + (x mod  3);
end;
writeln(y) ;
εγραψα το else  ετσι  και στο τελευταιο θεμα δν εκανα αυτο με το δεκαδικο..εμφανισα απλα τον μεσο ορο... ποσο θα μου κοψουν ? ευχαριστω

petrosp13

Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

gedeon

Παράθεση από: vaggos_7 στις 06 Ιουν 2011, 03:54:03 ΜΜ
την βοηθεια σας..τα λαθη που εκανα ηταν
Readln(x);
Case  x  of
1:  y:=x+5;
2:  y:= x*5 +8;
3:  y:= 2*x –x;
4:  y:= (x+x*5) div 7
else: y:= (x  div  3)  + (x mod  3);
end;
writeln(y) ;
εγραψα το else  ετσι  και στο τελευταιο θεμα δν εκανα αυτο με το δεκαδικο..εμφανισα απλα τον μεσο ορο... ποσο θα μου κοψουν ? ευχαριστω

Για τη περίπτωση της case (δηλ του : στο else) το πολύ 1 μονάδα,  για τη περίπτωση του δεκαδικού στο Μ.Ο.   1 μονάδα.
Αυτά προέρχονται απο τις ενδεικτικές βαθμολογήσεις που έστειλε το ΥΠΕΠΘ στα βαθμολογικά κέντρα των ΕΠΑΛ.

port67

Η τυχόν απώλεια ερωτηματικού στον κώδικα πόσο περίπου κοστολογείται?   ???

petrosp13

Μπορεί και καθόλου, μην αγχώνεσαι
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής