Βοήθεια με την pascal

[Memas]

Ρε παιδιά δεν ξέρω τι φτάνει... Τα Λίνουξ, ο compiler... πάντως πάντα σε όλες τις υποβολές μου μου παρουσιάζεται μήνυμά λάθος απάντησης. Το πρόβλημα το έχω λύσει και δουλεύει τέλεια σε free pascal που το δοκίμασα. Και το πιο ωραίο είναι ότι δεν μου εμφανίζεται καν η" λάθος" απάντηση και η αναμενόμενη... Τι γίνεται; Σάς συμβαίνει κάτι παρόμοιο;

[mariosal]

Ἐκτός τῆς ἀπαντήσεως ἀνάγκη προστιθέναι τὸν χαρακτήρα νέας γραμμῆς.

[kernelpanic]

Re paidia den kserw ti ftaei...Ta linux ,o compiler...]

Βασικότατος κανών σε κάθε διαγωνισμό προγραμματισμού(ισχύει για όλους, πάντα):
Το σύστημα ποτέ δεν είναι λάθος. Εσύ είσαι λάθος.

Θα μπορούσα εδώ να κάνω εκτενέστερη ανάπτυξη και εξήγηση αυτού του κανόνα, αλλά μάλλον δε χρειάζεται

Ο χαρακτήρας νέας γραμμής έχει αριθμό 10 στο δεκαδικό σύστημα, A στο δεκαεξαδικό.

[mariosal]

[pastebin]http://pastebin.com/VD7JVucp[/pastebin]

[thetrojan01]

Memas, κατ' αρχάς καλωσόρισες στο forum. Θα σε παρακαλούσα να μη γράφεις σε greeklish, αλλά σε Ελληνικά (μονοτονικό, πολυτονικό, ό,τι θες).

Δες αν όντως η έξοδος του προγράμματός σου είναι ΑΚΡΙΒΩΣ έτσι όπως ζητάει το πρόβλημα, και ΜΗΝ διανοηθείς να στείλεις τη λύση σου στο φόρουμ

[chris]

1) Το linux κάνει διάκριση μεταξύ κεφαλαίων και πεζών, το windows όχι. Άρα αν εσύ διαβάζεις από το File.in και το αρχείο λέγεται file.in, σε windows θα δουλεύει ενώ σε linux όχι.
2) Endline ('\n')?

[mariosal]

Λύων τοῦ προβλήματος τὲ ἐν τῇ Pascal, ὅμως λέγον, τὸ σύστημα ὑποβολῶν, τοῦδε:

«Λανθασμένος κῶδιξ ἐξόδου, ΜΒ´.»

[chris]

Λύων τοῦ προβλήματος τὲ ἐν τῇ Pascal, ὅμως λέγον, τὸ σύστημα ὑποβολῶν, τοῦδε:

«Λανθασμένος κῶδιξ ἐξόδου, ΜΒ´.»

ΜΗΝ ΓΡΑΦΕΙΣ ΑΡΧΑΙΑΑΑΑ!
Για τιμωρία θα σε δυσκολέψω:
Το πρόγραμμά σου πρέπει να επιστρέφει 0.

Θα σε παρακαλούσα να μη γράφεις σε greeklish, αλλά σε Ελληνικά (μονοτονικό, πολυτονικό, ό,τι θες).

Έλεος . Νεοελληνικά, τουλάχιστον;

Alliws Tha Arxisw Na Grafw KapOs EtsI
H AKOMA KALITERA ETSI, GIA NA AKOYGOMAI PIO KALA. KALIMERA PAIDIA TI KANETE KALA EISTE, KALI XRONIA XRONIA POLLA.

[kernelpanic]

κῶδιξ ἐξόδου, ΜΒ´

Συγχαρητήρια. Αυτό που πήρε 7.5 εκατομμύρια χρόνια σε μια ράτσα πολυδιαστάτων ποντικιών να το βρούν το βρίσκεις αμέσως, και μάλιστα κατά λάθος

ΥΓ: Άκουσα Pascal ή με γελούν τ'αυτιά μου;
(Όποιος κατάλαβε, κατάλαβε, το ράβει και κάνει κουράγιο, το camp πέφτει νωρίς φέτος)

[mariosal]

Λύων τοῦ προβλήματος τὲ ἐν τῇ Pascal, ὅμως λέγον, τὸ σύστημα ὑποβολῶν, τοῦδε:

«Λανθασμένος κῶδιξ ἐξόδου, ΜΒ´.»

ΜΗΝ ΓΡΑΦΕΙΣ ΑΡΧΑΙΑΑΑΑ!
Για τιμωρία θα σε δυσκολέψω:
Το πρόγραμμά σου πρέπει να επιστρέφει 0.

Έχεις καμιά καλή ιδέα για το πώς θα επιστρέψω μηδέν στην Pascal;

κῶδιξ ἐξόδου, ΜΒ´

Συγχαρητήρια. Αυτό που πήρε 7.5 εκατομμύρια χρόνια σε μια ράτσα πολυδιαστάτων ποντικιών να το βρούν το βρίσκεις αμέσως, και μάλιστα κατά λάθος

Προφανώς το ΜΒ´ σημαίνει 42

[thetrojan01]

halt(0) για να επιστρέφεις 0, και ΜΗ ΓΡΑΦΕΙΣ ΑΡΧΑΙΑ

Καλή χρονιά.

