зациклился на циклах(начинающий)

← →
LAZudhic (2011-09-08 17:56) [0]

В цикле надо вставить цикл. теперь по порядку первый цикл чтоб избежать команды goto label(вроде такая команда) дельфи не любит такую команду и не рекамендуется ее применять .второй цикл для паузы от 0,1 до 0,5сек
как бы вы сделали на моем месте какие команды применили

← →
Jeer © (2011-09-08 18:16) [1]

break
sleep(x)

← →
LAZudhic (2011-09-08 18:54) [2]

sleep-как меньше одной секунды сделать?

← →
DVM © (2011-09-08 18:57) [3]

> LAZudhic (08.09.11 18:54) [2]

> sleep-как меньше одной секунды сделать?

Параметр функции sleep в каких единицах измерения задается ты уже выяснил?

← →
QAZ (2011-09-08 19:00) [4]

> дельфи не любит такую команду и не рекамендуется ее применять

даладна,сам придумал?

← →
LAZudhic (2011-09-08 19:10) [5]

спс-я НаЧиНаЮщИй САМОУЧКА =)

← →
DVM © (2011-09-08 19:11) [6]

> LAZudhic (08.09.11 19:10) [5]

мы все тут самоучки

← →
LAZudhic (2011-09-08 19:20) [7]

я тут по такой причине бейсик-любимый мой язык прекрасно работает с сом портом а вот с LPT проблемы и пришлось д7 изучать а то я схему собрал шаговый двигатель от принтера подключил к LPT

← →
Игорь Шевченко © (2011-09-08 19:25) [8]

и не шагает

← →
LAZudhic (2011-09-08 19:29) [9]

все шагает могу даже программу кинуть но только медлено шагает

← →
LAZudhic (2011-09-08 19:32) [10]

unit Unit155;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function Inp32(PortAdr: word): byte; stdcall; external "inpout32.dll";
function Out32(PortAdr: word; Data: byte): byte; stdcall; external "inpout32.dll";
procedure TForm1.Button1Click(Sender: TObject);
var i,j,a,b: Integer;
begin
for i := 1 to 400 do
begin
out32(888,17);
out32(888,19);
sleep(1);
out32(888,18);
out32(888,22);
sleep(1);
out32(888,20);
out32(888,28);
sleep(1);
out32(888,24);
out32(888,25);
sleep(1);
end;
end;

end.

← →
Rouse_ © (2011-09-08 19:34) [11]

> unit Unit155;

0_0 фига, у тебя сколько там юнитов?!!!

← →
LAZudhic (2011-09-08 19:47) [12]

но вот и первое что =) я неделю в д7 и на первом форуме где задал вопрос и теперь у меня вопрос что такое юнит извиняюсь за малограмотность=(

← →
Rouse_ © (2011-09-08 19:51) [13]

Юнит, это PAS файл, в котором ты пишешь код. Дельфи их нумерует по порядку от Unit1 до ...

← →
DVM © (2011-09-08 19:52) [14]

> Rouse_ © (08.09.11 19:34) [11]

на каждый шаг по юниту :)

← →
LAZudhic (2011-09-08 19:58) [15]

спс нет просто так его сохранил

← →
DVM © (2011-09-08 20:01) [16]

> LAZudhic (08.09.11 19:58) [15]

раз уж начинающий, приучайся сразу давать осмысленные имена всему и вся. Иначе потонешь в этих Unit100500 и Button8735. Для компонентов можно использовать венгерскую нотацию, типа btnStart или dlgOpenFile или lblTime.

← →
LAZudhic (2011-09-08 20:13) [17]

спс надеюсь что скоро буду так и делать с вами приятно общаться =)

← →
LAZudhic (2011-09-08 20:27) [18]

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

← →
LAZudhic (2011-09-08 20:31) [19]

← →
Омлет © (2011-09-08 20:39) [20]

Куда же двигатель будет шагать без goto? )

