Pascal Error

Συζητήσεις σχετικές με την Delphi και την πρόγονη της Pascal

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Dalton
Δημοσιεύσεις: 58
Εγγραφή: 08 Μάιος 2012 11:14
Τοποθεσία: Αθήνα
Επικοινωνία:

Pascal Error

Δημοσίευση από Dalton » 25 Σεπ 2014 22:38

Να γραφεί σε γλώσσα Pascal πρόγραμμα που να διαβάζει το επώνυμο και το βαθμό κάθε μαθητή, να ταξινομεί τους μαθητές κατά φθίνουσα σειρά βαθμολογίας και να τυπώνει τα επώνυμά τους κατά την ταξινόμηση που προέκυψε (οι βαθμολογίες είναι διαφορετικές).

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

Program askisi_13;
        Var
           i,j:integer;
           vathmoi:array[1..10] of integer;
           mathites: array[1..10] of String;
        Begin
             for i:=1 to 10 do
                 Begin
                      Writeln('Dwse to eponymo tou mathiti!');
                      Readln(mathites[i]);
                      Writeln('Dwse to vathmo tou mathiti!');
                      Readln(vathmoi[i]);
                 End;
              for i:=1 to 10 do
                  for j:=10 downto i+1 do
                      Begin
                           if &#40;vathmoi&#91;j&#93;<vathmoi&#91;j-1&#93;&#41; then
                              Begin
                                   exchange vathmoi&#91;j&#93;,vathmoi&#91;j-1&#93;;
                                   exchange mathites&#91;j&#93;,mathites&#91;j-1&#93;;
                              End;
              for i&#58;=1 to 10 do
                  Begin
                       writeln&#40;mathites&#91;i&#93;&#41;;
                  End;
        End.

Μου βγάζει ένα runtime error, δεν προλαβαίνω να διαβάσω τη συνέχεια γιατί κλείνει αμέσως και έχω δοκιμάσει και read;/read(); readln;/readln();
Κλείνει αμέσως μόλις πληκτρολογώ και δίνω enter ένα επώνυμο λες και δεν παίρνει το string.
Επίσης αυτό το exchange πρώτη φορά το χρησιμοποιώ.

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Pascal Error

Δημοσίευση από dva_dev » 26 Σεπ 2014 00:43

Ανοιξε ένα dos παράθυρο, ώστε να μην σου κλείνει και τρέξε το από εκεί.
Χρησιμοποιείς κάποιο περιβάλλον για να γράψεις τον κώδικα και να κάνεις build?

Άβαταρ μέλους
Dalton
Δημοσιεύσεις: 58
Εγγραφή: 08 Μάιος 2012 11:14
Τοποθεσία: Αθήνα
Επικοινωνία:

Pascal Error

Δημοσίευση από Dalton » 26 Σεπ 2014 09:07

Dev-Pascal

Απάντηση

Επιστροφή στο “Delphi, Pascal”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες