Операторы цикла

Операторы цикла

Задачи целочисленной арифметики

Командой повторения или циклом называется такая форма организации действий, при которой одна и та же последовательность действий повторяется до тех пор, пока сохраняется значение некоторого логического выражения. При изменении значения логического выражения на противоположное повторения прекращаются (цикл завершается).

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

перед началом цикла задать начальное значение параметра;

внутри цикла изменять параметр цикла с помощью оператора присваивания;

проверять условие повторения или окончания цикла;

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

Различают циклы с известным числом повторений (цикл с параметром) и итерационные (с преди постусловием).

В цикле с известным числом повторений параметр изменяется в заданном диапазоне.

Если в цикле изменяется простая переменная, то она является параметром цикла; если в цикле изменяется переменная с индексом, то индекс этой переменной является параметром цикла.

Для организации цикла с известным числом повторений в Pascal используется оператор for.

Структура цикла, организованного с помощью этого оператора, имеет вид:

For I := A To B Do Begin End;

или.

For I := A DownTo B Do Begin End;

Здесь I — параметр, изменяющийся в цикле; A, B — выражения порядкового типа, обозначающие начальное, конечное значение параметра цикла. Шаг изменения номера параметра цикла равен 1, если в заголовке цикла стоит To (т.е. реально следующее значение параметра цикла вычисляется с помощью функции succ); и -1 — при DownTo (вычисление производится с помощью функции pred).

Порядок выполнения цикла с шагом 1 следующий: вычисляются значения начального и конечного значений параметра цикла; параметр если I принимает начальное значение; если I меньше или равно конечному значению, исполняется тело цикла; значение параметра цикла увеличивается, т. е. I := succ (I); проверяется условие I=B) и при его выполнении цикл повторяется. Выход из цикла осуществляется, если I>B (IB (или A Sum_Max Then Begin Sum_Max := Sum; Ch := I End;.

End;.

WriteLn («Максимальную сумму делителей », Sum_Max, «имеет число », Ch).

End..

Задача 4. Дано натуральное число n. Получить все простые делители этого числа..

{Программа отыскания простых делителей данного числа}.

Program Pr_Del;.

Var N, I, Vsp: Integer;.

Log_Per, Priznak: Boolean;.

Begin.

Write («Введите натуральное число: »);.

ReadLn (N);.

Priznak := True; {Признак того, не является ли введенное число простым}.

{Пока параметр цикла не превысил квадратного корня из данного числа,.

продолжаем поиск простых делителей}.

For I := 2 To Round (Sqrt (N)) Do.

If N Mod I = 0 Then.

Begin.

Priznak := False; {Введенное число не является простым}.

Log_Per := False; {Логическая переменная, принимающая значение True,.

если нашлись делители I, отличные от 1 и I}.

Vsp := 2;.

Repeat.

If (I Mod Vsp = 0) And (I Vsp) Then Log_Per := True;.

Vsp := Vsp + 1.

Until (Vsp > I Div 2 + 1) Or Log_Per;.

If Not (Log_Per) Then WriteLn (I) {Если число I простое, печатаем его}.

End;.

If Priznak Then WriteLn (N).

End..

Предлагаем читателю самостоятельно разобраться с представленным решением..

Список литературы

Для подготовки данной работы были использованы материалы с сайта internet.