Γεια σας! Έδωσα σήμερα Πανελλήνιες προφρικά! Βασικά τα έγραψα και τους τα έδειξα.... Τους είπα ότι δεν θυμάμαι πως γράφουμε τον ψευδοκώδικα γι αυτό και τα έγραψα και σε ψευδοκώδικα και σε πασκάλ...και μου είπαν πως βαθμολογούν και την πασκαλ.... στον ψευδοκώδικα έχω απο οτι βλέπω κάποια λάθη κοιτάξτε εδώ (ΑΥΤΑ ΠΟΥ ΕΧΩ ΜΕ ΚΟΚΚΙΝΟ ΕΙΝΑΙ ΤΑ ΛΑΘΗ ΠΟΥ ΠΙΣΤΕΥΩ ΕΧΩ ΚΑΝΕΙ):
ΨΕΥΔΟΚΩΔΙΚΑΣ:
Θέμα 2ο
Α.
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ2Α
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΟΙ: SUM,MO,A,B
ΑΡΧΗ
SUM<-0
MO<-0
Διάβασε Α,Β
SUM<-Α+Β
ΜΟ<-SUM/2
Αν ΜΟ>=10 τότε
Εμφάνισε ('απορρίπτεται΄, ΜΟ)
Αλλιώς
Εμφάνισε ('προβιβάζεται΄, ΜΟ)
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
Θέμα 3ο
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ3ο
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΟΙ:ΧΡΕΩΣΗ,ΜΧ
ΑΚΕΡΑΙΟΙ:ΡΜ
ΑΡΧΗ
ΔΙΑΒΑΣΕ (ΡΜ)
Αν ΑΡΜ<=50 τότε
ΧΡΕΩΣΗ:= ΑΡΜ*0.10
Αλλιώς
Αν ΑΡΜ<=150 τότε
ΧΡΕΩΣΗ:=50*0.10 + (150-ΑΡΜ)*0.08
Αλλιώς
ΧΡΕΩΣΗ:=50*0.10 + 100*0.08 + (ΑΡΜ-150)*0.05
ΜΧ:=ΧΡΕΩΣΗ+4.5
Εκτύπωσε ('ΧΡΕΩΣΗ', τχ)
ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
_________________________________________________________________
PASCAL
ΘΕΜΑ 2
program thema_2;
var mo,a,b: real;
Begin
sum:=0;
mo:=0;
readln (a,b);
sum:=a+b;
mo:=sum/2;
if mo>=10 then
writeln ('probibazetai',mo)
else
writeln ('aporiptetai');
end.
ΘΕΜΑ 3
program thema_3;
var
Begin
readln (arm);
if arm<=50 then
xrewsi:= arm*0,10
else
if arm<=150 then
xrewsi:= 50*0,10 + (150-arm)*0,08
else
xrewsi:=50*0,10 + 100*0,08 + (arm-150)*0,05;
mx:=xrewsi + 4,5;
writeln ('Xrewsi', mx);
end.
ΕΧΩ ΚΑΝΕΙ ΛΑΘΗ Ε? ΑΝ ΝΑΙ ΠΟΣΟ ΘΑ ΜΟΥ ΚΟΨΟΥΝ?
ΕΠΙΣΗΣ ΣΤΟ 1.Γ ΒΡΗΚΑ Τ 3 ΑΠΟ ΤΑ 5 (ΠΟΣΕΣ ΜΟΝΑΔΕΣ ΘΑ ΠΑΡΩ ΑΠΟ ΤΙΣ 15 ΠΟΥ ΕΙΝΑΙ ΟΛΟ)?
ΣΤΟ ΘΕΜΑ 2.Β ΤΙΣ 6 ΜΟΝΑΔΕΣ ΤΙΣ ΕΧΑΣΑ ΓΙΑΤΙ ΜΕ ΡΩΤΗΣΑΝ ΠΟΣΟ ΕΙΝΑΙ ΤΟ Α ΚΑΙ ΠΟΣΟ ΕΙΑΙ ΤΟ Β ΑΛΛ ΕΓΩ ΔΕΝ ΒΛΕΠΩ ΝΑ ΔΙΝΕΙ ΚΑΠΟΥ ΤΙΣ ΤΙΜΕΣ...ΔΗΛΑΔΗ ΤΟ Α ΔΕΝ ΕΙΝΑΙ ΤΟ 6.8 ΚΑΙ ΤΟ Β.14,16... ΑΥΤΑ ΤΑ ΔΥΟ ΣΗΜΑΙΝΟΥΝ ΟΤΙ Ο ΑΛΓΟΡΙΘΜΟΣ ΘΑ ΕΚΤΕΛΕΣΤΕΙ 2 ΦΟΡΕΣ.. 1 ΦΟΡΑ ΜΕ ΤΟ 6,8 ΚΑΙ ΜΙΑ ΜΕ ΤΟ 14,16 ΟΠΟΙΟΣ ΜΠΟΡΕΙ ΝΑ ΜΟΥ ΤΟ ΕΞΗΓΗΣΕΙ ΑΣ ΜΟΥ ΠΕΙ...ΑΥΤΑ!!! ΟΛΑ ΤΑ ΑΛΛΑ ΤΑ ΕΧΩ ΣΩΣΤΑ!
ΜΠΟΡΕΙ ΚΑΝΕΙΣ ΝΑ ΜΟΥ ΥΠΟΛΟΓΙΣΕΙ ΤΟ ΒΑΘΜΟ? ΟΛΑ ΟΜςΣ ΚΑΙ ΜΕ Τ ΑΛΛΑ ΘΕΜΑΤΑ ΠΟΥ ΕΧΩ ΣΩΣΤΑ.. ΑΛΛΑ ΝΑ ΜΟΥ Τ ΒΑΘΜΟΛΟΓΗΣΕΙ ΜΙΑ ΜΕ ΤΟΝ ΨΕΥΔΟΚΩΔΙΚΑ ΚΑΙ ΜΙΑ ΜΕ ΤΗΝ ΠΑΣΚΑΛ ΓΙΑ Ν ΕΧΩ ΔΥΟ ΑΠΟΨΕΙΣ! ΣΑΣ ΕΥΧΑΡΙΣΤΩ ΠΟΛΥ.. ΚΑΛΗ ΕΠΙΤΥΧΙΑ ΣΕ ΟΛΟΥΣ!