Question

Cоставить программу, моделирующую бросание кубика для игры в кости произвольное число раз и подсчитывающую число выпадений каждой грани.

Answer 1

// PascalABC.NET 3.0, сборка 1073
var
  i,n,p:integer;
  k:array[1..6] of integer;
begin
  Randomize;
  Write('Количество бросков кубика: '); Read(n);
  for i:=1 to 6 do k[i]:=0;
  for i:=1 to n do begin
    p:=Random(6)+1;
    k[p]:=k[p]+1
  end;
  Writeln('Результат бросания кубика');
  for i:=1 to 6 do Writeln(i,k[i]:6)
end.

Тестовое решение:
Количество бросков кубика: 10000
Результат бросания кубика
1  1704
2  1665
3  1659
4  1631
5  1663
6  1678

Answer 2

Программа для моделирования бросания кубика

Для моделирования бросания кубика и подсчета числа выпадений каждой грани, можно написать программу на языке программирования, таком как Python. Вот пример программы, которая выполняет это:

import random

def roll_dice():
    # Создаем список с гранями кубика
    dice_faces = [1, 2, 3, 4, 5, 6]
    
    # Создаем словарь для подсчета числа выпадений каждой грани
    dice_counts = {1: 0, 2: 0, 3: 0, 4: 0, 5: 0, 6: 0}
    
    # Задаем количество бросков кубика
    num_rolls = random.randint(1, 10)  # Произвольное число бросков от 1 до 10
    
    # Бросаем кубик заданное количество раз
    for _ in range(num_rolls):
        # Случайным образом выбираем грань кубика
        dice_face = random.choice(dice_faces)
        
        # Увеличиваем счетчик для выбранной грани
        dice_counts[dice_face] += 1
    
    # Выводим результаты
    for face, count in dice_counts.items():
        print(f"Грань {face} выпала {count} раз(а)")

# Вызываем функцию для моделирования бросания кубика
roll_dice()

Программа использует модуль `random` для генерации случайных чисел и моделирует бросание кубика заданное количество раз (от 1 до 10 в данном примере). Затем она подсчитывает число выпадений каждой грани и выводит результаты.

Примечание: В данном примере результаты выводятся на экран с помощью функции `print()`, но вы можете изменить программу, чтобы результаты сохранялись в переменных или файле, в зависимости от ваших потребностей.

Надеюсь, эта программа поможет вам моделировать бросание кубика для игры в кости и подсчитывать число выпадений каждой грани. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!