Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte súbor programu , ktorý bude obsahovať náhodnú celočíselnú funkciu . Na prvom riadku funkcie , typ " Declare " spustíte definíciu vašich premenných
2
Definujte typ funkcie
. Príklad : . " Typ Rand_Draw je rozsah 1 .. 100 , "
3
Zavolajte náhodný generátor z knižnice
. Príklad : " Balíček Rand_Int je nové Ada.Numerics.Discrete_Random ( Rand_Draw ) ;
Stránka 4
Definujte osiva a počet
Príklad : semeno : . Rand_Int.Generator , Num : Rand_Draw ;
5
typ " začína " na nový linka spustiť výpočty časť funkcie .
6
Obnoviť semeno zlepšiť randomizácii . To je obzvlášť užitočné , ak bude zber viac ako jedno číslo z rovnakej rady čísel .
Príklad : " Rand_Int.Reset ( semeno ) ; "
7
Poučte program , vybrať číslo
Príklad : . " Num : = Rand_Int.Random ( semeno ) ;
8
Poučte program , ktorý vám , ktorý Počet zvolila povedať :
Príklad : Put_Line ( Rand_Range'Image ( Num ) ) ;
9
Type " end ; " ukončiť funkciu
.