Απορίες και προβλήματα στην Pascal

[Morelo]

Γραφω το 1ο μου προγραμμα στην pascal (aσκηση για αυριο στο παν/μιο) και δεν βρισκω πως μπορω να υψωσω εναν αριθμο σε δυναμη!! εγραψα a^2 και ο compiler μου βγαζει λαθος! το προγραμμα ειναι σωστο μονο αυτο εχω λαθος
Μηπως γνωριζει κανεις?

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[fockos]

Γιατί δεν το γράφεις έτσι: a*a;

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

οκ το γραφω ετσι και θα ψαξω λιγο στο γοογλε μηπως βρω πως υψωνω σε δυναμη ή μηπως απαντησει καποιος αλλος που γνωριζει!
thanx focko!

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Γιώργος]

οκ το γραφω ετσι και θα ψαξω λιγο στο γοογλε μηπως βρω πως υψωνω σε δυναμη ή μηπως απαντησει καποιος αλλος που γνωριζει!
thanx focko!

a**2 αν δεν απατώμαι.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

a**2 αν δεν απατώμαι.

απατασαι δυστυχως.. βγαζει λαθος!

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Boom]

Moυ φαίνονται κινέζικα.
Ίδια απορία.

Τελικά είναι το power(x,y)

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

Τελικα ειναι η συναρτηση sqr(2) αλλα οι περισσοτεροι το ειχαμε βαλει α*α και το δεχτηκε ως σωστο!

theodora το ειχα διαβασει αυτο αλλα δεν μπορεσα να καταλαβω ακριβως τι συναρτηση ειχε χρησιμοποιησει,μαλλον υποπρογραμμα ειχε φτιαξει!

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

Να δημιουργήσετε κώδικα σε PASCAL που θα υπολογίζει το άθροισμα και το γινόμενο όλων των ακεραίων αριθμών που βρίσκονται μεταξύ των δύο αριθμών που θα έχει εισάγει ο χρήστης. Δηλαδή, όταν το πρόγραμμα θα τρέχει, θα πρέπει να ζητάει από τον χρήστη να του δώσει δύο ακέραιους αριθμούς. Έστω ότι δίνουμε τους αριθμούς 2 και 7. Τότε ο υπολογιστής θα πρέπει να υπολογίσει το άθροισμα 2+3+4+5+6+7 και το γινόμενο 2*3*4*5*6*7 και να τυπώσει τα δύο εξαγόμενα στην οθόνη.

Tην εχω φτιαξει σωστα ολη,την τρεχω, δινω 2 αριθμους ως εισοδο κανει την προσθεση βγαζει σωστα το αποτελεσμα αλλα στον πολλαπλασιασμο δεν κανει την πραξη οπως περιγραφεται στην εκφωνηση της ασκησης...
δηλαδη αν δωσω ως αριθμους το 1 και το 4 θα μου βγαλει αποτελεσμα 4,αντι να βγαλει 1x2x3x4 δηλαδη 24..
τι πρεπει να τροποποιησω σε αυτην την εντολη ωστε να εμφανιζει σωστα το αποτελεσμα?
Μηπως γνωριζει κανεις? οπου proliferation=γινομενο

proliferation:=proliferation*I;

το συνολικο προγραμμα

Program acts;
uses crt;
var a,b,sum,proliferation,I :integer;
var C: char;
Begin
sum:=0;
proliferation:=1;
Writeln('Δώσε δύο ακέραιους');
read(a,b);
For I:=a TO b DO
sum:=sum+I;
proliferation:=proliferation*I;
writeln('Το άθροισμα των',a,b,'είναι',sum);
writeln('Το γινόμενο των' a,b,'είναι',proliferation);
C := readkey;
END.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Γιώργος]

Δημήτρη, θα βοηθούσε πολύ εάν έβαζες τον κώδικά σου σε [code] tags

ή [php] tags

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

Τι εννοώ στοίχιση; Εννοώ πολύ απλά να βάζεις "προς τα μέσα" εντολές που είναι τμήματα ενός υπο-block. Πχ:

instruction_1;
for i:=a to b do
      sum:=sum+i;
instruction_2;

Ή, άμα βάζεις begin-end:

instruction_1;
for i:=a to b do
begin
      instruction_2;
      instruction_3;
      instruction_4
end;
instruction_5;

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

Eυχαριστω για την υποδειξη,θα το εχω υποψιν!!
Τελικα βρηκα τι εφταιγε! προσθεσα ενα +1 στον πολλαπλασιασμο και το αποτελεσμα ειδα οτι εβγαινε σωστο.. οποτε το αφηνω ετσι

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[JosefK]

Eυχαριστω για την υποδειξη,θα το εχω υποψιν!!
Τελικα βρηκα τι εφταιγε! προσθεσα ενα +1 στον πολλαπλασιασμο και το αποτελεσμα ειδα οτι εβγαινε σωστο.. οποτε το αφηνω ετσι

???

Είσαι σίγουρος ότι έτρεξε σωστά;

Η υπόδειξη του Γιώργου δεν ήταν τυχαία. Αν δοκιμάσεις να γράψεις τον κώδικα με τον τρόπο που σου λέει, θα δεις ποιο είναι το λάθος.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

Στην πασκαλ το ετρεξα αλλα εδωσα 2 διαδοχικους αριθμους γιαυτο εβγαλε το επιθυμητο αποτελεσμα... οποτε λαθος ειναι

να γραψω τον κωδικα που? εδω στο φορουμ χρησιμοποιωντας τα codes? βγαζει σφαλμα αν υπαρχει καποιο λαθος??

Αλλα και παλι στο προγραμμα δεν υπαρχει λαθος προγραμματιστικο!!O compiler στην pascal δεν εμφανιζει κατι τετοιο,και μπορω να το τρεχω κανονικα!
Απλα πρεπει να τροποποιησω την εντολη του πολ/μου ωστε να κανει ακριβως αυτο που λει η εκφωνηση της ασκησης! δηλαδη αντι για proliferation*I προσπαθω να βρω τι πρεπει να γραψω ωστε να εκτελει σωστα τον πολλαπλασιασμο συμφωνα με την ασκηση,εχω δοκιμασει αρκετα μεχρι στιγμης αλλα τιποτα
Η εντολη της προσθεσης εκτελειται κανονικα και εμφανιζει σωστο αποτελεσμα!

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Γιώργος]

Υπόδειξη: η for πόσες εντολές "πιάνει";


ps: Ποιον compiler χρησιμοποιείς;

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

sum,proliferation

τον compiler που εχει η pascal

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Γιώργος]

Ξαναρωτάω: η for πόσες εντολές "τσιμπάει";

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

την sum την proliferation και τις 2 writeln.. 4 συνολο,σωστα?
που θα μας οδηγησει αυτος ο συλλογισμος?

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[fockos]

Κύριε να πω εγώ να πω εγώ;

(δε βρήκα αγοράκι στο google μη με παρεξηγήσετε)
Για να το βρω είναι εύκολο πάντως.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Γιώργος]

την sum την proliferation και τις 2 writeln.. 4 συνολο,σωστα?
που θα μας οδηγησει αυτος ο συλλογισμος?

Μήπως μόνο την sum, επειδή δεν έβαλες begin-end;

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Morelo]

Μήπως μόνο την sum, επειδή δεν έβαλες begin-end;

Ναι μονο την sum επιανε τελικα... Εβαλα begin-end; αλλα και παλι μονο την sum επιανε,οποτε φτιαξα 1 ξεχωριστη for για το γινομενο και δουλευει ρολοι!!!!
Ευχαριστω για τη βοηθεια!!

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.

 

[Γιώργος]

Ναι μονο την sum επιανε τελικα... Εβαλα begin-end; αλλα και παλι μονο την sum επιανε,οποτε φτιαξα 1 ξεχωριστη for για το γινομενο και δουλευει ρολοι!!!!
Ευχαριστω για τη βοηθεια!!

Μήπως έβαλες begin-end μόνο γύρω από την sum;
Πρέπει να το βάλεις γύρω από τις 4 αυτές εντολές που θέλεις να "τσιμπάει" η for. Δεν είναι αποδοτικό να κάνεις δύο φορές for για κάτι που μπορεί να γίνει σε μία.

Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.