[*]Έλεγχος τιμών δεν απαιτείται. Οι τιμές των αρχείων ελέγχου είναι πάντα έγκυρες.
[*] Το σύστημα αξιολόγησης “τρέχει" σε Linux. Σας προτείνουμε να δοκιμάζετε τις λύσεις σας στο σύστημα. Έχετε δικαίωμα πολλαπλών υποβολών μέχρι το τέλος του διαγωνισμού. Μετά από κάθε υποβολή θα λαμβάνετε την αξιολόγηση της λύσης σας, σε τμήμα των Αρχείων Ελέγχου.
[*]Οι επιλογές του μεταγλωττιστή που χρησιμοποιούνται για τη βαθμολόγηση είναι οι εξής:
Pascal: gpc -O2 -DCONTEST -s
[*]Το Linux ξεχωρίζει μεταξύ κεφαλαίων και πεζών γραμμάτων. Ελέγξτε ότι τα ονόματα των αρχείων εισόδου και εξόδου είναι γραμμένα με μικρά (πεζά) γράμματα.
[*]Τα προγράμματά σας πρέπει να επιστρέφουν ως κωδικό εξόδου το μηδέν: Οι προγραμματιστές σε Pascal πρέπει να χρησιμοποιούν την εντολή "halt" μόνο με κωδικό εξόδου το μηδέν (μόνο δηλαδή με την μορφή "halt;" Ή "halt(0);".
[*]Το πρόγραμμα αξιολόγησης θα εξετάσει την τιμή που επιστρέφει το πρόγραμμά σας. Εάν η τιμή αυτή δεν είναι μηδέν, τότε το πρόγραμμα δεν θα βαθμολογηθεί για το συγκεκριμένο test.
[*]Κανένας άλλος χαρακτήρας εκτός του χαρακτήρα νέας γραμμής (newline) (χαρακτήρας 0A στο ASCII εκφρασμένο στο δεκαεξαδικό σύστημα αρίθμησης) (\n για προγραμματιστές C ή C++, $0A για προγραμματιστές Pascal) δεν θα υπάρχει μετά τον τελευταίο αριθμό κάθε γραμμής των αρχείων εισόδου και εξόδου.
Δηλαδή, κάθε γραμμή των αρχείων εισόδου και εξόδου, συμπεριλαμβανομένης και της τελευταίας, τερματίζεται με τον χαρακτήρα νέας γραμμής όπως ορίστηκε παραπάνω.

Κάθε απόπειρα κακόβουλης εισόδου ή ακόμα και εξερεύνησης του συστήματος, εκτός της παρεχόμενης διεπαφής, θα εντοπίζεται και θα επιβάλλονται κυρώσεις.

[feedWARd]

Ο compiler που χρησιμοποιούμε στον grader είναι ο gpc (gnu pascal) και οχι ο freepascal. Δεν θυμάμαι πως και γιατί έγινε αυτό , αλλά δεν γίνεται να αλλάξει στην μέση της α' φάσης. Ελπίζω να θυμηθώ να το αλλάξω πριν ξεκινήσει η β' φάση.

Πάντως η σημαντικότερη διαφορά απ'ότι θυμάμαι είναι ότι τα strings έχουν 1-based indexing στην fpc και 0-based indexing στην gpc. Αυτό σημαίνει ότι αν είχες:

Κώδικας: Επιλογή όλων

for i := 1 to length(s)

πριν κάνεις υποβολή θα πρέπει να το αλλάξεις σε:

Κώδικας: Επιλογή όλων

for i := 0 to length(s)-1

Δεν είμαι 100% σίγουρος γι'αυτο, κοίταξε το κι εσύ. Βασικά δεν θυμάμαι καθόλου pascal. Θα σου πρότεινα να κατεβάσεις στο pc σου το gpc και να δεις τι δεν δουλεύει καλά.

[Memas]

Σας ευχαριστώ όλους.Το πρόβλημα όμως δεν είναι στα πεζά.Στην αρχή χρησειμοποιούσα μια while eof(fin)=False do για να διαβάζω τους αριθμούς ώς κείμενο και μετά να τους μετατρέπω σε αριθμούς με μία συνάρτηση.Βέβαια αυτό το εγκατέλειψα καθώς ο compiler μου εμφάνιζε μήνυμα υπέρβασης χρονικού ορίου...δεν ξέρω πώς έγινε αυτό αλλά τέλος πάντων.Τώρα χρησειμοποιώ μία For i:=1 to N Do read(fin,pin);,αλλά και πάλι τίποτα.Δεν έχω λάβει υπόψη μου τον χαρακτήρα eoln αλλά και πάλι πιστεύω πως το πρόγραμμα θα μου έβγαζε,έστω,λάθος απάντηση. Πράγμα που δεν γίνεται αφού όπως σας είπα δεν μου εμφανίζεται η "λάθος" απάντηση όταν κάνω την υποβολή μου.

[Memas]

Σας χίλιο ΕΤΧΑΡΙΣΤΩ παιδιά.Άλλαξα μόνο το write (fout,x); με writeln. Σας ευχαριστώ πάλι.Δόξα το θεό που υπάρχει αυτό το forum....χαχαχαχ.

[G7Rider]

Παρ'οτι έχω κάνει ακριβώς ότι και εσύ εγω εξακολουθώ να έχω πρόβλημα...

[Memas]

Μήπως ξέρει κανείς αν υπάρχουν integers με μέγεθος 20 bits?

[kernelpanic]

Δε μπορείς να φτιάξεις έναν μόνος σου;

[Memas]

Μάλλον θα εννοείς με τα Types...για να δώ..Ευχαριστώ ρε