Pascal

[HugeG]

Γεια σας, ήθελα να σας ρωτήσω κάτι σχετικά με την Pascal και συγκεκριμένα για τον Μέσο Όρο.
1) Μπορείτε να μου πείτε ποιο είναι το λάθος

Program Lesson1_Program1;
var a, b, c, : Integer 
Sum : Integer 
Average : Integer 

Begin
Write('A'); 
Readln(a);
Write('B')
ReadIn('b')
Write('C')
Readin(c)
Sum := a + b + c 
Average := Sum / 3;  
ReadIn('Average: ' ,Average,)  
End.

2) Έχω το PAME. Πιστεύω ότι είναι μια βλακεία και μισή. Υπάρχει κανένα άλλο;

[DVader]

Λείπουν ερωτιματικά από παντού ! Τι λάθος σου βγάζει !

[euri]

Επίσης μόνο το πρώτο Readln δείχνει σωστό. Τα υπόλοιπα είναι είτε Readin, είτε ReadIn.

Κανονικά είναι το γράμμα L: ReadLn

Α, και στην προτελευταία γραμμή νομίζω ότι το (λανθασμένα γραμμένο) ReadLn θα έπρεπε να είναι Write.

[MTR]

και την μεταβλητή Average καλό είναι να την ορίσεις σαν Real.

[WAntilles]

και την μεταβλητή Average καλό είναι να την ορίσεις σαν Real.

Καλύτερα single ή double, για να είναι και πιο portable.

[HugeG]

Τι λέτε τώρα;
Program Lesson1_Program1;
var a, b, c, : Integer ;
Sum : Integer ;
Average : real ;

Begin
Write('A');
Readln(a);
Write('B');
Readln(b);
Write('C');
Readln(c);
Sum := a + b + c ;
Average := Sum / 3;
Write('Average: ' ,Average,);
End.

[toubn]

Τώρα δείχνει σωστό. Σου παρουσιάζει κανένα πρόβλημα?
Στο τέλος καλύτερα να γράψεις Write('Average:',Anerage:10:2);

[euri]

Τι λέτε τώρα;

Τώρα λέμε ότι για να κάνεις τον κώδικα πιο ευανάγνωστο εδώ στο ADSLgr.com, να βάλεις τα λεγόμενα code tags (μόνο εδώ, όχι στο πρόγραμμά σου). Πχ κάπως έτσι:

[code]
Program Lesson1_Program1;
var a, b, c, : Integer ;
Sum : Integer ;
Average : real ;

Begin
Write('A');
Readln(a);
Write('B');
Readln(b);
Write('C');
Readln(c);
Sum := a + b + c ;
Average := Sum / 3;
Write('Average: ' ,Average,);
End.
[/code]

έτσι ώστε το τελικό αποτέλεσμα να είναι κάπως έτσι:

Program Lesson1_Program1;
var a, b, c, : Integer ;
Sum : Integer ;
Average : real ;

Begin
Write('A'); 
Readln(a);
Write('B');
Readln(b);
Write('C');
Readln(c);
Sum := a + b + c ;
Average := Sum / 3;
Write('Average: ' ,Average,);  
End.

Ξαναλέω ότι εννοώ μόνο για ό,τι παραθέτεις ως μήνυμα εδώ στο φόρουμ, όχι στον πραγματικό κώδικα στην Pascal.

[alexnir]

Στο τελος κανεις διαιρεση και αποθηκευεις το αποτελεσμα σε integer. Ειναι λαθος.
Δες παραπανω τι σου λενε να κανεις ο MTR και ο WAntilles.
Και επισης κανε αυτο που σου λεει και ο toubn για τo average.

Εσενα σου κανει compile το προγραμμα? Τρεχει?

[Avax_7]

...
2) Έχω το PAME. Πιστεύω ότι είναι μια βλακεία και μισή. Υπάρχει κανένα άλλο;

http://lazarus.freepascal.org/

[HugeG]

Για δες.

[yiapap]

Έχεις κόμμα μετά το c
Λογικά δεν πρέπει να έχεις (αν και δεν έχω ιδέα από Pascal )

[HugeG]

Μπα και πάλι, μήνυμα λάθους.

[yiapap]

Το ίδιο μήνυμα για τη γραμμή 2;

[imitheos]

Program Lesson1_Program1;
var a, b, c, : Integer ;     <--------
Sum : Integer ;
Average : real ;

Begin
Write('A'); 
Readln(a);
Write('B');
Readln(b);
Write('C');
Readln(c);
Sum := a + b + c ;
Average := Sum / 3;
Write('Average: ' ,Average,);  <--------
End.

Μπα και πάλι, μήνυμα λάθους.

Έσβησες και τα δύο που φαίνονται παραπάνω ?