Question

Программа моделирует при помощи датчика случайных чисел бросание двух игральных костей до выпадения двух 6. выведите на экран число бросаний. АВС паскаль

Answer 1

Var a,b,k:integer;
begin;
randomize;
while ((a<>6) or (b<>6)) do
begin;
a:=random(1,6);
b:=random(1,6);
inc(k);
writeln(A,' и ',B,', бросок №',k);
end;
writeln('Всего было сделано ',k,' бросков');
end.

Answer 2

Для решения данной задачи в языке программирования Pascal можно использовать циклы и генерацию случайных чисел.

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

program DiceSimulation;

uses crt;

var
  dice1, dice2: integer; // переменные для хранения значений на костях
  rolls: integer; // переменная для подсчета числа бросаний

begin
  randomize; // инициализация генератора случайных чисел
  
  rolls := 0; // инициализация счетчика бросаний
  
  repeat
    dice1 := random(6) + 1; // генерация случайного числа от 1 до 6 для первой кости
    dice2 := random(6) + 1; // генерация случайного числа от 1 до 6 для второй кости
    
    writeln('Бросок ', rolls + 1, ': ', dice1, ' ', dice2); // вывод результатов броска на экран
    
    rolls := rolls + 1; // увеличение счетчика бросаний на 1
  until (dice1 = 6) and (dice2 = 6); // повторять цикл, пока не выпадут две шестерки
  
  writeln('Количество бросаний: ', rolls); // вывод числа бросаний на экран
  
  readln;
end.

В данной программе используется цикл `repeat...until`, который будет выполняться до тех пор, пока на обеих костях не выпадут значения 6. В каждой итерации цикла генерируются случайные числа от 1 до 6 для каждой кости, результаты броска выводятся на экран, а счетчик бросаний увеличивается на 1. После окончания цикла выводится итоговое число бросаний.

Надеюсь, данное объяснение поможет вам понять программу и решить задачу.