Чем займемся уважаемые кроты

А давайте посчитаем, уважаемые кроты

Всего в мире за последнюю тысячу лет (50 поколений) жило 100 млрд человек. Пусть каждый сотый — композитор. 1 млрд композиторов. Каждый написал за 50 лет активной деятельности 500 песен, если у него ничего не болело :))). 500 млрд песен. Каждую песню исполняли разные певцы, существует в среднем 10 вариантов каждой песни. 5000 млрд вариантов. Средняя длина песни 10Мб. 50000 млрд Мб = 50 трлн мегабайт. Если взять современные диски по 500 Мб, то их понадобится 100 млрд.

За последние 10 лет объем дисков увеличился в 100 раз.

То есть (берем в уме логарифм) через 53 года будет существовать винчестер, на который влезет ВСЯ музыка в мире. Через 60 лет она влезет в тогдашний аналог носимых плейеров.

Предполагаю, что лично мне понравятся записи в объеме около 50 млн Мб, то есть через 23 года вся моя фонотека поместится на один диск.

Re: А давайте посчитаем, уважаемые кроты

Ну тогда еще бы неплохо прологорифмировать и машину времени, чтоб послушать большинство из тех кто за тысясу лет был.

Re: А давайте посчитаем, уважаемые кроты

Не надо мне ничего отсыпать, просто скажи телефон своего дилера =)

Re: А давайте посчитаем, уважаемые кроты

> через 53 года будет существовать винчестер, на который влезет ВСЯ музыка в мире

а уже есть. и небольшой кстати. гига на 3 🙂

ты что всерьез считаешь что две любые пестни линкин допустим парка — это разные вещи?

блюзмены уже пятьдесят лет один и тот же мотив доят

а у электронщиков ее нет в принципе, только умца-умца (сэмпл килобайтов на 50)

Re: А давайте посчитаем, уважаемые кроты

С другой стороны, время жизни человека минус сон =70лет*365*16часов = 25 млн. минут, в течение которых можно слушать музыку. По 3Мб на минуту получаем 75 млн Мб = 75000 Гб или 150 дисков по 500Гб. То есть через 15 лет уже можно расчитывать на диск с «музыкой на всю жизнь». Прикиньте, какая драка разгорится за состав этого диска!

Re: А давайте посчитаем, уважаемые кроты

Ну вот, тебе трёх гигов хватает. А глухим ваще не надо. 🙂

Источник

Pro-Delphi

Научиться программировать не так сложно, как кажется. Уроки по принципу от простого к сложному. Исходные тексты программ. Видео уроки.

Страницы

вторник, 13 марта 2012 г.

Урок 32. “Уважаемые кроты, а не посчитать ли нам?”

Сегодня я решил поделиться одним из главных секретов, который поведал мне мой гуру однажды: «Хочешь сложный отчет получить — сделай под него таблицу».

Счастье любого бухгалтера — правильно, без ошибок, посчитанная оборотная ведомость. Без лукавства можно утверждать, что «оборотка» — основной документ. Он служит и для составления Главной книги, и для поиска ошибок.

Это — довольно сложный отчет. Составляется он за период. Поэтому включает в себя для каждого счета развернутые (по дебету и кредиту) остатки на начало периода, обороты за период и развернутые остатки на конец периода. Средством первичного контроля правильности составления оборотной ведомости является присутствие в ней всех счетов и по парное совпадение итогов.

Коль скоро нам предстоит получить столь важный и сложный документ, мы должны иметь в базе данных «Расход», о создании которой я рассказал в уроке 18, одну вспомогательную таблицу «Oborot». Чем она существенно отличается от всех остальных? Она не присутствует в схеме данных, поскольку не имеет связей. А связей она не имеет, поскольку в ней нет ключей, в этой таблице не хранится полезная информация. Она нужна только для того, чтобы временно хранить результаты вычислений.

Структура ее проста:

И я надеюсь, не вызовет вопросов при ее создании.

Теперь вернемся к нашему проекту и добавим в него форму Oborot.pas (имя формы OborotFrm).

Все настройки формы мало чем отличаются от настроек формы main, кроме свойства

WindowState, которое нужно установить в wsMaximized, чтобы при создании формы она разворачивалась на весь экран (создаваемый отчет большой, хочется видеть как можно больше информации одновременно).

