Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 18-07-14, 09:26
kapetang Ο χρήστης kapetang δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλημέρα

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

Το μειονέκτημά της είναι ότι δεν είναι ευέλικτη.

Στη νέα ΒΔ παρουσιάζω μια ευέλικτη λύση για τη δημιουργία λέξεων (μεταθέσεων) από Ν (Ν=1 έως 10) διαφορετικά γράμματα.

Η λύση παρουσιάζει ενδιαφέρον επειδή:

1) Χρησιμοποιεί μια αναδρομική διαδικασία. Δηλαδή μια διαδικασία που καλεί επανειλημμένα τον εαυτό της.

2) Χρησιμοποιεί βοηθητικά ένα αρχείο κειμένου (απαιτείται αναφορά στο Microsoft Scripting Runtime) για να γεμίσει τον πίνακα με τις λέξεις (μεταθέσεις), πράγμα που καθιστά τη μέθοδο πολύ γρήγορη.

Με 10 διαφορετικά γράμματα δημιουργούνται 3.628.800 διαφορετικές λέξεις (Μεταθέσεις) και στον υπολογιστή μου χρειάζεται περίπου 1 λεπτό.

Το τεράστιο πλήθος των λέξεων (μεταθέσεων) και του χρόνου υπολογισμού με οδήγησε στο περιορισμό Ν<=10.

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb CreateWordsFromNLetters.mdb (324,0 KB, 25 εμφανίσεις)