← →
LAZudhic (2011-09-08 20:43) [21]

до конца цикла =)

← →
QAZ (2011-09-08 20:43) [22]

> sleep(1);
измеряется в милисекундах

← →
LAZudhic (2011-09-08 20:53) [23]

как в милиСЕКУНДАХ а ты точно уверен а то ведь у меня движок та крутится а без sleep стоял и светодиоды просто светились а теперь моргают хотя тут надо в справочник заглянуть по микрухам я на К155ТМ7 собирал

← →
QAZ (2011-09-08 20:58) [24]

заоно загляни в справочник по api
http://msdn.microsoft.com/en-us/library/ms686298(v=vs.85).aspx

← →
DVM © (2011-09-08 20:58) [25]

> LAZudhic (08.09.11 20:53) [23]
> как в милиСЕКУНДАХ а ты точно уверен

Я ж тебе говорю, посмотри в документацию, ты как будто не слышишь.

http://msdn.microsoft.com/en-us/library/ms686298(v=VS.85).aspx

← →
Сергей М. © (2011-09-08 21:08) [26]

> скоро буду так и делать с вами

Не надо с нами так делать.

Мы тебе не гоуту с лабелЯми.

← →
Сергей М. © (2011-09-08 21:13) [27]

> бейсик-любимый мой язык прекрасно работает с сом портом
> а вот с LPT проблемы и пришлось д7 изучать

А кто тебе сказал что в д7 нет проблем с LPT, в отличие от тобой горячо любимого васика ?

Ровно столько же проблем).. И ровно столько же их отсутствия)

← →
Ega23 © (2011-09-08 21:13) [28]

> как в милиСЕКУНДАХ а ты точно уверен

В мирное время - точно в миллисекундах.
В военное - есть нюансы, там и значение синуса pi/2 может четырёх достигать.

← →
Сергей М. © (2011-09-08 21:16) [29]

> В цикле надо вставить цикл

Это чтобы быстрей шагал ?
Всё равно не взлетит без гоуту лабель, потому что дельфи не любит такую команду

← →
LAZudhic (2011-09-08 21:17) [30]

ну тогда получается ручником служит inpout32.dll,а может LPT=)но у меня движок порядка 2-3 минут вращается вот и прикинь какой цикл начиная с 1 до 400 и время работы

← →
LAZudhic (2011-09-08 21:21) [31]

насчет портов как мне довелось понять надо DLL и дело в шляпе

← →
Сергей М. © (2011-09-08 21:33) [32]

> мне довелось понять надо DLL и дело в шляпе

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

А в васик, в отличие от д7, очень любит гоуту лабель.

← →
DVM © (2011-09-08 21:35) [33]

он похоже переводчиком пользуется на русский

← →
Игорь Шевченко © (2011-09-08 22:56) [34]

Есть один момент - Windows таки не предназначена для решения задач реального времени, поэтому Sleep - это минимально возможное время задержки, а каким оно будет реально, сказать невозможно. Очевидно, что не меньше, но вот насколько. Поэтому лучше нужные задержки задавать внутри драйвера устройства, там больше шансов выдержать интервалы.

Впрочем, все зависит от задачи. Если задача просто потыкаться, то и в пользовательской программе можно интервалы задавать, секундой больше, секундой меньше - без разницы.

← →
Inovet © (2011-09-08 23:51) [35]

А что за станок, печатные платы изготавливать поди?

← →
han_malign (2011-09-09 08:57) [36]

> В мирное время - точно в миллисекундах.
> В военное - есть нюансы, там и значение синуса pi/2 может четырёх достигать.

вот так может и будет похоже на 1мс:
uses MMSystem; ... timeBeginPeriod(1); for ... sleep(1); ... timeEndPeriod(1);
- вроде Русинович писал, что мультимедийный таймер глобально квант изменяет...