Не забудьте после добавления формы в проект удалить ее из автоматически создаваемых. Вместо этого в главной форме создайте обработчик пункта меню, предназначенного для создания Оборотной ведомости:

procedure TMainFrm.N3Click(Sender: TObject); // Пункт меню «Оборотная ведомость»
begin
Application.CreateForm(TOborotFrm, OborotFrm); // Создание формы OborotFrm
OborotFrm.ShowModal; // Вывод формы в модальном окне
OborotFrm.Free; // Освобождение памяти после окончания работы с формой
end;

Не забудьте в разделе implementation главной формы добавить ссылку на модуль формы Oborot.pas:

Теперь в коде добавленной формы пропишем сразу, чтобы не забыть:

Uses Main;

Это нужно для того, чтобы компонентам доступа к данным дать возможность использовать настройки компонента ADOConnection, расположенного на главной форме.

Традиционные обработчики при старте, активации, закрытии формы и некоторые другие:

procedure TOborotFrm.FormCreate(Sender: TObject);
begin

// Стартовые значения для дат периода
Date_N.Value:=Now();
Date_K.Value:=Now()+1;

// Подключение компонентов доступа к данным к базе данных
ADOQuery1.Connection:=MainFrm.ADOConnection1;
ADOQuery2.Connection:=MainFrm.ADOConnection1;
ADOCommand1.Connection:=MainFrm.ADOConnection1;
CDS.Connection:=MainFrm.ADOConnection1;

// Назначение таблицы компоненту
CDS.TableName:=’Oborot’;
end;

procedure TOborotFrm.FormActivate(Sender: TObject);
begin

// Запрос на первичную очистку таблицы
ADOCommand1.CommandText:=’DELETE Oborot.* FROM Oborot ‘;
ADOCommand1.Execute;
end;

procedure TOborotFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;

procedure TOborotFrm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

// Обработка нажатия клавиши Escape — закрытие формы
case Key of // Start Case

VK_ESCAPE:
begin
close;
end;

else

End; // End case
end;

procedure TOborotFrm.MyOkButton1Click(Sender: TObject);
begin
Close;
end;

А теперь — самое главное — собственно алгоритм вычисления оборотной ведомости, в основу которого положена описанная в уроке 16 формула:

procedure TOborotFrm.CalcOborots(Dn,Dk: TDateTime);
Var
o: Currency; // Свернутый остаток
MyStr: String; // Для хранения строки SQL запроса

begin

// Очистка временной таблицы
ADOCommand1.Execute;
CDS.Active:=True;
CDS.Requery();

// Составление оборотной ведомости

// Заполнение списка счетов и стартовых остатков (для выбранной валюты)
ADOQuery1.Active:=False; // Деактивация запроса
ADOQuery1.SQL.Clear; // Очистка и затем — задание строки SQL
ADOQuery1.SQL.Add(‘SELECT * FROM Accounts WHERE Val=’+IntToStr(MySelect.MySel_IDVal));
ADOQuery1.Active:=True; // Включение запроса
ADOQuery1.First; // Переход на первую запись

While not ADOQuery1.EOF do // Перебор всех значений, пока не будет достигнут конец файла
Begin
CDS.Insert; // Добавление строки во вспомогательную таблицу, далее — заполнение полей
CDS.FieldByName(‘IDAcc’).Value:=ADOQuery1.FieldByName(‘ID’).Value; // ID счета
CDS.FieldByName(‘NameAcc’).Text:=ADOQuery1.FieldByName(‘Name’).Text;// Название счета
o:=ADOQuery1.FieldByName(‘Ost_D’).Value-ADOQuery1.FieldByName(‘Ost_K’).Value; // Вычисление свернутого остатка на момент старта программы
If o>=0
Then
Begin
CDS.FieldByName(‘OstD_N’).Value:=o;
CDS.FieldByName(‘OstK_N’).Value:=0; // Это — ноль
End
else
Begin
CDS.FieldByName(‘OstD_N’).Value:=0; // Это — ноль
CDS.FieldByName(‘OstK_N’).Value:=-o;
End;

