Random number generatie werd opgenomen als onderdeel van de programmeertaal Ada toen Ada 95 werd geïntroduceerd . Het kan worden gebruikt om een geheel toevalsgetal uit een bepaald bereik van getallen te genereren . Gehele toevalsgetallen kan voor dobbelstenen, opgooien en tekenen namen uit een hoed , bijvoorbeeld. Instructies
1 Open het programma bestand dat de random integer functie zal bevatten . Op de eerste regel van de functie , typ " Verklaar " aan de definitie van uw variabelen te beginnen kopen van 2 Definieer het type functie Voorbeeld
: . . " Soort Rand_Draw is bereik 1 .. 100 ; "
3 Bel de random generator uit de bibliotheek Voorbeeld
: . " pakket Rand_Int is nieuw Ada.Numerics.Discrete_Random ( Rand_Draw ) ; < br > Goedkope 4 Definieer het zaad en het aantal Voorbeeld
: zaad : Rand_Int.Generator ; Num : . Rand_Draw ;
Type 5 " begint " op een nieuwe lijn om de berekening deel van de functie te starten .
6 Reset het zaad tot randomisatie verbeteren . Dit is vooral handig als je wordt plukken meer dan een nummer uit dezelfde reeks getallen .
Voorbeeld : " Rand_Int.Reset ( zaad ) ; "
7 Instrueer het programma om het aantal pick Voorbeeld
: " Num : = Rand_Int.Random ( zaad ) . ;
8 Instrueer het programma om u te vertellen welk nummer het is gekozen : Voorbeeld
: Put_Line ( Rand_Range'Image ( Numeri ) ) ;
9 Typ ' end ; " . om de functie te beëindigen
|
