Обучающая: сформировать у учащихся представления о циклах и их видах, обучить учащихся применять операторы при решении задач и выполнять задания по образцу; Развивающая: формирование умений воспринимать и осмысливать материал – выделять главное, составлять план; развитие привычек учебного труда – готовности к занятию, организованности; Воспитывающая: воспитание умению работать самостоятельно. Основная часть Операторы цикла используются для организации циклов (повторов). Цикл представляет собой последовательность операторов, которая может выполняться более одного раза. Группу повторяемых операторов называют телом цикла. Операторы цикла. Чтобы закрепить ваши знания по теме «Операторы цикла» рассмотрим решение следующих задач: Задача 1 Даны целые числа, найти сумму первых 5 элементов ряда: Всего имеются три вида операторов цикла: for - с параметром While - с предусловием repeat и Until - с постусловием

Оператор цикла обеспечивает выполнение тела цикла, которым является оператор, расположенный после слова do, до полного перебора всех значений параметра цикла от начального до конечного с соответствующим шагом. Шаг параметра всегда равен 1 для первого формата цикла и -1 – для второго формата. То есть значение параметра последовательно увеличивается (for … downto) на единицу при каждом повторении цикла. Если между begin и end находится только одна инструкция, то слова begin и end можно не писать. Оператор цикла с параметром Оператор цикла for используется когда количество повторов известно заранее. Его еще называют цикл со счетчиком. Оператор цикла с параметром имеет два формата: Параметр цикла представляет собой переменную порядкового типа, которая должна быть определена в том же блоке, где находится оператор цикла. Выражение 1 и Выражение 2 являются, соответственно, начальным и конечным значениями параметра цикла должны иметь тип, совместимый с типом параметра цикла. for := to do ; и for := downto do ;

Алгоритм, соответствующий инструкции for, представлен на рис. 1. рис. 1. Алгоритм инструкции for

Обратите внимание, что если начальное значение счетчика больше конечного значения, то последовательность операторов между begin и end не будет выполнена ни разу. Кроме того, после каждого выполнения инструкций тела цикла счетчик циклов увеличивается автоматически. Переменную-счетчик можно использовать внутри цикла (но ни в коем случае не изменять). РЕКОМЕНДАЦИИ: Использовать цикл for при заранее известном количестве повторений. Не изменять параметр в теле цикла. При использовании кратных (вложенных) циклов применять разные переменные в качестве параметров. Определять до цикла значения всех используемых в нем переменных. Не ставить точку с запятой после do. попро

Решение задачи 1 procedure TForm1.Button2Click(Sender: TObject); var a,i,s: integer; begin a:=strtoint(edit1.Text); s:=0; for i:=1to 5 do s:=s+sqr(a); label1.Caption:=inttostr(s); end;end. орлролролролрлролролллллллллллллллллллллллл

кене

Инструкция while Инструкция (цикл) while используется в том случае, если некоторую последовательность действий (инструкций программы) надо выполнить несколько раз, причем необходимое число повторений во время разработки программы неизвестно и может быть определено только во время работы программы. Типичными примерами использования цикла while являются вычисления с заданной точностью, поиск в массиве или в файле. В общем виде инструкция while записывается следующим образом: Задача 2 Дана последовательность 3,6,12, Найти сумму первых 13 членов данной последовательности ( Примените цикл While). Для решения этой задачи необходимо использовать оператор цикла While. while do ; begin begin // здесь инструкции, которые надо выполнить несколько раз End Здесь while, do - зарезервированные слова (пока [выполняется условие], делать), <условие> - выражение логического типа, определяющее условие выполнения инструкций цикла.; <оператор> - произвольный оператор Object Pascal. апрапр

Инструкция while выполняется следующим образом: 1. Сначала вычисляется значение выражения условие. 2. Если значение выражения условие равно False (условие не выполняется), то на этом выполнение инструкции while завершается. 3. Если значение выражения условие равно True (условие выполняется), то выполняются расположенные между begin и end инструкции тела цикла. После этого снова проверяется выполнение условия. Если условие выполняется, то инструкции цикла выполняются еще раз. И так до тех пор, пока условие не станет ложным (False). hgj

