5 / 5 / 5
Регистрация: 08.04.2012
Сообщений: 120
1

Смоделировать бросание каждым из двух игроков трех игральных кубиков.Определить ,кто из игроков получил большую сумму очков.

13.04.2012, 16:37. Показов 5035. Ответов 1
Метки нет (Все метки)

Смоделировать бросание каждым из двух игроков трех игральных кубиков.Определить ,кто из игроков получил большую сумму очков.
ПОМОГИТЕ!!!!!!!!!!!111
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2012, 16:37
Ответы с готовыми решениями:

Смоделировать бросание каждым из двух игроков трех игральных кубиков
Смоделировать бросание каждым из двух игроков трех игральных кубиков.Определить ,кто из игроков...

Определить, кто из игроков получил большую сумму очков в игре "Кубики"
Смоделировать бросание каждым из трех игроков Двух игральных кубиков. определить, кто из игроков...

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

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

1
Почетный модератор
64227 / 47529 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
13.04.2012, 16:53 2
Лучший ответ Сообщение было отмечено kadetvalera как решение

Решение

Pascal
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
27
28
29
30
31
32
33
34
35
36
uses crt;
var o1,o2:array[1..3] of integer;
    i,s1,s2:integer;
begin
clrscr;
randomize;
for i:=1 to 3 do
 begin
  o1[i]:=random(6)+1;
  o2[i]:=random(6)+1;
 end;
writeln('У первого игрока выпало:');
s1:=0;
for i:=1 to 3 do
 begin
  write(o1[i],' ');
  s1:=s1+o1[i];
 end;
writeln;
writeln('Всего очков = ',s1);
writeln;
writeln('У второго игрока выпало:');
s2:=0;
for i:=1 to 3 do
 begin
  write(o2[i],' ');
  s2:=s2+o2[i];
 end;
writeln;
writeln('Всего очков = ',s2);
writeln;
if s1>s2 then write('Выиграл игрок 1')
else if s2>s1 then write('Выиграл игрок 2')
else write('Ничья');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.04.2012, 16:53
Помогаю со студенческими работами здесь

Определить, кто из игроков оставил больше денег
В игровом компьютерном зале стоимость 5 минут игры составляет 2 руб. За день в зале побывало 128...

Найти вероятности событий: все тузы попадут к одному из игроков; двое определенных игроков не получат ни одного туза
52 карты раздаются четырем игрокам (каждому по 13 карт). Найти вероятности следующих событий: C =...

Бросание трех кубиков
Привет, если бросить три (шестигранных кубика) , то какова вероятность того выпадет две 5 и одна...

Файлы. Определить шесть лучших игроков двух команд
а) Создать два файла содержащих сведения о десяти нападающих хоккейных команд Динамо и Спартак...


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

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

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