Morelo
Πολύ δραστήριο μέλος
beginΜήπως έβαλες begin-end μόνο γύρω από την sum;
Πρέπει να το βάλεις γύρω από τις 4 αυτές εντολές που θέλεις να "τσιμπάει" η for. Δεν είναι αποδοτικό να κάνεις δύο φορές for για κάτι που μπορεί να γίνει σε μία.
for....
sum
prof
writeln
writeln
end;
ετσι τα εβαλα αλλα επιανε μονο την sum
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
Ναι μονο την sum επιανε τελικα... Εβαλα begin-end; αλλα και παλι μονο την sum επιανε,οποτε φτιαξα 1 ξεχωριστη for για το γινομενο και δουλευει ρολοι!!!!Μήπως μόνο την sum, επειδή δεν έβαλες begin-end;
Ευχαριστω για τη βοηθεια!!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
που θα μας οδηγησει αυτος ο συλλογισμος?
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
τον compiler που εχει η pascal
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
να γραψω τον κωδικα που? εδω στο φορουμ χρησιμοποιωντας τα codes? βγαζει σφαλμα αν υπαρχει καποιο λαθος??
Αλλα και παλι στο προγραμμα δεν υπαρχει λαθος προγραμματιστικο!!O compiler στην pascal δεν εμφανιζει κατι τετοιο,και μπορω να το τρεχω κανονικα!
Απλα πρεπει να τροποποιησω την εντολη του πολ/μου ωστε να κανει ακριβως αυτο που λει η εκφωνηση της ασκησης! δηλαδη αντι για proliferation*I προσπαθω να βρω τι πρεπει να γραψω ωστε να εκτελει σωστα τον πολλαπλασιασμο συμφωνα με την ασκηση,εχω δοκιμασει αρκετα μεχρι στιγμης αλλα τιποτα
Η εντολη της προσθεσης εκτελειται κανονικα και εμφανιζει σωστο αποτελεσμα!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
Τελικα βρηκα τι εφταιγε! προσθεσα ενα +1 στον πολλαπλασιασμο και το αποτελεσμα ειδα οτι εβγαινε σωστο.. οποτε το αφηνω ετσι
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
Tην εχω φτιαξει σωστα ολη,την τρεχω, δινω 2 αριθμους ως εισοδο κανει την προσθεση βγαζει σωστα το αποτελεσμα αλλα στον πολλαπλασιασμο δεν κανει την πραξη οπως περιγραφεται στην εκφωνηση της ασκησης...Να δημιουργήσετε κώδικα σε PASCAL που θα υπολογίζει το άθροισμα και το γινόμενο όλων των ακεραίων αριθμών που βρίσκονται μεταξύ των δύο αριθμών που θα έχει εισάγει ο χρήστης. Δηλαδή, όταν το πρόγραμμα θα τρέχει, θα πρέπει να ζητάει από τον χρήστη να του δώσει δύο ακέραιους αριθμούς. Έστω ότι δίνουμε τους αριθμούς 2 και 7. Τότε ο υπολογιστής θα πρέπει να υπολογίσει το άθροισμα 2+3+4+5+6+7 και το γινόμενο 2*3*4*5*6*7 και να τυπώσει τα δύο εξαγόμενα στην οθόνη.
δηλαδη αν δωσω ως αριθμους το 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.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
theodora το ειχα διαβασει αυτο αλλα δεν μπορεσα να καταλαβω ακριβως τι συναρτηση ειχε χρησιμοποιησει,μαλλον υποπρογραμμα ειχε φτιαξει!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
απατασαι δυστυχως.. βγαζει λαθος!a**2 αν δεν απατώμαι.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
thanx focko!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
Μηπως γνωριζει κανεις?
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
-
Το forum μας χρησιμοποιεί cookies για να βελτιστοποιήσει την εμπειρία σας.
Συνεχίζοντας την περιήγησή σας, συναινείτε στη χρήση cookies στον περιηγητή σας.