Для того чтобы цикл завершился, нужно, чтобы последовательность инструкций между begin и end влияла на значение выражения условие (изменяла значения переменных, входящих в выражение условие). Алгоритм, соответствующий инструкции while, представлен на рис.2 рис.2 Алгоритм инструкции while jhk

Решение задачи 2 procedure TForm1.Button1Click(Sender: TObject); Var a,i,x,s:real; begin x:=StrToFloat(edit1.Text); i:=1; a:=3; s:=0; While i<x do begin s:= s + a; a:= a * 2; i:= i + 1; Label1.Caption:=FloatToStr(s); end; end. hgj

jkljkl

Задача 3 Дана последовательность 3,6,12, Найти сумму первых 13 членов данной последовательности ( Примените цикл repeat и Until) Инструкция repeat Инструкция repeat, как и инструкция while, используется в программе в том случае, если необходимо выполнить повторные вычисления (организовать цикл), но число повторений во время разработки программы неизвестно и может быть определено только во время работы программы, т. е. определяется ходом вычислений. В общем виде инструкция repeat записывается следующим образом: Здесь repeat, until - зарезервированные слова (повторять [до тех пор}, пока [не будет выполнено условие]); <условие> выражение логического типа, определяющее условие завершения цикла. Repeat // инструкции until until Обратите внимание: пара repeat... unti1 подобна операторным скобкам begin... end, поэтому перед until ставить точку с запятой необязательно.

Инструкция repeat выполняется следующим образом: 1. Сначала выполняются находящиеся между repeat и until инструкции тела цикла. рис. 3. Алгоритм, соответствующий инструкции repeat 3. Если условие истинно (значение выражения условие равно True), то выполнение цикла прекращается. Таким образом, инструкции цикла, находящиеся между repeat и until, выполняются до тех пор, пока условие ложно (значение выражения условие равно False). 2. Затем вычисляется значение выражения условие. Если условие ложно (значение выражения условие равно False), то инструкции тела цикла выполняются еще раз. Алгоритм, соответствующий инструкции repeat, представлен на рис. 3. hgj

Инструкции цикла, находящиеся между repeat и until, выполняются как минимум один раз. Для того чтобы цикл завершился, необходимо, чтобы инструкции цикла, располагающиеся между repeat и until, изменяли значения переменных, входящих в выражение условие. Для гибкого управления циклическими операторами for, while и repeat в состав Object Pascal включены две процедуры без параметров: break - реализует немедленный выход из цикла; действие процедуры заключается в передаче управления оператору, стоящему сразу за концом циклического оператора; continue - обеспечивает досрочное завершение очередного прохода цикла; эквивалент передачи управления в самый конец циклического оператора. сми

hkhjk

Решение задачи 3 Var a,i,s,x : real; begin x:=StrToFloat(edit1.Text); i:=1; a:=3; s:=0; repeat s:= s + a; a:= a * 2; i:= i + 1; until i>x; Label1.Caption:=FloatToStr(s); end; end. про

3.2 Студенты самостоятельно пишут программы для следующих задач: 1. Дана последовательность чисел от 1….N. Найти сумму 50 первых членов данной последовательности. 2. Напишите программу, которая вычисляет значение функции в точках -1, - 0.5, 0, 0.5 и 1 До свидания! 3.1Самостоятельно проанализируйте задачу 3; 3.3 Для получения оценки вам необходимо ответить на тестовые вопросы. 3. Закрепление 4. Заключительная часть 4.1 Подведение итогов урока 4.2 Выставление оценок 4.3 Выдача домашнего задания Самостоятельно изучить новый материал на тему «Графические методы. Графические компоненты Shape, Bevel,Таймер (Timer)» и законспектировать. пар