Τώρα είναι Πέμ 28 Μαρ 2024 11:18 am

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




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Παρ 21 Μάιος 2004 06:23 pm 
Χωρίς σύνδεση

Εγγραφή: Πέμ 22 Απρ 2004 11:16 am
Δημοσιεύσεις: 60
Τοποθεσία: Θεσσαλονίκη
Syntax: [ Download ] [ Hide ]
!==============================================================================================
! Να γραφεί πρόγραμμα το οποίο δέχεται ένα φυσικό αριθμό N
! και τον αναλύει σε γινόμενο πρώτων παραγόντων, δηλαδή
! οι πάραγοντες πρέπει να ειναι πρώτοι αριθμοί πχ: 2,3,5,7,11,13,17,19,23, κλπ.
!
! (Δραστηριότητα ΔΣ6, από το σχολικό ΤΕΤΡΑΔΙΟ του ΜΑΘΗΤΗ, σελιδα 82, κεφ. 8, Επιλογή και Επανάληψη)
!
! ΠΑΡΑΔΕΙΓΜΑ 1:   144 = 2^4 * 3^2
! ΠΑΡΑΔΕΙΓΜΑ 2:   786 = 2^1 * 3^1 * 131^1
! ΠΑΡΑΔΕΙΓΜΑ 3:   455 = 5^1 * 7^1 * 13^1                  
! ΠΑΡΑΔΕΙΓΜΑ 4:    46 = 2^1 * 23^1
! =============================================================================================
!---------------------- 1ος Τρόπος ----------------------

ΠΡΟΓΡΑΜΜΑ Ανάλυση_Αριθμού_σε_Γινόμενο_Πρώτων_Παραγόντων_1

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Ν,πηλίκο,γινόμενο,δύναμη,i
ΑΡΧΗ

  ΓΡΑΨΕ 'Δώσε ακέραιο αριθμό'
  ΔΙΑΒΑΣΕ Ν

  ΓΡΑΨΕ_ '1'

  πηλίκο <-- Ν
  γινόμενο <-- 1
  i <-- 1

  ΟΣΟ  γινόμενο<Ν  ΕΠΑΝΑΛΑΒΕ
    i <-- i+1
    δύναμη <-- 0
    ΟΣΟ (πηλίκο MOD i)=0 ΕΠΑΝΑΛΑΒΕ
      πηλίκο <-- πηλίκο DIV i
      δύναμη <-- δύναμη+1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΑΝ δύναμη>0 ΤΟΤΕ
      γινόμενο <-- γινόμενο*Α_Μ(i^δύναμη)
      ΓΡΑΨΕ_'*',i,'^',δύναμη
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ_ '='

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

 

Ο δεύτερος τρόπος επίλυσης χρησιμοποιεί 2 μονοδιάστατους πίνακες ακεραίων για την αποθήκευση των πρώτων παραγόντων και της τάξης τους και παρατείθεται στην ενότητα
ΜΟΝΟΔΙΑΣΤΑΤΟΙ ΠΙΝΑΚΕΣ -> Αποθήκευση/εμφάνιση/υπολογισμός στοιχείων
http://spinet.gr/glossomatheia/programs ... .php?t=167


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


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

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


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

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


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

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