Цикл – это такая организация действий, при которой некоторая последовательность действий выполняется несколько раз. На языке Turbo Pascal имеются специальные операторы цикла:
- Оператор цикла с параметром For …do
- Оператор цикла с предусловиемWhile …
- Оператор цикла с пост условием Repeat…Until
Программа циклической структуры позволяет многократно повторять вычисления группы операторов при изменении одного или нескольких параметров. В зависимости от поставленной задачи различают циклы с известным и неизвестным числом повторений.
Оператор цикла с параметром For…do
Общий вид записи оператора:
1.for x:=<начальное значение > to <конечное значение > do
<тело цикла>;
2.for x:= <начальное знач.> down to < конечное. знач.>do <тело цикла>
Где х – параметр цикла, а тело цикла – простой и составной оператор.
Если начальное значение больше конечного, то выполняется оператор цикла 1 и шаг изменения параметра цикла равен +1.
Если начальное значение меньше конечного, то выполняется оператор цикла 2 и шаг изменения параметра цикла равен -1.
Переменные, используемые в цикле, описываются только переменные целого типа. Если в теле цикла более одного оператора, то они заключаются в операторные скобки.
Оператор цикла с пост условием Repeat…Until
Оператор цикла с постусловием организует выполнение цикла, состоящего из любого количества операторов неизвестное заранее количество раз. Выход из цикла осуществляется, если некоторое логическое выражение окажется истинным. Так как истинность логического оператора проверяется в конце, тело цикла выполняется хотя бы один раз.Структура оператора: REPEAT <Оператор 1>; <Оператор 2>; . . . <Оператор N>; UNTIL <условие>;В этой структуре: <Оператор 1>; <Оператор 2>; . . . <Оператор N>; - тело цикла. <условие> -логическое выражение, ложность которого проверяется после выполнения тела цикла.Задания для самостоятельного выполнения.1. Вычислите сумму ряда S = 1 + 1/x + 1/2x + 1/3x + ... 1/nx, для n введённого с клавиатуры.2. Определите значения функции y=0,4x^2-1/x для x изменяющегося от 2 до 10 с шагом 0,5.3. Вычислить значение n! для n введённого с клавиатуры.4. Вычислить сумму ряда Y = 1! + 2! + 3! + ... n!, для n введённого с клавиатуры. 5. Нарисовать "сетку" размером 10x10, состоящую из кругов одного размера, заполненных разным орнаментом разного цвета.6. Нарисовать "наклонённую сетку" размером 10x10, состоящую из параллелепипедов одного размера, заполненных разным орнаментом, разного цвета.7. Нарисовать "пирамиду" сложенную из прямоугольников одинакового размера, заполненных разным орнаментом, разного цвета. В основании пирамиды 20 прямоугольников.
Урок №12