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 
 .