Напишите функцию, которая моделирует бросание двух игральных кубиков (** каждом может...

Question

Напишите функцию, которая моделирует бросание двух игральных кубиков (на каждом может выпасть от 1 до 6 очков). (Используйте генератор псевдослучайных
чисел)

Answer 1

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function Dice2():=Rec(Random(1,6),Random(1,6));

// тестовый пример - 10 бросков
begin
  for var i:=1 to 10 do Writeln(Dice2)
end.

Тестовое решение:
(6,6)
(1,6)
(5,6)
(1,1)
(1,5)
(6,5)
(1,4)
(5,6)
(1,3)
(2,6)

Comments

Спасибо огромное! А можете сделать без рекурсии?

---

А где Вы рекурсию увидели? Обычный цикл...

---

А Rec разве не функция?

---

Функция, встроенная в язык версии 3. Она формирует из своих аргументов запись (record), т.е. Q:=Rec(a,b) при a,b типа integer эквивалентно: var Q=record; Item1,Item2:integer; end; Q.Item1:=a; Q.Item2:=b;

---

Но рекурсия тут причем?

---

Учитель по информатики сказала, что это рекурсия, а мы ее не проходили, поэтому я и подумала, спасибо, что разъяснили!

---

Да.... печально иметь такого учителя по информатике, который не может толком понять сам, что такое рекурсия.

---

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