Τώρα είναι Παρ 29 Μαρ 2024 12:36 am

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 2 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: ΣΥΝΟΛΙΚΕΣ ΣΤΗΛΕΣ ΣΤΟ ΛΟΤΤΟ
ΔημοσίευσηΔημοσιεύτηκε: Τρί 27 Μάιος 2003 09:34 pm 
Χωρίς σύνδεση

Εγγραφή: Πέμ 01 Μάιος 2003 10:25 pm
Δημοσιεύσεις: 38
Τοποθεσία: Καλλιθέα Αττικής
Πολλοί νομίζουν ότι η αναδρομή είναι χρήσιμη. Αυτό σε γενικές γραμμές είναι λάθος, σχεδόν πάντα είναι άχρηστη! Για τα παραγοντικά έχουμε το εξής πρόβλημα: συνήθως παράγονται μεγάλοι αριθμοί που βγαίνουν εκτός ορίου και οδηγούν σε απότομη κράτηση της εφαρμογής μας.
Να και ένα παράδειγμα όπου προσέχουμε το μέγεθος των αριθμών στα ενδιάμεσα αποτελέσματα:

Syntax: [ Download ] [ Hide ]
! Συνολικές στήλες στο lotto
! Θεωρία: Παραγοντικό P!(x)
! P!(X)= X*(X-1)*(X-2)*..*1
! P!(0)=1
! Για το λότο οι συνολικές εξάδες είναι
! Κανονικός τύπος P!(49)/P!(49-6)/P!(6)=13983816
! Αν το δούμε πιο καλά θα βρούμε την απλή μορφή:
! Απλή μορφή 49*48*47*46*45*44/6/5/4/3/2=13983816
! ΣΤΟΧΟΣ ΤΑ ΕΝΔΙΑΜΕΣΑ ΑΠΟΤΕΛΕΣΜΑΤΑ ΝΑ ΕΙΝΑΙ *ΜΙΚΡΑ*
! Δηλαδή μικρότερα από το τελικό νούμερο 13983816
! Αυτό είναι ένα πραγματικό πρόβλημα που μπορεί να αντιμετωπίσουν προγραμματιστές
! λόγω των περιορισμών στο υποσύστημα πράξεων
ΠΡΟΓΡΑΜΜΑ Α
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Χ,Κ
  ΠΡΑΓΜΑΤΙΚΕΣ: Π, Π1, ΠΕ
ΑΡΧΗ
  ΓΡΑΨΕ 'Συνολικές 6-αδες από 49 νούμερα'
  Χ <-- 6
  Π <-- 49
  ΓΡΑΨΕ 'Π=', 49
  ΓΙΑ Κ ΑΠΟ Χ ΜΕΧΡΙ 2 ΜΕ ΒΗΜΑ -1
    Π1 <-- Π
    ΠΕ <-- (50-Κ)/Κ
    Π <-- Π*ΠΕ
    ΓΡΑΨΕ  '*',Α_Μ(50-Κ),'/ ', Α_Μ(Κ),' = ', Π1,'*',ΠΕ,' => Π=', Π
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΕΠΑΛΗΘΕΥΣΗ=', (49*48*47*46*45*44)/(6*5*4*3*2)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
 

_________________
Γλώσσα προγραμματισμού M2000


Τελευταία επεξεργασία από bugman και Τρί 03 Ιουν 2003 10:05 am, έχει επεξεργασθεί 2 φορά/ες συνολικά

Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης:
ΔημοσίευσηΔημοσιεύτηκε: Τρί 27 Μάιος 2003 09:54 pm 
Χωρίς σύνδεση

Εγγραφή: Πέμ 01 Μάιος 2003 10:25 pm
Δημοσιεύσεις: 38
Τοποθεσία: Καλλιθέα Αττικής
Άσκηση για τους πολλούς:
Φτιάξτε το παραπάνω πρόγραμμα να μας υπολογίζει τις στήλες για πλήρες σύστημα από 7 έως 15 σημεία.
Παρατήρηση: Αν μας ενδιέφεραν τα 20 σημεία τότε θα ζητούσαμε 6-αδες από 20. Άντε και όποιος το κατάλαβε!
Οι σωστές λύσεις για τα παραπάνω (7 έως 15 σημεία) είναι πάνω στα δελτία ΛΟΤΤΟ.

_________________
Γλώσσα προγραμματισμού M2000


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 2 Δημοσιεύσεις ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 3 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: