Anastasiya81
?>

нужна ! Вам предстоит написать простую игру с компьютером, модификацию всем известной "Три в ряд". Условия простые. Пользователь вводит число – сколько мест в линии, первый ход делает компьютер, вводит строку: место и цвет (’R’, ’G’ или ’B’) через пробел, нумерация с 0. Выводится сообщение, кто сделал и какой ход: AI step <шаг> или Your step <шаг> Выводится строка с размещенной буквой. Затем ходит пользователь, вводит в одной строке место и цвет (’R’, ’G’ или ’B’) через пробел. Если три буквы одного цвета рядом, они пропадают, тому, кто поставил последнюю, начисляется очко и линия выводится ещё раз, уже без одинаковых букв, стоящих рядом. Игра продолжается, пока есть места. Если пользователь хочет походить на занятое место, выводится сообщение: This place is taken. По окончании выводятся сообщения, кто выиграл и счёт. Если выиграл компьютер, вывести: AI win! <счёт> : <счёт> Если выиграл пользователь, выводим: You win! <счёт> : <счёт> Если ничья: We have a tie. Пример работы программы: 5 AI step 2 R _ _ R _ _ Your step 1 B _ B R _ _ AI step 0 B B B R _ _ Your step 3 R B B R R _ AI step 4 R B B R R R B B _ _ _ Your step 3 G B B _ G _ AI step 2 G B B G G _ Your step 4 R B B G G R AI win! 1 : 0

Информатика

Ответы

Владислав893
// PascalABC.NET 3.2, сборка 1416 от 26.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('S=',a.ElementsByRow.Where(x->x>1).Sum)
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 7
*** Исходный массив [4,7] ***
   5 -40  29  34 -77  19  80
   4 -13   9  13 -37  -3 -38
 -12 -35  44 -90 -50  66 -58
 -79 -62  79  96 -36 -11  13

S=491

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

нужна ! Вам предстоит написать простую игру с компьютером, модификацию всем известной "Три в ряд". Условия простые. Пользователь вводит число – сколько мест в линии, первый ход делает компьютер, вводит строку: место и цвет (’R’, ’G’ или ’B’) через пробел, нумерация с 0. Выводится сообщение, кто сделал и какой ход: AI step <шаг> или Your step <шаг> Выводится строка с размещенной буквой. Затем ходит пользователь, вводит в одной строке место и цвет (’R’, ’G’ или ’B’) через пробел. Если три буквы одного цвета рядом, они пропадают, тому, кто поставил последнюю, начисляется очко и линия выводится ещё раз, уже без одинаковых букв, стоящих рядом. Игра продолжается, пока есть места. Если пользователь хочет походить на занятое место, выводится сообщение: This place is taken. По окончании выводятся сообщения, кто выиграл и счёт. Если выиграл компьютер, вывести: AI win! <счёт> : <счёт> Если выиграл пользователь, выводим: You win! <счёт> : <счёт> Если ничья: We have a tie. Пример работы программы: 5 AI step 2 R _ _ R _ _ Your step 1 B _ B R _ _ AI step 0 B B B R _ _ Your step 3 R B B R R _ AI step 4 R B B R R R B B _ _ _ Your step 3 G B B _ G _ AI step 2 G B B G G _ Your step 4 R B B G G R AI win! 1 : 0
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

krtatiana69
rodsher7740
milkline-nn
Konstantinovna1936
doorhan42n6868
nchalov2
kalina1372
OOO&quot;Kiprei&quot;_Aleksandr1938
Designer
universal21vek116
Mikhail579
fancy-decor67
ksankaaleks611
chernova1exei862
KrisTinka