Автор Ёергей Петров задал вопрос в разделе Другие языки и технологии
Уважаемые программисты, напишите пожалуйста в Паскале ABC генератор случайных чисел 5 из 12 разных чисел. и получил лучший ответ
Ответ от Krab Bark[гуру]
Ну, просто ABC я уже не помню, да и кому нужна среда, не умеющая создать работающую отдельно от нее программу.. . На PascalABC.NET const t=12; p=5; var l,j,k:integer; var m:array [1..t] of integer:=(1,3,9,12,15,16,18,19,23,25,28,35); begin randomize; for j:=t downto 1 do begin k:=random(j)+1;l:=m[k];m[k]:=m[j];m[j]:=l end; for j:=1 to p do write(m[j]:3); writeln; readln end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Уважаемые программисты, напишите пожалуйста в Паскале ABC генератор случайных чисел 5 из 12 разных чисел.
спросили в Dirt 4 Randomness
Assembler
Вопрос 1
Вот макрос, генерирующий случайные числа от 0 до n-1. Алгоритм взят из модуля System
подробнее...
Assembler
Вопрос 1
Вот макрос, генерирующий случайные числа от 0 до n-1. Алгоритм взят из модуля System
подробнее...