Тема цикличности одна из самых важных для любого автоматического процесса. Так как, вся работа автоматики заключается в постоянном повторении процесса по заданному циклу сегодня мы уделим этому процессу наше внимание. Мы уже знакомились с цикличностью в этой статье. Теперь к практике, предположим, Вам необходимо заполнить бочку 200 литровой емкости - водой. Что Вы сделаете:
1- возьмете ведро, объемом 10 литров.
2- наполните водой
3- донесите ведро до бочки
4 - перелейте воду в бочку.
5 - повторяем цикл снова.
Как видим из этих пунктов, повторив их заданное число раз мы наполним бочку водой, но есть определенные нюансы. С точки зрения математики можно подсчитать, что число циклов будет 200/10 = 20 раз.
то есть запускаем цикл от 1 до 20, как это будет выглядеть в программе на Паскале.
{программа простого цикла}
program cikl; {начало программы}
var {блок описания переменных}
count,v:integer; {считчик циклов -итераций, объем одного ведра}
begin {начало тела программы}
v:=10; {выбрали ведро емкостью в 10 литров}
writeln ('воды в бочке 0 литров'); {описали начальные условия}
for count :=1 to 20 do {запустили цикл от 1 до 20}
begin {тело цикла}
writeln ('Заливаем ',count,'-ое ведро'); {оповещаем, какое ведро мы залеваем}
writeln ('воды в бочке ', count*10, ' литров'); {оповещаем сколько литров в бочке по нашим расчетам}
end; {окончание цикла}
end. {окончание тела программы.}
Данный код, абсолютно рабочий, и проверен тут. Как видим оператор цикла FOR счетчик:=1 TO 50 DO действие, является достаточно простым, но есть ряд задач, которые он не сможет решить.
Возвращаемся к нашей бочке, и понимаем, что полное ведро до бочки не до несем - оно немного расплескается, значит принесем не 20 ведер, а больше, но программа должна понимать точное значение.
В этом случае может применить цикл по условию: выполнять до тех пор, пока не выполниться условие. Это будет цикл с постусловием, сперва выполняем действие, а потом проверяем условие, в некоторых циклах это очень важно:
REPEAT действие UNTIL условие.
Repeat v:=v+10;
Until v<200
Еще один оператор цикла WHILE условие DO действие,(или тело небольшой программы). Этот оператор работает по принципу как и предыдущий, но по предусловию:
While v<200 do v:=v+10;
Ваша задача попробовать правильно поставить себе задачу на цикл (например расчет числа Фибоначчи по заданному номеру) и найти решение двумя способами.
Отличный пример применения циклов - это расчет матриц, сортировка таблицы, любой постоянный технологичный процесс. Пробуйте писать программы под простые и интересные задачи.
Если Вам понравилась публикация, подписывайтесь на канал, за Ваши лайки чаще показывают Наши публикации.
Для поиска публикаций через поисковые системы, просто вводите слово Вивитроника.
Если есть вопросы или по желания, то пишите, через Обратную связь.
