Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36".

@SANJAR1 · Регистрация: 16.03.2012

Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36".
Для заполнения каждой карточки спортлото необходимо получить набор из пяти псевдослучайных чисел. К этим числам предъявляются два требо вания:
-числа должны находиться в диапазоне 1..36;
-числа не должны повторяться.

@КонецСвета · 16.03.2012, 19:26

Pascal

uses crt;
var i,c: byte;
    p: set of byte;
begin
p:=[];
for i:=1 to 5 do
    begin
    repeat
    c:=random(36)+1;
    until not (c in p);
    write(c,' ');
    p:=p+[c];
    end;
end.

@GameiNooB · 02.02.2022, 13:23

Delphi

var
 nb, k: Set of 1..36;
 kol, l, i, n: integer;
 
begin
 Randomize;
 writeln('Введи цифру:');
 readln(kol);
 nb:=[1..36];
 
 for i:=1 to kol do
 
  begin
  k:=[];
  for l:=1 to 5 do
  begin
  repeat
  n:=Random(36)
  until (n in nb)and not(n in k);
  k:=k+[n];
  write(n:4)
  end;
 writeln
 end;
 readln; readln;
end.

@bormant · 02.02.2022, 15:15

GameiNooB,
за что вы так невзлюбили число 36?
А если сделать так:

Pascal

18	n:=1+Random(36);

то условие (n in nb) станет лишним, как и nb.

Добавлено через 4 минуты

Pascal

var
 s: set of 1..36;
 k, i, n: Integer;
begin
  Randomize;
  WriteLn('Число наборов: '); ReadLn(k); 
  for k:=1 to k do begin
    s:=[];
    for i:=1 to 5 do begin
      repeat n:=1+Random(36); until not (n in s);
      Include(s,n); Write(n:4);
    end; WriteLn;
  end;
  Write('Нажмите Enter...'); ReadLn;
end.

@SANJAR1 0 / 0 / 0 Регистрация: 16.03.2012 Сообщений: 27
		1
	Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36". 16.03.2012, 19:14. Показов 5577. Ответов 3 Метки нет (Все метки) Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36". Для заполнения каждой карточки спортлото необходимо получить набор из пяти псевдослучайных чисел. К этим числам предъявляются два требо вания: -числа должны находиться в диапазоне 1..36; -числа не должны повторяться. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36".

Решение