Τώρα είναι Πέμ 29 Οκτ 2020 01:56 pm

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




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 4 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Δευτ 10 Αύγ 2009 03:10 am 
Χωρίς σύνδεση

Εγγραφή: Δευτ 10 Αύγ 2009 03:01 am
Δημοσιεύσεις: 3
ΠΙΣΤΟΠΟΙΗΣΗ ΠΡΩΤΩΝ ΑΡΙΘΜΩΝ

Syntax: [ Download ] [ Hide ]
Πρόγραμμα πρώτοι_αριθμοι
μεταβλητές
  ακέραιες: α,β,γ,δ
Αρχή
  γράψε 'Δωστε τον αριθμο που θελετε:'
  διάβασε α
  β <-- α+1

  αν α MOD 2 = 0 τότε
    αν α MOD 3  = 0 τότε
      γράψε ' Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 5 = 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 7 = 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς
      γράψε 'Ο ',α,' ειναι.'
    τελος_αν
  αλλιως_αν α MOD 3 = 0 τότε
    αν α MOD 2  = 0 τότε
      γράψε ' Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 5 = 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 7 = 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς
      γράψε 'Ο ',α,' ειναι.'
    τελος_αν
  αλλιως_αν α MOD 5 = 0 τοτε
    αν α MOD 3  = 0 τότε
      γράψε ' Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 2= 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 7 = 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς
      γράψε 'Ο ',α,' ειναι.'
    τελος_αν
  αλλιως_αν α MOD 7= 0 τοτε
    αν α MOD 3  = 0 τότε
      γράψε ' Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 2= 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς_αν α MOD 5= 0 τοτε
      γράψε'Ο ',α,' δεν ειναι.'
    αλλιώς
      γράψε 'Ο ',α,' ειναι.'
    τελος_αν




  τελος_αν
τελος_προγραμματος


Κορυφή
 Προφίλ  
 
ΔημοσίευσηΔημοσιεύτηκε: Δευτ 10 Αύγ 2009 03:16 am 
Χωρίς σύνδεση

Εγγραφή: Δευτ 10 Αύγ 2009 03:01 am
Δημοσιεύσεις: 3
Αυτο το προγραμμα για αρχη δεχεται εναν αριθμο και καθοριζει αν ειναι πρωτος η οχι... παρολο που ακουγετε απλο, ηταν λιγο δυσκολη η υλοποιηση του :D


Κορυφή
 Προφίλ  
 
ΔημοσίευσηΔημοσιεύτηκε: Δευτ 10 Αύγ 2009 12:20 pm 
Χωρίς σύνδεση

Εγγραφή: Παρ 30 Μάιος 2008 09:46 pm
Δημοσιεύσεις: 49
Από ότι ξέρω το 4 δεν είναι πρώτος όπως και ο 1234 :?
επίσης για του μεγάλους αριθμούς θα σε βόλευε να το κάνεις χρησιμοποιώντας κάποιο ΓΙΑ ή ΜΕΧΡΙΣ_ΟΤΟΥ, για την εύρεση πρώτων έχουν δοθεί πολύ καλές απαντήσεις εδώ
Καλή συνέχεια με την εικασία.

_________________
"Δύο πράγματα είναι ατελείωτα (άπειρα), το σύμπαν και η ανθρώπινη βλακεία, για το 1ο δεν είμαι σίγουρος." Einstein
"Τα πάντα ρει" (Τα πάντα ρέουν/αλλάζουν) Ηράκλειτος
"Μη μου τους κύκλους τάραττε" Αρχιμήδης


Κορυφή
 Προφίλ  
 
ΔημοσίευσηΔημοσιεύτηκε: Δευτ 10 Αύγ 2009 12:30 pm 
Χωρίς σύνδεση

Εγγραφή: Δευτ 10 Αύγ 2009 03:01 am
Δημοσιεύσεις: 3
Ευχαριστω!


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

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


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

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


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

Αναζήτηση για:
Μετάβαση σε:  
Προβολές σελίδων: website counters