// Вычисление остатков на начало по данным до даты Dn
o:=CDS.FieldByName(‘OstD_N’).Value-CDS.FieldByName(‘OstK_N’).Value;

ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
MyStr:=’SELECT Sum(Main.Summa) AS [MySum], IIf(IsNull([MySum]),0,[MySum]) AS MySumNotNull FROM Main WHERE (((Main.MyDate)
MyStr:=MyStr+FormatDateTime(‘mm/dd/yyyy’,Dn);
MyStr:=MyStr+’#) AND ((Main.D)=’;
MyStr:=MyStr+IntToStr(CDS.FieldByName(‘IDAcc’).value);
MyStr:=MyStr+’))’;
ADOQuery2.SQL.Add(MyStr);
ADOQuery2.Active:=True;

if ADOQuery2.RecordCount>0
then
o:=o+ADOQuery2.FieldByName(‘MySumNotNull’).Value
else
o:=0; // Это — ноль

ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
MyStr:=’SELECT Sum(Main.Summa) AS [MySum], IIf(IsNull([MySum]),0,[MySum]) AS MySumNotNull FROM Main WHERE (((Main.MyDate)
MyStr:=MyStr+FormatDateTime(‘mm/dd/yyyy’,Dn);
MyStr:=MyStr+’#) AND ((Main.K)=’;
MyStr:=MyStr+IntToStr(CDS.FieldByName(‘IDAcc’).value);
MyStr:=MyStr+’))’;
ADOQuery2.SQL.Add(MyStr);
ADOQuery2.Active:=True;

if ADOQuery2.RecordCount>0
then
o:=o-ADOQuery2.FieldByName(‘MySumNotNull’).Value
else
o:=0; // Это — ноль

// Запись остатков на начало
If o>=0
Then
Begin
CDS.FieldByName(‘OstD_N’).Value:=o;
CDS.FieldByName(‘OstK_N’).Value:=0;
End
else
Begin
CDS.FieldByName(‘OstD_N’).Value:=0;
CDS.FieldByName(‘OstK_N’).Value:=-o;
End;

