Тема: огромного количества.Через программу паскальТребуется сформировать последовательность
Тема: множества.
Через программку паскаль
Требуется сформировать последовательность естественных чисел от 1 до n, расположенных в случайном порядке без повторения значений.
Таисия Аникеева
var n,i:integer; begin writeln('n='); readln(n); for i:=1 to n do writeln(i); end.
Irvazneva Kamilla
Не могу сделать так, чтоб они распологались в случайном порядке
1 ответ
Иван Смыкалин
var b: set of integer;
n,k,m: integer;
begin
randomize;
write('n = '); readln(n);
k:=0;
while klt;n do
begin
m:=random(1,n);
if not (m in b) then
begin
write(m,' ');
b:=b+[m];
k:=k+1;
end;
end;
end.
Водилова
Олеся
В паскале abc не запускается, пишет что в 3 строке внезапный знак ' '
Семён Поколин
Вот так программка работает:var n,i,k,m:integer; b: set of integer;begin write('n = '); readln(n); k:=0;while kbegin m:=random(1,n); if not (m in b) thenbegin write(m,' '); b:=b+[m]; k:=k+1;end;end;end.
Тимур
while kbegin? Так работает? Внезапный знак ' ' - это теснее препядствия веб-сайта.
Екатерина Лебедева-Ольшанская
Ну да, ты можешь разъяснить, что за что отвечает
Evgenija Nemcova
А что тут изъяснять? Генерируете датчиком случайных чисел random(1,n) случайное число в промежутке [1,n] , проверяете, заходит ли это число в огромное количество b, если не заходит, то прибавляете его в огромное количество и выводите на экран, продолжаете до тех пор, пока в множестве не будет n частей, т.к. датчик случайных чисел генерирует случайные числа, то и последовательность будет в случайном порядке, а так как в огромное количество не добавл. элем., которые теснее , то все элем. последоват. будут различными.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов