Шарики (одномерный массив)

[Poma][a]

я бы предостерёг заменять цвета количеством!

Не-не-не
Я ж храню структурку.. И цвет и кол-во

Последний раз редактировалось Stilet; Сегодня в 09:39.

Упс. Пардон. Забыл. Спасибо!

[Аватар]

По мне так без массива в строках удобнее сделать. Например в Д7 типа такого

procedure TForm1.Button2Click(Sender: TObject);
var s: String;
    i,k,n: Integer;
    c: Char;
begin
  s:='23344443322901';
  for c:='0' to '9' do begin k:=Pos(StringOfChar(c,3),s); if k>0 then Break; end;
  while k>0 do begin
    n:=3;
    for i:=k+3 to Length(s) do if s[i]=s[k] then Inc(n) else Break;
    Delete(s,k,n);
    Dec(k);
    if k>0 then k:=Pos(StringOfChar(s[k],3),s);
  end;
  ShowMessage(IntToStr(Length(s)));
end;

[Serge_Bliznykov]

Сообщение от Аватар

По мне так без массива в строках удобнее сделать.

если речь не идёт об использовании "классического" Паскаля с его короткими строками,
то, имхо, строки - это отличный выбор!

[Аватар]

ТС использует динамический массив -> у него не классический паскаль. Не так ли?

[Serge_Bliznykov]

Сообщение от Аватар

ТС использует динамический массив -> у него не классический паскаль. Не так ли?

Точно так! (либо Delphi, либо Free Pascal)
Я же и говорю, что строки в данном случае - отлично подходят!

[isst]

Сообщение от Poma][a

Стоп.
5 - это вообще кол-во шариков
Изначально получаем :
1 3 1
А уже потом удаляем
и получаем
1 1

Ром, все работает

Сообщение от Serge_Bliznykov

8Observer8,
ничего игрок не может выбирать.
Это же не игра, а олимпиадная задача - на входе количество и расположение шариков, программа должна определить, сколько шариков "схлопнется".

Ну, предположим, далеко не олимпиадная

[Poma][a]

Ну, предположим, далеко не олимпиадная

Олимпиадная
Но не всмысле, что сейчас идет олимпиада, и ты постишь с нее задачи.. А мол задача была на некой олимпиаде.. или может быть использована людьми, участвующими в олимпиадках, в целях практики.. вот

Обрати внимание на вариант Аватара. Он прекрасен

Классическим паскалем считается турбо

[isst]

Сообщение от Аватар

ТС использует динамический массив -> у него не классический паскаль. Не так ли?

"Free Pascal поддерживает массивы. Многомерные массивы и упакованные массивы также поддерживаются, равно как и динамические массивы в стиле Delphi."
http://freepascal.ru/wiki/index.php/...B8%D0%B2%D1%8B

Не ну если не считать Free Pascal классическим... Тогда вообще молчу...

Сообщение от Serge_Bliznykov

Точно так! (либо Delphi, либо Free Pascal)
Я же и говорю, что строки в данном случае - отлично подходят!

Тогда просветите меня, что есть "классический паскаль"?

Сообщение от Poma][a

Олимпиадная
Но не всмысле, что сейчас идет олимпиада, и ты постишь с нее задачи.. А мол задача была на некой олимпиаде.. или может быть использована людьми, участвующими в олимпиадках, в целях практики.. вот

Обрати внимание на вариант Аватара. Он прекрасен

Классическим паскалем считается турбо

Насчет варианта Аватара - полностью согласен. Я имел ввиду то, что как по нашей школе - так она вообще не считается "олимпиадной сложности".

[Serge_Bliznykov]

Сообщение от isst

Тогда просветите меня, что есть "классический паскаль"?

под "классическим паскалем" я имел в виду Turbo Pascal.

[isst]

Сообщение от Serge_Bliznykov

под "классическим паскалем" я имел в виду Turbo Pascal.

Ясно-ясно!