Программа кидания игральной кости

[Melok]

Помогите, пожалуйста, задать случайное значение выпавшее на кубике

[kommunist]

обьясни поподробнее что должно происходить в твоей программе?

[Melok]

Надо кинуть кубик 3 раза, записать распределение и найти среднее. + еще кубик со смещенной вероятностью, вместо 6 на грани 1.

[_Dmitry]

Используй генератор случайных чисел
Random; //генерирует случайное вещественное число от 0 до 1
Random(N); //генерирует случайное целое число от 0 до (N-1)
В твоем случае будет Random(7);
Если получен 0 повтори вызов генератора.
И еще, перед использованием Random поставь Randomize, иначе последовательность цифр будет всегда одна и та же.

//Бросить кубик 3 раза и получить числа a, b, c
Randomize;
a:=Random(7);
b:=Random(7);
c:=Random(7);

Ну, а проверку нулей сделай сам

[AlDelta]

Проверка на НОЛЬ не нужна, если:

a:=Random(6)+1;
b:=Random(6)+1;
c:=Random(6)+1;

Простая и приемлемая ложь полезнее сложной и непонятной истины. ("Второй постулат большого пальца")

[Melok]

спасибо!
думала, что random выдает всегда real остальное просто вроде