Βοήθεια/Απορίες στην ΑΕΠΠ - Ασκήσεις

[Rania.]

Σωστη ειναι, αλλα η συνθηκη στην ΟΣΟ δεν χρειαζεται και το χ<>0. Το χ>0 αρκει.

 

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

[Arya]

Α..ναι..σωστά!

Αφού το χ>0 περιλαμβάνει και το χ<>0

 

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

[Rania.]

Α, η αλλη δεν ειναι τοσο ζορικη..
Χμ.

Αλγοριθμος Ασκηση2
Για i απο 100 μεχρι 999 επαναλαβε
Αν imod2=3 ή idiv100=3 ή idiv10=3 τοτε
Εμφανισε i
Τελος_αν
Τελος_Επαναληψης
Τελος Ασκηση2

 

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

[Arya]

πράγματι!
Αλλά την είχα πάρει με πολύ στραβό μάτι

 

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

[angelvasil92]

Θα σου βάλω 2.

Την μια την έχω λύσει απλά τσέκαρε την κι εσύ.
Η άλλη ήταν λίγο περίεργη.

Λοιπόν...

Να αναπτύξετε αλγόριθμο που θα διαβάζει κάποιο πλήθος θετικών ακεραίων και θα τερματίζει όταν εισαχθεί αρνητικός αριθμός ή το μηδέν. Για τους αριθμούς που διαβάστηκαν ο αλγόριθμος θα εκτυπώνει :

α. το πλήθος
β. τον μέσο όρο
γ. το πλήθος των άρτιων και
δ. τον μέσο όρο των άρτιων.

Αυτήν την έχω λύσει έτσι :

Αλγόριθμος Άσκηση
S<-0
πλήθος<-0
Διάβασε χ
Όσο (χ<>0) ή (χ>0) επανάλαβε
πλήθος<- πλήθος+1
S<- S+χ
Αν χmod2=0 τότε
πλήθος1<-πλήθος1+1
S1<-S1+χ
Τέλος_αν
Τέλος επανάληψης
ΜΟ1<-πλήθος/S
ΜΟ2<- πλήθος1/S1
Εμφάνισε πλήθος, πλήθος1, ΜΟ1, ΜΟ2
Τέλος άσκηση

Αυτή ήταν η πρώτη


Καλή η λύση σου, αλλά ξέχασες στην αρχή να αρχικοποιήσεις τις μεταβλητές σου S1<-0 και πληθος1<-0, όπως επίσης και ο ΜΟ1 και ΜΟ2 ειναι S/πληθος και S1/Πληθος1 αντιστοιχα, και οχι ΜΟ1<-πλήθος/S και ΜΟ2<- πλήθος1/S1 που εγραψες εσυ... Αλλα αυτο ηταν απο απροσεξια, οποτε ΟΚ

 

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

[Arya]

Ωπ..ναι...δίκιο έχεις!!

Ευχαριστώ!!!

 

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

[angelvasil92]

Α, η αλλη δεν ειναι τοσο ζορικη..
Χμ.

Αλγοριθμος Ασκηση2
Για i απο 100 μεχρι 999 επαναλαβε
Αν imod2=3 ή idiv100=3 ή idiv10=3 τοτε
Εμφανισε i
Τελος_αν
Τελος_Επαναληψης
Τελος Ασκηση2

Ρανια εισαι σιγουρη οτι λυνεται ετσι;

Κατι δεν μου καθεται καλα...

 

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

[redalert19882000]

Ρανια εισαι σιγουρη οτι λυνεται ετσι;

Κατι δεν μου καθεται καλα...

Ναι είναι λάθος...

Εδώ είναι η λύση:

Αλγόριθμος Ασκηση2
Για i από 100 μέχρι 999
βοηθ ← i mod 100
Αν i div 100 = 3 ή i mod 10 = 3 ή βοηθ div 10 = 3 τότε Εμφανισε i
Τελος_Επαναληψης
Τελος Ασκηση2

 

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

[Arya]

κι ένα Τέλος_αν πριν το Τέλος_επανάληψης

 

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

[Rania.]

Οχι οχι παιδια λαθος απροσεξιας. Δεν ειναι imod2 το πρωτο ουτε ξερω γιατι το εγραψα mod2

Η συνθηκη ειναι
Αν imod10=3 ή idiv100=3 ή (idiv10)mod10=3 τοτε
μπλαμπλα

 

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

[redalert19882000]

Όχι δεν χρειάζεται! Όταν μετά το αν ακουλουθεί μια εντολή το τέλος_αν μπορεί να παραληφτεί αρκεί να βάλεις την εντολή δίπλα απο το τότε. Προσοχή όπως είπα προηγούμενως ισχύει για μια εντολή...

Πρόσεξε το γιατί έχει μπει και σε σωστό λάθος νομίζω στις πανελαδικές

 

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

[angelvasil92]

Ναι είναι λάθος...

Εδώ είναι η λύση:

Αλγόριθμος Ασκηση2
Για i από 100 μέχρι 999
βοηθ ← i mod 100
Αν i div 100 = 3 ή i mod 10 = 3 ή βοηθ div 10 = 3 τότε Εμφανισε i
Τελος_Επαναληψης
Τελος Ασκηση2

