0 / 0 / 0
Регистрация: 16.03.2012
Сообщений: 27
1

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

16.03.2012, 19:14. Показов 5577. Ответов 3
Метки нет (Все метки)

Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36".
Для заполнения каждой карточки спортлото необходимо получить набор из пяти псевдослучайных чисел. К этим числам предъявляются два требо вания:
-числа должны находиться в диапазоне 1..36;
-числа не должны повторяться.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2012, 19:14
Ответы с готовыми решениями:

Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
Здравствуйте. Дано натуральное число N<101, определяющее возраст человека( в годах). Составить...

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

Составить программу для вывода на экран дисплея "бегущей" строки "Периферийные устройства ЭВМ" из (12,40) в (12,10)
Нужно написать две программы вот их условия: 1.Составить программу для вывода на экран дисплея...

Составить программу, которая выводит на экран дисплея значение одной из выбранной единицы веса
В общем, никак не получается написать программу, которая выводит на экран дисплея значение одной из...

3
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
16.03.2012, 19:26 2
Лучший ответ Сообщение было отмечено SANJAR1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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.
0
-14 / 0 / 0
Регистрация: 25.10.2021
Сообщений: 54
02.02.2022, 13:23 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7486 / 4358 / 2771
Регистрация: 22.11.2013
Сообщений: 12,490
Записей в блоге: 1
02.02.2022, 15:15 4
GameiNooB,
за что вы так невзлюбили число 36?
А если сделать так:
Pascal
18
  n:=1+Random(36);
то условие (n in nb) станет лишним, как и nb.

Добавлено через 4 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2022, 15:15
Помогаю со студенческими работами здесь

Написать программу, которая находит заданное количество чисел, являющихся квадратами натуральных чисел, и выводит их на экран. Проверку "квадрат – не
Написать программу, которая находит заданное количество чисел, являющихся квадратами натуральных...

Составить программу, которая из слов "мышь", " сканер", "слива" получает слово "клавиша"
Помогите пожалуйста. Необходимо составить программу, которая: из слов "мышь", " сканер", "слива" ...

Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: "Рабочий день","Суббота" или "Воскресенье"
Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из...

Разработать программу, которая выводит на экран геометрическую фигуру, заполняя ее символом "*"
Размер фигуры (n) определяется при вводе.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru