| Re: ПРОГРАММЫ ДЛЯ ПОБЕДЫ ...., В ПОМОЩЬ НАСТОЯЩИМ ИГРОКАМ ! ID:25125 ответ на 25077 |
Чт, 24 мая 2007 10:57 [#] |
|
|
Это просто пишеш программу, со счетчиком.
Например:
for i=1 to N do
begin
Counter:=1;
if Number[i+1] = Number[i]
then Counter := Counter + 1
else Counter := 1;
if Counter = 3 then MessageDlg('Three Numbers one by one', mtWarning, [mbOk], 0);
end;
//N-число строк в статистике
//Counter - счетчик повторяющихся номеров
//Number - массив статистики от 1 до N
Текст программки под Делфи. Можно оформить как вызываемую функцию.
|
|
|