хотя лучше конечно REALTIME_PRIORITY_CLASS/THREAD_PRIORITY_TIME_CRITICAL
и спин вокруг QueryPerformanceCounter,
главное убедиться что CPU ядер хотя бы два...

← →
han_malign (2011-09-09 09:26) [37]

- более-менее честный подход, с незначительным дребезгом...
total:= loopCount * stageCount; timeBeginPeriod(1); loop_stage:= 0; start:= timeGetTime; while(loop_stage < total)do begin _time:= timeGetTime - start; if( _time >= loop_stage * delayMS)then begin case(loop_stage mod stageCount)of 0: begin out32(888,17); out32(888,19); end; ... 3: begin out32(888,24); out32(888,25); end; ... end; inc(loop_stage); end else sleep((loop_stage * delayMS - _time) div 2{запас на дребезг кванта}); end; timeEndPeriod(1);

← →
han_malign (2011-09-09 09:45) [38]

Другое дело, что сам out32 может быть слишком длительным(тракт: приложение -(прослойки вроде inpout32.dll)-> драйвер -> устройство) и один фиг необходимые тайминги не будут соблюдаться...
Это уже решается только независимым(внешним) контроллером на который в потоковом режиме загружается циклограмма с метками времени... Соответственно, если нужно непрерывное 7*24 управление, глубина "предсказания" циклограммы(и соответственно буфера контроллера) рассчитывается из латентности тракта приемо-передачи.
(собственно так и выглядит "мягкое реальное время")

← →
LAZudhic (2011-09-12 16:45) [39]

Простите меня, что не мог раньше ответить. В реальности движок работает 33 секунды этой установкой for 400. Станок надеюсь будет работать по дереву (но до это ещё долго) ну а теперь начинаю изучать команды break и go to .Всем спасибо!!!

← →
Сергей М. © (2011-09-12 16:54) [40]

> Станок надеюсь будет работать по дереву

Ну по дереву еще ладно - дерево и не такое стерпит)..
Там плюс-минус туда-сюда пол-сантимметра потом допиливается, шпаклюется-шлифуется и лажа "станкопрограммиста" в результате практически не заметна)

← →
LAZudhic (2011-09-12 16:58) [41]

вот можешь воодушевить =)

← →
LAZudhic (2011-09-12 17:25) [42]

НУ ЧТО поехали нужна маленькая помощь к примеру при нажатии кнопки пуск запускается цикл а при нажатии кнопки стоп и команды break выход из цикла(посоветуйте как это сделать и если не сложно объяснить )
вот код программы после создания второй кнопки:

unit Unit155;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function Inp32(PortAdr: word): byte; stdcall; external "inpout32.dll";
function Out32(PortAdr: word; Data: byte): byte; stdcall; external "inpout32.dll";
procedure TForm1.Button1Click(Sender: TObject);
var i,j,a,b: Integer;
begin
for i := 1 to 400 do
begin
out32(888,17);
out32(888,19);
sleep(20);
out32(888,18);
out32(888,22);
sleep(20);
out32(888,20);
out32(888,28);
sleep(20);
out32(888,24);
out32(888,25);
sleep(20);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.

← →
Inovet © (2011-09-12 18:06) [43]

> [42] LAZudhic (12.09.11 17:25)
> при нажатии кнопки пуск запускается цикл а при нажатии кнопки
> стоп и команды break выход из цикла

type TForm1 = class(TForm) btStart: TButton; btStop: TButton; procedure btStartClick(Sender: TObject); procedure btStopClick(Sender: TObject); private { Private declarations } FlagStop: bool; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btStartClick(Sender: TObject); begin FlagStop := false; while not FlagStop do begin Application.ProcessMessages; end; ShowMessage("Stop"); end; procedure TForm1.btStopClick(Sender: TObject); begin FlagStop := true; end; end.

← →
Сергей М. © (2011-09-12 21:20) [44]

Дрова из-под такого станка выползут, вестимо, классные)
Чуть драчевым напильником шлифануть - и готова итальянская мебель)

