Цикл - это многократно повторяющиеся действия с разными значениями исходных данных. Составляющими элементами любого цикла являются: Подготовка цикла - ПЦ, Тело цикла - ТЦ, Подготовка данных - ПД, Проверка условия - ПУ. Выполнение любого цикла начинается с ПЦ. Последовательность выполнения ТЦ, ПД, ПУ зависит от структуры цикла. В связи с этим различают следующие типовые структуры цикла: 1. Цикл с предусловием - ЦИКЛ ПОКА (WHILE … WEND). 2. Цикл с постусловием - ЦИКЛ ДО (DO … LOOP). 3. Цикл с параметром - ЦИКЛ со СЧЕТЧИКОМ (FOR … NEXT).Цикл с предусловием / ПОКА
Перед выполнением операторов тела цикла осуществляется проверка условия на продолжение цикла. Если условие справедливо (ветвь «Да»), то цикл повторяется, иначе происходит выход из цикла. Особенности данной структуры цикла: а) число повторений цикла заранее неизвестно; б) если при первой же проверке условия получается "Нет", то цикл не выполняется ни разу; <span> в) возможен «бесконечный цикл», когда проверка условия не дает выхода на ветвь «Нет». </span> Цикл с постусловием - ДО
<span>В блоке "Проверка условия" осуществляется проверка условия на прекращение цикла. Если условие справедливо (ветвь «Да»), то происходит выход из цикла, в противном случае цикл повторяется при новых значениях исходных данных. </span> Особенности данной структуры цикла: а) число повторений цикла заранее неизвестно; б) так как условие проверяется в конце цикла, то тело цикла выполняется как минимум один раз; <span> в) возможен «бесконечный цикл», когда проверка условия не дает выхода на ветвь «Да». </span> Цикл с параметром
Параметр цикла определяет число повторений цикла. Для параметра цикла указывается его начальное значение, конечное значение и шаг изменения. Тело цикла выполняется при каждом значении параметра цикла. Особенность данной структуры цикла заключается в том, что уже перед началом выполнения цикла известно количество его повторений. Пример.<span> Вычислить значения функции вида y = f(x) при изменении x от начального значения xn до конечного значения xk с постоянным шагом h.</span> Эта задача решается с помощью цикла с заданным количеством повторений. Число повторений определяется по формуле: n = (xk - xn) / h + 1.
На рисунках (см. ниже) представлены блок-схемы решения задачи: - с использованием цикла ПОКА; - с использованием цикла с ПАРАМЕТРОМ. ЦИКЛ - ПОКА ЦИКЛ С ПАРАМЕТРОМ
Блок 3 – подготовка цикла Блок 3 выполняет те же функции, Блок 4 – проверка условия что и блоки 3,4,7 в схеме слева. окончания цикла Блок 5,6 – тело цикла Блок 7 – подготовка информации для нового цикла Операторы цикла
Цикл с ПАРАМЕТРОМ реализуется в Бейсике с помощью оператора цикла FOR … NEXT. Формат записи оператора: FOR I = IN TO IK [STEP H] < операторы тела цикла > NEXT I Пояснения: - FOR (для), TO (до), STEP (шаг), NEXT (следующий) – служебные слова; - I – имя переменной, являющейся параметром цикла; - IN, IK, H – выражения, определяющие начальное значение IN параметра цикла, конечное значение IK параметра цикла и шаг изменения H параметра цикла. По умолчанию H=1. Значение выражений IN, IK, H должны удовлетворять следующим условиям: при H > 0 (шаг положительный) IN < IK; при H < 0 (шаг отрицательный) IN < IK.
Например: 1) FOR X=10 TO 100 STEP 2 LET Y=SQR (X) PRINT X,Y NEXT X 2) FOR X=10 TO 1 STEP – 1 LET Y=X - 2 PRINT X,Y NEXT X <span> <span>Важно запомнить следующее: </span>1.Вход в цикл минуя строку начала цикла FOR - запрещен. 2.Открыли цикл – не забудьте его закрыть. 3.Досрочный выход из цикла осуществляется с помощью оператора<span> EXIT FOR</span> 4.В структуре вложенных циклов цикл, открытый первым, закрывается последним. </span>
Var a,n,i,k:integer; Begin Readln(n); k:=0; i:=0; while i<n do Begin readln(a); if a>0 then k:=k+1; i:=i+1; end; Writeln(k); End. Если не будет хватать одного выполнения то напишешь "while i<n+1 do"
Var a,b,c,d : integer; <span>Begin </span> for a:=1 to 4 do for b:=a+1 to 4 do for c:=b+1 to 4 do <span> for d:=c+1 to 4 do </span> writeln(a:3,b:3,c:3,d:3); for a:=1 to 4 do <span> for b:=a+1 to 4 do </span> <span> for c:=b+1 to 4 do </span> writeln(a:3,b:3,c:3); for a:=1 to 4 do <span> for b:=a+1 to 4 do </span> writeln(a:3,b:3); for a:=1 to 4 do <span> writeln(a:3); </span> readln; <span> End.</span>