Το Στέκι των Πληροφορικών

Επαγγελματικό Λύκειο => Γενικά => Προγραμματισμός Υπολογιστών => Μήνυμα ξεκίνησε από: Edu1 στις 30 Μάι 2011, 12:47:16 μμ

Τίτλος: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: Edu1 στις 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) ;
Τίτλος: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: Edu1 στις 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.
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: Edu1 στις 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.
Τίτλος: Το ΘΕΜΑ Δ κι από μένα
Αποστολή από: Ιωάννης Γκίνης στις 02 Ιούν 2011, 10:19:40 μμ
http://jginis.mysch.gr/?pg=sp#pascal29
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: Ma8hths στις 02 Ιούν 2011, 11:28:15 μμ
Στο θέμα Γ1 που λέει:  "Να διαβάζει το πλήθος N των σχολείων της πόλης." ως όνομα στην μεταβλητή δεν έβαλα "Ν" αλλα "sxo",είναι λάθος; η άσκηση ζήταει να έχει το όνομα "Ν";

Ευχαριστώ  :police:
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: petrosp13 στις 03 Ιούν 2011, 12:23:13 πμ
Μην αγχώνεσαι για τέτοια θέματα
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: xristosomadab στις 04 Ιούν 2011, 12:46:35 μμ
Στο θεμα Γ ξεχασα να δηλωσω τον μετρητη(i) ποσο λετε να μ κοψουν?
Στο θεμα Δ μαλλον εχω βαλει τη μετααβλητη ποσο Integer στην περιπτωση που το εκανα αυτο ποσο θα χασω και απο εκει?
ευχαριστω!
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: petrosp13 στις 04 Ιούν 2011, 05:06:50 μμ
Και για τα 2 μαζί, το πολύ 1 μονάδα στις 100
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: 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  ετσι  και στο τελευταιο θεμα δν εκανα αυτο με το δεκαδικο..εμφανισα απλα τον μεσο ορο... ποσο θα μου κοψουν ? ευχαριστω
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: petrosp13 στις 06 Ιούν 2011, 05:14:11 μμ
2-4/100
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: gedeon στις 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 μονάδα.
Αυτά προέρχονται απο τις ενδεικτικές βαθμολογήσεις που έστειλε το ΥΠΕΠΘ στα βαθμολογικά κέντρα των ΕΠΑΛ.
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: port67 στις 13 Ιούν 2011, 11:00:57 μμ
Η τυχόν απώλεια ερωτηματικού στον κώδικα πόσο περίπου κοστολογείται?   ???
Τίτλος: Απ: Πανελλαδικές 2011 - Λύσεις
Αποστολή από: petrosp13 στις 14 Ιούν 2011, 12:24:49 πμ
Μπορεί και καθόλου, μην αγχώνεσαι