← →
Inovet © (2011-09-12 21:31) [45]

А движки от принтера не надорвутся деревяшки таскать?

← →
Германн © (2011-09-13 00:24) [46]

> LAZudhic (12.09.11 17:25) [42]
>
> НУ ЧТО поехали

Мне одному кажется, что код по ссылке - "перевод на Дельфи" старой Паскалевской проги, написанной для MSDOS?

← →
Inovet © (2011-09-13 09:21) [47]

> [46] Германн © (13.09.11 00:24)
> что код по ссылк

По какой ссылке?

← →
Германн © (2011-09-13 10:37) [48]

> По какой ссылке?

Ну там, где "Поехали".
LAZudhic (12.09.11 17:25) [42]

← →
Inovet © (2011-09-13 10:55) [49]

> [48] Германн © (13.09.11 10:37)
> Ну там, где "Поехали".
> LAZudhic (12.09.11 17:25) [42]

ДОСовская по управлению шаговым двигателем? По распайке разъёма разве что пожно идентифицировать.
Идентифицировал
http://subscribe.ru/archive/comp.hard.38445/200704/15064647.html

← →
aleko © (2011-09-13 18:22) [50]

> Для компонентов можно использовать венгерскую нотацию, типа
> btnStart или dlgOpenFile или lblTime.

Что такое венгерская нотация? Первый раз слышу...
Достаточно мало-мальски знать англоязычный язык. Хотя и у меня с ним не совсем ладно, однако слова типа алярм, ворнинг, сэйв и импорт вполне понимаю. А для других случаев в сети есть транслейтер. Переведет хоть с языка суахили.

← →
Inovet © (2011-09-13 18:43) [51]

> [50] aleko © (13.09.11 18:22)
> Что такое венгерская нотация? Первый раз слышу...

Забанили в поиске?
http://ru.wikipedia.org/wiki/%D0%92%D0%B5%D0%BD%D0%B3%D0%B5%D1%80%D1%81%D0%BA%D0%B0%D1%8F_%D0%BD%D0%BE%D1%82%D0%B0%D1%86%D0%B8%D1%8F

← →
LAZudhic (2011-09-13 20:07) [52]

А движки от принтера не надорвутся деревяшки таскать?-всё зависит от типа редуктора конечно страдает производительность повышается точность и к тому же я не деревяшки таскать буду а двигатель с фрезой над деревяшками
теперь второе наконец избавился от цикла for в программе. Кроме палок в колёса и насмешок всё таки были дельные советы спасибо
теперь программа приобрела вот такой вид:

unit Unit15;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;// кнопка Пуск
Button2: TButton;// кнопка СТОП
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Stop: Boolean = False;
implementation

{$R *.dfm}
function Inp32(PortAdr: word): byte; stdcall; external "inpout32.dll";
function Out32(PortAdr: word; Data: byte): byte; stdcall; external "inpout32.dll";
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer; // переменые
begin
Button2.Enabled:=True;
Button1.Enabled:=False;
Stop:=False;
while not(Stop) do // длительность цикла
begin
//for i := 1 to 10 do

out32(888,17);// вывод на лпт pin 2,упр pin6
out32(888,19);//вывод на лпт pin 2,3,упр pin6
sleep(20);// пауза в милисекундах
out32(888,18);//вывод на лпт pin 3,упр pin6
out32(888,22);//вывод на лпт pin 3,4,упр pin6
sleep(20);// пауза в милисекундах
out32(888,20);//вывод на лпт pin 4,упр pin6
out32(888,28);//вывод на лпт pin 4,5,упр pin6
sleep(20);// пауза в милисекундах
out32(888,24);//вывод на лпт pin 5,упр pin6
out32(888,25);//вывод на лпт pin 5,1,упр pin6
sleep(20);// пауза в милисекундах
Application.ProcessMessages
end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Stop:=True;
Button2.Enabled:=False;
Button1.Enabled:=True;

