Αρχική Forum
Νέα Δημοσίευση
Προσωπικές Συζητήσεις
Πολυμέσα - Gallery
Chat
Συνδεδεμένοι Χρήστες
Λίστα Αποκλεισμένων
Υπεύθυνοι του Forum
Chat and Fun
iSchool
Morelo
Πολύ δραστήριο μέλος
Μηπως γνωριζει κανεις?
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
fockos
Επιφανές μέλος
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
thanx focko!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Γιώργος
Τιμώμενο Μέλος
a**2 αν δεν απατώμαι.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
απατασαι δυστυχως.. βγαζει λαθος!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
theodora το ειχα διαβασει αυτο αλλα δεν μπορεσα να καταλαβω ακριβως τι συναρτηση ειχε χρησιμοποιησει,μαλλον υποπρογραμμα ειχε φτιαξει!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
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.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Γιώργος
Τιμώμενο Μέλος
Τι εννοώ στοίχιση; Εννοώ πολύ απλά να βάζεις "προς τα μέσα" εντολές που είναι τμήματα ενός υπο-block. Πχ:
instruction_1;
for i:=a to b do
sum:=sum+i;
instruction_2;instruction_1;
for i:=a to b do
begin
instruction_2;
instruction_3;
instruction_4
end;
instruction_5;Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
Τελικα βρηκα τι εφταιγε! προσθεσα ενα +1 στον πολλαπλασιασμο και το αποτελεσμα ειδα οτι εβγαινε σωστο.. οποτε το αφηνω ετσι
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
JosefK
Πολύ δραστήριο μέλος
Eυχαριστω για την υποδειξη,θα το εχω υποψιν!!
Τελικα βρηκα τι εφταιγε! προσθεσα ενα +1 στον πολλαπλασιασμο και το αποτελεσμα ειδα οτι εβγαινε σωστο.. οποτε το αφηνω ετσι
???
Είσαι σίγουρος ότι έτρεξε σωστά;
Η υπόδειξη του Γιώργου δεν ήταν τυχαία. Αν δοκιμάσεις να γράψεις τον κώδικα με τον τρόπο που σου λέει, θα δεις ποιο είναι το λάθος.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
να γραψω τον κωδικα που? εδω στο φορουμ χρησιμοποιωντας τα codes? βγαζει σφαλμα αν υπαρχει καποιο λαθος??
Αλλα και παλι στο προγραμμα δεν υπαρχει λαθος προγραμματιστικο!!O compiler στην pascal δεν εμφανιζει κατι τετοιο,και μπορω να το τρεχω κανονικα!
Απλα πρεπει να τροποποιησω την εντολη του πολ/μου ωστε να κανει ακριβως αυτο που λει η εκφωνηση της ασκησης! δηλαδη αντι για proliferation*I προσπαθω να βρω τι πρεπει να γραψω ωστε να εκτελει σωστα τον πολλαπλασιασμο συμφωνα με την ασκηση,εχω δοκιμασει αρκετα μεχρι στιγμης αλλα τιποτα
Η εντολη της προσθεσης εκτελειται κανονικα και εμφανιζει σωστο αποτελεσμα!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Γιώργος
Τιμώμενο Μέλος
ps: Ποιον compiler χρησιμοποιείς;
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
τον compiler που εχει η pascal
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Γιώργος
Τιμώμενο Μέλος
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
που θα μας οδηγησει αυτος ο συλλογισμος?
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
fockos
Επιφανές μέλος
(δε βρήκα αγοράκι στο google μη με παρεξηγήσετε)
Για να το βρω είναι εύκολο πάντως.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Γιώργος
Τιμώμενο Μέλος
Μήπως μόνο την sum, επειδή δεν έβαλες begin-end;την sum την proliferation και τις 2 writeln.. 4 συνολο,σωστα?
που θα μας οδηγησει αυτος ο συλλογισμος?
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Morelo
Πολύ δραστήριο μέλος
Ναι μονο την sum επιανε τελικα... Εβαλα begin-end; αλλα και παλι μονο την sum επιανε,οποτε φτιαξα 1 ξεχωριστη for για το γινομενο και δουλευει ρολοι!!!!Μήπως μόνο την sum, επειδή δεν έβαλες begin-end;
Ευχαριστω για τη βοηθεια!!
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Γιώργος
Τιμώμενο Μέλος
Μήπως έβαλες begin-end μόνο γύρω από την sum;Ναι μονο την sum επιανε τελικα... Εβαλα begin-end; αλλα και παλι μονο την sum επιανε,οποτε φτιαξα 1 ξεχωριστη for για το γινομενο και δουλευει ρολοι!!!!
Ευχαριστω για τη βοηθεια!!
Πρέπει να το βάλεις γύρω από τις 4 αυτές εντολές που θέλεις να "τσιμπάει" η for. Δεν είναι αποδοτικό να κάνεις δύο φορές for για κάτι που μπορεί να γίνει σε μία.
Σημείωση: Το μήνυμα αυτό γράφτηκε 13 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Χρήστες Βρείτε παρόμοια
-
Φορτώνει...