// Вычисление и запись оборотов
ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
MyStr:=’SELECT Sum(Main.Summa) AS [MySum], IIf(IsNull([MySum]),0,[MySum]) AS MySumNotNull FROM Main ‘;
MyStr:=MyStr+’WHERE (((Main.MyDate)>=#’+FormatDateTime(‘mm/dd/yyyy’,Dn)+’#) ‘;
MyStr:=MyStr+’AND ((Main.MyDate)
MyStr:=MyStr+’AND ((Main.D)=’;
MyStr:=MyStr+IntToStr(CDS.FieldByName(‘IDAcc’).value);
MyStr:=MyStr+’))’;
ADOQuery2.SQL.Add(MyStr);
ADOQuery2.Active:=True;

if ADOQuery2.RecordCount>0
then
o:=o+ADOQuery2.FieldByName(‘MySumNotNull’).Value
else
o:=0;

CDS.FieldByName(‘ObD’).Value:=ADOQuery2.FieldByName(‘MySumNotNull’).Value;

ADOQuery2.Active:=False;
ADOQuery2.SQL.Clear;
MyStr:=’SELECT Sum(Main.Summa) AS [MySum], IIf(IsNull([MySum]),0,[MySum]) AS MySumNotNull FROM Main ‘;
MyStr:=MyStr+’WHERE (((Main.MyDate)>=#’+FormatDateTime(‘mm/dd/yyyy’,Dn)+’#) ‘;
MyStr:=MyStr+’AND ((Main.MyDate)
MyStr:=MyStr+’AND ((Main.K)=’;
MyStr:=MyStr+IntToStr(CDS.FieldByName(‘IDAcc’).value);
MyStr:=MyStr+’))’;
ADOQuery2.SQL.Add(MyStr);
ADOQuery2.Active:=True;

if ADOQuery2.RecordCount>0
then
o:=o-ADOQuery2.FieldByName(‘MySumNotNull’).Value
else
o:=0;

CDS.FieldByName(‘ObK’).Value:=ADOQuery2.FieldByName(‘MySumNotNull’).Value;

// Вычисление и запись остатков на конец
If o>=0
Then
Begin
CDS.FieldByName(‘OstD_K’).Value:=o;
CDS.FieldByName(‘OstK_K’).Value:=0;
End
else
Begin
CDS.FieldByName(‘OstD_K’).Value:=0;
CDS.FieldByName(‘OstK_K’).Value:=-o;
End;

CDS.Post;
ADOQuery1.Next;
End;
CDS.First;
end;

Я постарался дать подробные комментарии. Но, если у Вас возникнут вопросы, я жду их по адресу vs259@mail.ru.

Что остается? Остается только подложить вызов этой процедуры под кнопку:

Источник

Дюймовочка

— Чем хотите пока заняться, состоятельные кроты?
— А что, если нам посчитать?
— И то — дело!
— Пятью пять — двадцать пять! Пятью восемь — сорок! Шестью шесть — тридцать шесть! Дважды два — четыре!

Похожие цитаты

Раз!
О, внемли, друг!
Два!
Что полночь тихо скажет вдруг?
Три!
«Глубокий сон сморил меня, —
Четыре!
Из сна теперь очнулась я:
Пять!
Мир — так глубок,
Шесть!
Как день помыслить бы не смог.
Семь!
Мир — это скорбь до всех глубин, —
Восемь!
Но радость глубже бьёт ключом!
Девять!
Скорбь шепчет: сгинь!
Десять!
А радость рвётся в отчий дом, —
Одиннадцать!
В свой кровный, вековечный дом!»
Двенадцать!

— Считает ли тот, кто не в своем уме, человек или какое-нибудь существо, что дважды два — пять? — спросила Алиса.
— Конечно, дитя мое! Поскольку дважды два не пять, то тот, кто не в своем уме, считает, что дважды два — пять.
— А считает ли тот, кто не в своем уме, что дважды два — шесть? — задала новый вопрос Алиса.
— Конечно, дитя мое! — ответила Герцогиня. — Поскольку дважды два не шесть, то тот, кто не в своем уме, считает, что дважды два — шесть.
— Но дважды два не может быть одновременно равно и пяти и шести! — воскликнула Алиса.
— Разумеется, не может, — согласилась Герцогиня. — И ты и я об этом знаем, но тот, кто не в своем уме, об этом не ведает. А какая мораль из всего этого.

Источник

Ультразвук, нарциссы и кофе: 7 гуманных способов прогнать крота с участка

На поверхности дачного газона или на грядках стали часто появляться бугорки рыхлой земли? Скорее всего, это работа крота. Выяснили вместе с экспертом, как прогнать животное гуманными способами и стоит ли вообще бороться с кротами.

Эксперт в статье — Анна Банникова, доктор биологических наук, старший научный сотрудник кафедры зоологии животных факультета биологии МГУ, специалист в области биологии и систематики насекомоядных и грызунов.

Крот — небольшой зверек длиной от 12 до 16 см с темно-серой или бурой шерстью. Он почти лишен зрения, зато обладает очень чутким слухом и обонянием. В России можно встретить крота европейского — ареал его обитания простирается от Барселоны до Якутии.

Большую часть своей жизни крот проводит под землей — на поверхности он беззащитен. С помощью мощных лопатообразных передних лап кроты роют тоннели, которые используют для передвижения и охоты. В день животное может прорыть до 50 м таких тоннелей. Живут кроты в гнезде на глубине около 1–2 м.

В основном кроты питаются дождевыми червями, слизнями, личинками гусениц и жуков, земноводными и мелкими грызунами. Бугорки на поверхности почвы, которые создает крот (кротовины), — это ловушки. В кротовинах животное оставляет мускусные метки — их запах привлекает червей.

Кроты любят мягкую, рыхлую и удобренную почву: ее проще копать и в ней больше пищи. Поэтому ухоженные огороды и сады — самая комфортная для них среда обитания. Но к растениям эти животные не притрагиваются — если в огороде и появились обкусанные овощи, то, скорее всего, это работа мышей-полевок или землероек.

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

Вот семь способов избавить участок от крота, не ранив и не погубив животное.

Шумовые отпугиватели

У кротов очень чуткий слух, громкие звуки пугают и раздражают животных. Поэтому самый популярный и эффективный способ борьбы — звуковые и ультразвуковые отпугиватели. Эти устройства выглядят как штыри, которые нужно втыкать в землю в местах обнаружения кротов, так как колебания хорошо распространяются через толщу почвы. Такие отпугиватели могут быть эффективны и против грызунов и змей.

В качестве бесплатной альтернативы можно использовать народный способ — радио на батарейках, которое в непромокаемом пакете кладут на кротовый бугорок. Правда, в отличие от специальных отпугивателей, этот способ может воздействовать не только на кротов, но и на соседей.

Вертушка

Еще один эффективный способ выгнать крота с помощью вибраций — воздушная вертушка на металлическом или деревянном штыре. При вращении она также создает колебания, которые распространяются через почву. Такую вертушку можно купить в магазине или изготовить самостоятельно.

Ловушка-труба

В магазинах можно купить специальные капканы для кротов, но они ранят или даже убивают зверька. Не менее эффективная, но при этом гуманная альтернатива — ловушки-трубы, которые позволяют поймать крота, но не вредят ему.

Ловушки-трубы помещают в кротовый тоннель. Когда зверек проходит по нему, то застревает в трубе. Затем ловушку нужно вытащить и выпустить крота подальше от человеческого жилья. Лучше всего — в поле, в пойме реки, на опушке или в лиственном лесу. Почвы хвойных лесов для него слишком жесткие.

Надо помнить, что кроту нужно есть постоянно, всего 14 часов без пищи могут привести к смерти животного. Поэтому ловушки не стоит оставлять больше чем на один день. Чаще всего их ставят на ночь.

Самодельные ловушки

Простую, эффективную и гуманную ловушку для кротов можно изготовить самостоятельно. Для этого нужно раскопать кротовый холмик и врыть емкость (например, ведро или трехлитровую банку) под горизонтальным тоннелем, ведущим к ней. Сверху ее нужно накрыть доской или куском шифера — иначе, оказавшись на свету, крот заподозрит неладное. На дно емкости надо насыпать немного земли и положить туда пару червяков или другую пищу для крота — это сработает как приманка и не даст ему умереть от голода, пока его не достанут.

Зоологи не рекомендуют использовать для отлова кротов стальные ведра и другие емкости — животное не любит запах металла, он может его спугнуть.

Ароматические отпугиватели

У крота хорошо развито не только зрение, но и обоняние. Поэтому один из самых популярных народных способов борьбы с кротом — поместить в тоннели вещества с сильным запахом. Рекомендуют использовать:

• кофейную гущу;
• тряпки, смоченные бензином или мазутом;
• испорченную рыбу и тухлые яйца;
• острый перец;
• чеснок;
• касторовое масло.

Также в магазинах продаются специальные ароматические гранулы, которые нужно рассыпать по земле и полить водой или засыпать в кротовые тоннели. Но все эти методы малоэффективны — столкнувшись с неприятным запахом, крот просто блокирует тоннель, через который тот проникает, и роет новый. В отличие от вибраций, запахи через толщу земли не распространяются.

Растения, которые не любит крот

Считается, что отпугнуть крота могут некоторые растения. К ним относят:

нарциссы — их корни токсичны;

бархатцы — они выделяют в почву природные инсектициды и лишают крота пищи;

рябчик императорский — его запах отпугивает зверьков;

сильнопахнущие съедобные растения — лук, чеснок, укроп, сельдерей, базилик.

Забор от кротов

Самый надежный, но и самый трудозатратный способ защиты — установка подземного забора по периметру участка. Его можно сделать в виде канавы, наполненной щебнем, шифером или битым кирпичом, или же врыть в землю мелкую сетку или листовую сталь.

Минимальная глубина такой стены — метр ниже уровня земли. Теоретически крот может прорыть тоннель и под ней. Однако на практике, сталкиваясь с преградой, он чаще всего поворачивает в другую сторону. Надо помнить, что крот может передвигаться и по поверхности, поэтому преграда должна хотя бы на 20 см возвышаться над землей.

Похожие мини-заборы из сетки с дном и стенками можно построить вокруг отдельного дерева, куста или цветника, чтобы оградить их от кротовых ходов.

Так ли вредны кроты?

Главная проблема, которую создает крот, — бугорки земли. Они могут испортить внешний вид газона или разрушить грядки. Но если отбросить эстетику, вред от таких тоннелей весьма условный — кучку земли на траве легко разровнять граблями и залить водой. При этом крот полезен тем, что:

• охотится на вредных насекомых — медведок, личинки жуков и гусениц;
• дополнительно разрыхляет и аэрирует землю;
• его тоннели служат дополнительным дренажем для участка, позволяют отводить воду от мест, где она застаивается.

Комментарий эксперта

Анна Банникова, доктор биологических наук, старший научный сотрудник кафедры зоологии животных факультета биологии МГУ, специалист по насекомоядным и грызунам

— Уничтожает ли крот корни растений?

— Кроты приходят в сад вслед за червями и личинками — вредителями растений. Сам факт присутствия кротов на участке означает наличие вредителей — личинок майских жуков и медведок. Медведки — это насекомые, родственники сверчков. Вот они как раз вредят корням растений.

Как и кроты, медведки строят систему туннелей, но, в отличие от первых, питаются в том числе корнями. В период размножения медведки сооружают сложные системы ходов около корневой системы растений. В результате под корневой системой на глубине примерно 10 см от поверхности образуются полости, в которых располагаются объемные камеры в виде шарообразных гнезд. Если в саду много медведок, под корнями растений образуются пустоты, растения, погибают от этого, даже если сама медведка их не грызет.

Следы жизнедеятельности медведок путают с кротовыми. Но кроты корней не грызут — зато охотятся на вредных для растений медведок. Другое дело, что кротовые ходы — это вообще своего рода «подземное метро» для всех мелких зверьков, включая водяных полевок и крыс, которые наносят вред посадкам. Поэтому можно сказать, что кроты все же наносят корням растений вред — но косвенный.

— Как защитить посадки от кротовых ходов?

— Есть действенный, хотя и хлопотный способ сберечь цветник, огород, лужайку: сделайте им «дно» и край из сетки. Это эффективно препятствует проникновению крота на огороженные участки. Убивать кротов безнравственно и глупо — это не вредители, они приносят пользу, просто живут там же, где дождевые черви. Если уничтожить дождевых червей, исчезнут и кроты. А вслед за этим и почва. А значит, и огороды и цветники.

— Можно ли прогнать крота с помощью запаха?

— Кроты очень чуткие, обоняние хорошо развито: с его помощью они находят земляных червей. Запах, который точно не нравится кротам, — запах железа. По этой причине для отлова кротов лучше использовать не железную тару, а стеклянные трехлитровые банки, так как стекло не пахнет.

— Как быстро плодятся кроты? Сколько особей могут жить на одном среднем дачном участке?

— Обычно кроты размножаются один-два раза за лето, в мае-июне. В июле-августе на тропинках в лесу можно часто встретить мертвых кротов. Часть из них — молодняк, который расселяется и, мигрируя, выходит на поверхность. Тут их обычно и хватают хищники, но не съедают из-за мускусного запаха.

Расселяются кроты на несколько километров. Отловленные, помеченные и отнесенные на 700 м от места отлова особи очень быстро возвращаются назад. Если дачный участок составляет стандартные 6–8 соток, на нем в сезон размножения может обитать только одна пара кротов. Но даже один крот практически постоянно перемещается под землей в поисках пищи, поэтому может возникнуть ложное ощущение, что кротов много. Кроты очень территориальные животные, охраняют границы своего участка, насмерть дерутся с чужаками. Однако как только территория освобождается — например, крота убивают, — на участке тут же появляется другой. Поэтому бороться с кротами, убивая их или отлавливая и унося на пару километров, не только негуманно, но и бесполезно: через неделю на участке может появиться другой крот.

Если вы не хотите, чтобы вас беспокоили кроты — не селитесь на черноземных и других плодородных почвах. Например, в Красногорске — глиняные почвы, а поэтому кротов в садах практически нет, только в лесу и на опушках.

— Стоит ли прогонять кротов с участка?

— Кроты — это такая же природа, как упорно прорастающая трава, опавшие листья на газонах, птицы, которые в половине четвертого утра начинают свой весенний хор и мешают спать. Не трогайте листья на газонах — в противном случае на нем не образуется перегноя. Закройте окно, если не хотите слушать птиц. Не разбивайте сад, там, где живут кроты, — эта территория уже занята ими! Если уничтожить кротов, почвенный покров потеряет свои ценные свойства и вы все равно не сможете вырастить ни морковку, ни розы. Кроты рыхлят землю, способствуют перемещению, перемешиванию самых глубоких и самых поверхностных слоев почвы, осуществляют ее круговорот, без чего нормальное функционирование почвенного биоценоза невозможно.

Источник