end;

end.

← →
LAZudhic (2011-09-13 21:27) [53]

ну а теперь нужна помощь в другом как сделать чтоб 1-картинка JPEG сразу появлялась на форме после запуска программы и 2-можно ли без такого типа С:\1\1\1.jpg а проще если рисунок находится в том же каталоге с программой типа 1.jpg(рисунок будет отображать электронную схему при которой правильно будет работать программа ) код программы изложен выше что и куда дописать при использование image на форме?(надеюсь что ответ будет мне понятен будьте пожалуйста подробней ) заранее СПС =)

> надеюсь что ответ будет мне понятен

зря надеешься.
спроси почему.
а может сам догадаешься, перечитав свою же ахинею ?

Плохиш в отпуске?
Ну в самом деле...

← →
LAZudhic (2011-09-13 22:04) [56]

придётся опять самому весь интернет перекапывать вытаскивать из примеров с кнопками и прочих примеров на других сайтах впихивать их в свою программу и глядеть а вдруг получится нет не получается и дня три убить на то чтобы получилось как задумал ведь приятно когда с твоей программой учебника не надо а каждый прекрасно понимает для чего и как она будет работать (ну к примеру винап вы что учебник как правильно настроить использовать читали ,нет просто там всё понятно что для чего а теперь найдите программу для ЧПУ и вот вам и учебник нужен как правильно настроить что где поставить а в результате и второй раз вы полезете в учебник если первый раз всё таки установили я хочу чтоб даже 10 летний мальчуган не гонял по интернету в поисках ответа на данную программу )ай ладно не фотошоп же делаю мне денег за это не отсыпят

> придётся опять самому...

и это единственный путь познания дао...

> [56] LAZudhic (13.09.11 22:04)
> винап вы что учебник как правильно настроить использовать
> читали ,нет просто там всё понятно что для чего а теперь
> найдите программу для ЧПУ

ЧПУ посложнее Винампа вообще-то. Ребёнка 10-тилетнего к фрезе нельзя подпускать, и взрослого нельзя без сдачи экзамена по правилам техники безопасности.

> [52] LAZudhic (13.09.11 20:07)
> Button1: TButton;// кнопка Пуск
> Button2: TButton;// кнопка СТОП

И эта. Я там в примере имена не поленился нормальные дать, а ты снова Батон1, Батон2. И текст программы не форматируешь. Я уж не говорю, что в таком виде она бессмысленная.

Загружать схему. Какую схему - тебе программу для ЧПУ надо загружать и выполнять её в своей, для этого определиться с набором команд, потом с форматом хранения программы, в чём её будешь генерировать или вручную расчитывать и набивать. В управляущей программе, о которой мы тут говорим, надо предусмотреть чтение из файла сохранённой программы ЧПУ, разбор по операциям, их выполнение, и уже на сам нижнем уровне управление двигателями.

← →
LAZudhic (2011-09-13 23:08) [60]

так тут пожалуй СТОП а ты может и знаешь на какие контакты будет идти управление а на какие поворот двигателя у меня их подключено будет 3 Х,Y,Z плюс включение реле для фрезы например или выжегателя и т.п. а контактов всего 8(pin) на выход из LPT на шаговом двигателе от 4 до 6 проводов
и так задоча для какой я схемы сделал программу ????????????

← →
LAZudhic (2011-09-13 23:20) [61]

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

> [60] LAZudhic (13.09.11 23:08)
> и так задоча для какой я схемы сделал программу ????????????

Да пофиг для какой. Это нижний уровень - драйвер, он отрабатывает элементарные команды: сдвинуть в (х, y), опустить, поднять, включить, выключит и т.п.. Это отдельная программа считай. А ты про какие-то схемы в JPG как на экране рисовать.