Σωστος...
Αλλα ρε συ, πως το σκεφτηκες; Γιατι εγω με τπτ δεν θα το σκεφτομουν αυτο...Με ποια λογικη το εκανες;

 

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

[redalert19882000]

Η λογική είναι απλή και την έχετε κάνει σίγουρα Λοιπόν έχουμε και λέμε... Η άσκηση μας ζητάει να του εμφανίσουμε όλους τους τριψήφιους ακέραιους στους οποίους υπάρχει τουλάχιστον ένα ψηφίο που να είναι το 3...

Αρα σίγουρα θα χρησιμοποιησεις για και σιγουρα θα βαλεις απο 100 εως 999 σε αυτό δε νομίζω να διαφωνούμε.

Τώρα όσο για τα div mod 100 10 μπλα μπλα αυτά τα έβαλα για να διασπάσουμε τον ακέραιο σε 3 μέρη... Έστω για παράδειγμα πως έχεις τον αριθμό 514 και θες να αποθηκευσεις σε 3 ξεχωριστές μεταβλητές τα ψηφία του...

Για τις μονάδες θα έχεις monades <- arithmos mod 10 και στο monades θα αποθηκευτεί το 4
Για τις εκανατοντάδες κάνεις ek <- arithmos div 100 και παίρνεις το 5
Τέλος για να πάρεις το μεσσαίο ψηφίο χρειάζεσε 2 ξεχωριστές μεταβλητές...
Χρειάζεσε μια βοηθητική με την οποία θα κάνεις bohth <- arithmos mod 100 ώστε να πάρεις το 14 και έπειτα dek <- bohth div 10 για να πάρεις το 1!!

Αν δεν καταλάβες κάτι εδω είμαστε

 

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

[angelvasil92]

Η λογική είναι απλή και την έχετε κάνει σίγουρα Λοιπόν έχουμε και λέμε... Η άσκηση μας ζητάει να του εμφανίσουμε όλους τους τριψήφιους ακέραιους στους οποίους υπάρχει τουλάχιστον ένα ψηφίο που να είναι το 3...

Αρα σίγουρα θα χρησιμοποιησεις για και σιγουρα θα βαλεις απο 100 εως 999 σε αυτό δε νομίζω να διαφωνούμε.

Τώρα όσο για τα div mod 100 10 μπλα μπλα αυτά τα έβαλα για να διασπάσουμε τον ακέραιο σε 3 μέρη... Έστω για παράδειγμα πως έχεις τον αριθμό 514 και θες να αποθηκευσεις σε 3 ξεχωριστές μεταβλητές τα ψηφία του...

Για τις μονάδες θα έχεις monades <- arithmos mod 10 και στο monades θα αποθηκευτεί το 4
Για τις εκανατοντάδες κάνεις ek <- arithmos div 100 και παίρνεις το 5
Τέλος για να πάρεις το μεσσαίο ψηφίο χρειάζεσε 2 ξεχωριστές μεταβλητές...
Χρειάζεσε μια βοηθητική με την οποία θα κάνεις bohth <- arithmos mod 100 ώστε να πάρεις το 14 και έπειτα dek <- bohth div 10 για να πάρεις το 1!!

Αν δεν καταλάβες κάτι εδω είμαστε

Aαααααααα οκ καταλαβα ! Σε ευχαριστω πολυ

 

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

[Rania.]

Αυτο με τη μια εντολη στην ΑΝ που δεν θελει ΤΕΛΟΣ_ΑΝ ισχυει και σε αλλες γλωσσες προγραμματισμου(αν μπορουμε να θεωρησουμε την ψευδογλωσσα γλωσσα :p)
Αλλα εγω παντα βαζω για σιγουρια :xixi:

 

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

[redalert19882000]

Ναι σε όλες ισχύει με εξαίρεση κάποιες scriptόγλωσσες

Rania στρώσου για διάβασμα να σκίσουμε στον pdp

 

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

[Rania.]

Χαχ ξερεις πως την εχω πατησει, φτιαχνω εναν κωδικα-σεντονι και ολο και κατι παω να προσθεσω σε μια If και ξεχναω το End; και μου σπαει τα νευρα ο compiler :p
Απο διαβασμα καλα τα παω, απο κει που ηξερα να κανω αυτο:
Program hi;
Begin
Writeln(hi.);
End.
Τωρα προσπαθω να βελτιωσω τον κωδικα για τον πδπ :p

 

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

[ptsiotakis]

Να αναπτύξετε αλγόριθμο που θα εκτυπώνει τους τριψήφιους θετικούς ακεραίους των οποίων τουλάχιστον ένα ψηφίο έχει την τιμή 3

Για ι από 100 μέχρι 999
! σπάσιμο αριθμού σε εκ, δεκ, μον

... 4 εντολές

Αν εκ = 3 ή δεκ = 3 ή μον = 3 τότε
Εμφάνισε ι
Τέλος_αν

Τέλος_επανάληψης
-----------------------------------------
με προλάβατε αλάνια!!!

 

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

[redalert19882000]

Τι σας προλάβαμε... 2 ώρες πέρασαν

Αστιεύομαι!

 

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

[ptsiotakis]

Τεούμπα, θα σου βάλω κανα τεστ μεθαύριο, γιατί χαλάρωσες

 

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