Хочешь узнать что же такое «Дачная война» и почему она в рубрике «Программирование». «Дачная война», или как она называется в текущей версии программы «The garden world» (не просто другое название, а полностью переписанная программа). Дачная война — это задание, которое мне задали в университете, что бы я потренировался в объектно ориентированном программировании. Исходник проекта можно скачать в конце поста.
Суть задания такова:
Есть сад, грубо говоря поле, на этом поле, назовем его огород, растут овощи. Но, вдруг, появляются кроты. Кроты очень хотят кушать, и поэтому сразу же начинают съедать урожай. Садовнику это конечно не нравиться, он бегает по огороду и убивает кротов, но кроты успевают плодиться.
Я решил выложить вам иерархию классов и видео (назовем его трейлер) работы программы (геймплея).
И видюшка, качество хорошее смотрите на весь экран развернув.
Знаю, знаю сейчас ты наверное сейчас думаешь чем же отличается предшествующая статья «Удаление повторяющихся элементов массива в Delphi» от этой. Я тебе расскажу. В той статье мы рассматривали удаление повторяющихся элементов отсортированного массива, а в этой удаление одинаковых элементов неупорядоченного. Я покажу два способа удаления + третий из предыдущей статьи.
procedure DelDuble(var A : TArr); var
i,j :integer; begin
i:=Length(A)-1; while i>0dobegin if a[i-1]=a[i]thenbegin
j:=i; while j<length(A)-1dobegin
a[j]:=a[j+1]; inc(j); end; SetLength(A,Length(A)-1); end; Dec(i); end; end;
Давай-ка посмотрим, ты хочешь разделять строку на подстроки? Хочешь разбить предложение на слова? Да? Я знаю как нам расчленить строку. Раньше я уже писал статью «Разбор строк в Delphi. Array of String», но тот способ был раньше.
Loading ...
Loading ...