Αποστολέας Θέμα: Πανελλαδικές 2011 - Λύσεις  (Αναγνώστηκε 2000 φορές)

Edu1

  • Νέος
  • *
  • Μηνύματα: 5
Πανελλαδικές 2011 - Λύσεις
« στις: 30 Μάι 2011, 12:47:16 μμ »
Θέμα Α.
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

  • Νέος
  • *
  • Μηνύματα: 5
Πανελλαδικές 2011 - Λύσεις
« Απάντηση #1 στις: 30 Μάι 2011, 12:50:07 μμ »
Θέμα Γ.

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

  • Νέος
  • *
  • Μηνύματα: 5
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #2 στις: 30 Μάι 2011, 12:51:27 μμ »
Θεμα Δ.

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.

Ιωάννης Γκίνης

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 130
  • I share because I care
    • Προσωπική ιστοσελίδα
Το ΘΕΜΑ Δ κι από μένα
« Απάντηση #3 στις: 02 Ιούν 2011, 10:19:40 μμ »

Ma8hths

  • Θαμώνας
  • ***
  • Μηνύματα: 34
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #4 στις: 02 Ιούν 2011, 11:28:15 μμ »
Στο θέμα Γ1 που λέει:  "Να διαβάζει το πλήθος N των σχολείων της πόλης." ως όνομα στην μεταβλητή δεν έβαλα "Ν" αλλα "sxo",είναι λάθος; η άσκηση ζήταει να έχει το όνομα "Ν";

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

petrosp13

  • Ομάδα Νέου Λυκείου
  • *
  • Μηνύματα: 2167
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #5 στις: 03 Ιούν 2011, 12:23:13 πμ »
Μην αγχώνεσαι για τέτοια θέματα
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

xristosomadab

  • Νέος
  • *
  • Μηνύματα: 1
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #6 στις: 04 Ιούν 2011, 12:46:35 μμ »
Στο θεμα Γ ξεχασα να δηλωσω τον μετρητη(i) ποσο λετε να μ κοψουν?
Στο θεμα Δ μαλλον εχω βαλει τη μετααβλητη ποσο Integer στην περιπτωση που το εκανα αυτο ποσο θα χασω και απο εκει?
ευχαριστω!

petrosp13

  • Ομάδα Νέου Λυκείου
  • *
  • Μηνύματα: 2167
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #7 στις: 04 Ιούν 2011, 05:06:50 μμ »
Και για τα 2 μαζί, το πολύ 1 μονάδα στις 100
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

vaggos_7

  • Νέος
  • *
  • Μηνύματα: 3
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #8 στις: 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  ετσι  και στο τελευταιο θεμα δν εκανα αυτο με το δεκαδικο..εμφανισα απλα τον μεσο ορο... ποσο θα μου κοψουν ? ευχαριστω

petrosp13

  • Ομάδα Νέου Λυκείου
  • *
  • Μηνύματα: 2167
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #9 στις: 06 Ιούν 2011, 05:14:11 μμ »
2-4/100
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

gedeon

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 101
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #10 στις: 13 Ιούν 2011, 12:44:59 πμ »
την βοηθεια σας..τα λαθη που εκανα ηταν
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

  • Νέος
  • *
  • Μηνύματα: 3
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #11 στις: 13 Ιούν 2011, 11:00:57 μμ »
Η τυχόν απώλεια ερωτηματικού στον κώδικα πόσο περίπου κοστολογείται?   ???

petrosp13

  • Ομάδα Νέου Λυκείου
  • *
  • Μηνύματα: 2167
Απ: Πανελλαδικές 2011 - Λύσεις
« Απάντηση #12 στις: 14 Ιούν 2011, 12:24:49 πμ »
Μπορεί και καθόλου, μην αγχώνεσαι
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής