Question

Сформировать с помощью функции RANDOM() множество, содержащее 5 целых чисел из диапазона 1..10 и вывести это множество на экран. паскаль.множества

Answer 1

// PascalABC.NET 3.0, сборка 1088
const
  n=5;
var
  s:set of 1..10;
  k,t:1..10;
begin
  Randomize;
  k:=0;
  repeat
    t:=Random(10)+1;
    if not (t in s) then begin Include(s,t); Inc(k) end
  until k=5;
  for k:=1 to 10 do
    if k in s then Write(k,' ');
  Writeln 
end.

Тестовое решение:
2 7 8 9 10

Answer 2

В Pascal можно использовать функцию `Random` для генерации случайных чисел в определенном диапазоне. Для формирования множества из 5 случайных целых чисел в диапазоне от 1 до 10 можно воспользоваться следующим кодом:

program RandomSet;

const
  setSize = 5; // Размер множества
  minRange = 1; // Минимальное значение диапазона
  maxRange = 10; // Максимальное значение диапазона

var
  randomSet: set of 1..10; // Объявляем множество
  randomNumber, count: Integer;

begin
  randomSet := []; // Инициализируем пустое множество

// Заполняем множество случайными числами
  for count := 1 to setSize do
  begin
    repeat
      randomNumber := Random(maxRange) + minRange; // Генерируем случайное число в диапазоне
    until not (randomNumber in randomSet); // Проверяем, есть ли уже это число в множестве
    Include(randomSet, randomNumber); // Добавляем уникальное число в множество
  end;

// Выводим сформированное множество на экран
  Write('Случайное множество из ', setSize, ' чисел: ');
  for randomNumber in randomSet do
    Write(randomNumber, ' ');
  Readln;
end.

Этот код создает множество `randomSet` и использует цикл `for` для генерации 5 уникальных случайных чисел в диапазоне от 1 до 10 с помощью функции `Random`. Когда число сгенерировано, оно добавляется в множество, и затем выводится на экран.