|
|
#1
|
|||
|
|||
Шарики
В одной компьютерной игре игрок выставляет в линию шарики разных цветов. Когда образуется непрерывная цепочка из трех и более шариков одного цвета, она удаляется из линии. Все шарики при этом сдвигаются друг к другу, и ситуация может повториться.
Напишите программу, которая по данной ситуации определяет, сколько шариков будет сейчас уничтожено. Естественно, непрерывных цепочек из трех и более одноцветных шаров в начальный может быть не более одной. Формат входного файла Даны количество шариков в цепочке (не более 1000) и цвета шариков (от 0 до 9, каждому цвету соответствует свое целое число). Формат выходного файла Требуется вывести количество шариков, которое будет уничтожено. Задача с сайта informatics.mccme.ru Номер задачи №1461 Решать не надо, просто попрошу опытных людей дать пару наводок на её решение)) |
#2
|
||||
|
||||
из TList удобней удалять, само сдвигаться будет.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
я тебя не понял))
мне надо на Delphi её решить)) |
#4
|
||||
|
||||
Гугли, гад, гугли...
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
|||
|
|||
мне готовое решение не нужно...
|
#6
|
||||
|
||||
Полазил по сайту с задачами... "Шарики" - хоть адекватная.
111878 вот эта вообще на мой вгляд решения не имеет. 10372 вот тож прикольная Решение: Код:
trunc(sqrt(min(a1,a2)+min(a3,a4))) Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. Последний раз редактировалось Aristarh Dark, 21.02.2014 в 17:51. |
#7
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#8
|
|||
|
|||
Цитата:
|
#9
|
||||
|
||||
Код:
program Project1; {$APPTYPE CONSOLE} uses Classes, SysUtils; var l: TList; Пишу программы за еду. __________________ |