Mortenuk M Mortenuk Регистрация 23 Дек 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0 9 Фев 2017 #1 Можно ли в паскале, заставить программу не рандомить одно и тоже число несколько раз?
Михун М Михун Регистрация 29 Июн 2013 Сообщения 81 Репутация 0 Спасибо 0 Монет 0 9 Фев 2017 #2 Можно. Конкретнее пишите, что хотите получить. Можно сверять числа, если одинаковые рандомить новое. Позитивный голос 0
Thresh Thresh Регистрация 24 Мар 2013 Сообщения 130 Репутация 2 Спасибо 0 Монет 0 9 Фев 2017 #3 Const n=5; Var a: set of byte; i,x:byte; Begin a:=[]; Randomize; i:=0; While i<n do begin x:=Random(10); if not (x in a) then begin i:=i+1; Writeln(x); a:=a+[x]; end; end; End. Можно и через массив Позитивный голос 0
Const n=5; Var a: set of byte; i,x:byte; Begin a:=[]; Randomize; i:=0; While i<n do begin x:=Random(10); if not (x in a) then begin i:=i+1; Writeln(x); a:=a+[x]; end; end; End. Можно и через массив
vasy V vasy Регистрация 7 Апр 2013 Сообщения 86 Репутация 0 Спасибо 0 Монет 0 9 Фев 2017 #4 в бейсике - randomize timer Позитивный голос 0