Πώς να παραγάγει έναν τυχαίο ακέραιο σε Ada

τυχαίων αριθμών είχε συμπεριληφθεί ως μέρος της γλώσσας προγραμματισμού Ada , όταν εισήχθη Ada 95 . Μπορεί να χρησιμοποιηθεί για να δημιουργήσει ένα τυχαίο ακέραιο από ένα σύνολο εύρος αριθμών. Τυχαία ακέραιοι μπορούν να χρησιμοποιηθούν για παιχνίδια με ζάρια , κορώνα-γράμματα και τα ονόματα σχέδιο από ένα καπέλο , για παράδειγμα. Οδηγίες
Η

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

Ορίστε τον τύπο της λειτουργίας

Παράδειγμα : . ". Τύπος Rand_Draw είναι η σειρά 1 100 .. ? "
εικόνων 3

Καλέστε την γεννήτρια τυχαίων αριθμών από τη βιβλιοθήκη

Παράδειγμα : . " πακέτο Rand_Int είναι νέα Ada.Numerics.Discrete_Random ( Rand_Draw ) ?
Φτηνές 4

Ορίστε το σπόρο και τον αριθμό

Παράδειγμα : οι σπόροι : . Rand_Int.Generator ? Num : Rand_Draw ?
5

Τύπος " ξεκινήσει " σε ένα νέο γραμμή για να αρχίσει το υπολογισμούς μέρος της λειτουργίας .
Η 6

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

Παράδειγμα : " Rand_Int.Reset ( σπόρος) ? "
Η 7

Καθοδηγήστε το πρόγραμμα για να πάρει τον αριθμό

Παράδειγμα : . "Num : = Rand_Int.Random ( σπόρος) ?
8

Καθοδηγήστε το πρόγραμμα για εσάς που αριθμούν επέλεξε πει :

Παράδειγμα : Put_Line ( Rand_Range'Image ( Αριθμός ) ) ?
Η 9

Τύπος " τέλος? " για να τερματίσετε τη λειτουργία
Η
εικόνων .