Θέμα Α.
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) ;
Θέμα Γ.
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.
Θεμα Δ.
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.
http://jginis.mysch.gr/?pg=sp#pascal29
Στο θέμα Γ1 που λέει: "Να διαβάζει το πλήθος N των σχολείων της πόλης." ως όνομα στην μεταβλητή δεν έβαλα "Ν" αλλα "sxo",είναι λάθος; η άσκηση ζήταει να έχει το όνομα "Ν";
Ευχαριστώ :police:
Μην αγχώνεσαι για τέτοια θέματα
Στο θεμα Γ ξεχασα να δηλωσω τον μετρητη(i) ποσο λετε να μ κοψουν?
Στο θεμα Δ μαλλον εχω βαλει τη μετααβλητη ποσο Integer στην περιπτωση που το εκανα αυτο ποσο θα χασω και απο εκει?
ευχαριστω!
Και για τα 2 μαζί, το πολύ 1 μονάδα στις 100
την βοηθεια σας..τα λαθη που εκανα ηταν
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 ετσι και στο τελευταιο θεμα δν εκανα αυτο με το δεκαδικο..εμφανισα απλα τον μεσο ορο... ποσο θα μου κοψουν ? ευχαριστω
2-4/100
Παράθεση από: 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 μονάδα.
Αυτά προέρχονται απο τις ενδεικτικές βαθμολογήσεις που έστειλε το ΥΠΕΠΘ στα βαθμολογικά κέντρα των ΕΠΑΛ.
Η τυχόν απώλεια ερωτηματικού στον κώδικα πόσο περίπου κοστολογείται? ???
Μπορεί και καθόλου, μην αγχώνεσαι