Нормальные разработчики ПО для заводских станков, стендов и т.д. и т.п. делают для них контроллеры на микропроцессорах, которые и выполняют всю тонкую работу типа управления шаговыми двигателями. Причём с очень большой точностью (так что подойдёт не только для дерева! :) А ПО на персональном компьютере только задаёт в нужный момент нужную программу действий для контроллера, общаясь с ним по СОМ-порту/USB-порту и т.д. и т.п. без всяких временнЫх проблем.

> [63] Германн © (14.09.11 00:16)
> делают для них контроллеры на микропроцессорах

Вот. И автор когда-нибудь переделает, а в программе, при изначально грамотном подходе, надо будет заменить только "драйвер". Впрочем, пока и его нет.

> Вот. И автор когда-нибудь переделает, а в программе, при
> изначально грамотном подходе, надо будет заменить только
> "драйвер".

В ПО при изначально грамотном подходе останется только сделать удобный интерфейс. Удобный для конкретного пользователя. Что мы и делали уже для ЗИЛ"а, ПЕКАРЗ"а и ДААЗ"а.

> [64] Inovet © (14.09.11 00:37)

Я кажется понял всю "глубину" мысли автора. Программа для ЧПУ и будет состоять из последовательности вот таких строк
out32(888, aa); out32(888, bb); sleep(20);

> Я кажется понял всю "глубину" мысли автора. Программа для
> ЧПУ и будет состоять из последовательности вот таких строк

Именно так!
Но в ДОСе это нормально (более-менее) работало. Ибо однозадачная ОС. Для Винды сделали функции типа In32/Out32 чтобы работать с портами ввода/вывода. Но нынешний дельфийский Sleep не годится даже в подмётки старому турбопаскалевскому Delay. Именно по причине другой ОС.

> [67] Германн © (14.09.11 01:09)
> Но в ДОСе это нормально

Понятно что в Вин так делать не надо, тем более в настоящее время при доступных микроконтролерах. Я о том что неужели всё изготовление детали будет описано вот таким набором команд коммутации обмоток шагового двигателя.

> С:\1\1\1.jpg а проще

да, просто 1.jpg

> (рисунок будет отображать электронную схему при которой
> правильно будет работать программа )

те ты хочешь анализировать чертеж и по нему давать команды на обработку?
я как техник-технолог тяжелого машиностроения говорю: этого сделать практически не реально (может только для простых деталей анализировать контур)...

> Я о том что неужели всё изготовление детали будет описано
> вот таким набором команд коммутации обмоток шагового двигателя.
>

Ну, челу лень пробежаться в гугле по ключевым словам CNC и, для начала, вот сюда заглянуть

http://vri-cnc.ru/

> [69] brother © (14.09.11 03:08)
> те ты хочешь анализировать чертеж и по нему давать команды на обработку?

Нет, я выше уже понял. Это для удобства программирования обмоток. Ужас.

← →
LAZudhic (2011-09-14 16:40) [72]

нет вы меня не поняли я ещё не хочу заняться управлением я хочу чтобы человек собрав свой первый контролер на тм7 и драйвер(силовая часть) на транзисторах не ломал голову а как мне проверить работает ли он и тут скачав программу в которой есть рисунок (схема простого чпу) и нажимая на клавиши он проверит крутятся ли двигатели если нет то схема перед глазами и он начнёт искать неисправности в электрической части и так вы поможете мне вывести рисунок на форму или нет

> LAZudhic (14.09.11 16:40) [72]

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

> [72] LAZudhic (14.09.11 16:40)
> рисунок (схема простого чпу)
> и так вы поможете мне вывести рисунок на форму или нет

Архи сложно. Ты прикалываешься?
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) imgCircuit: TImage; btnLoad: TButton; procedure btnLoadClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnLoadClick(Sender: TObject); begin imgCircuit.Picture.LoadFromFile("MyCoolCircuit1.bmp"); end; end.

зациклился на циклах(начинающий) Найти похожие ветки