Операторы цикла
Задачи целочисленной арифметики
Командой
повторения или циклом называется такая форма организации действий, при которой
одна и та же последовательность действий повторяется до тех пор, пока сохраняется
значение некоторого логического выражения. При изменении значения логического
выражения на противоположное повторения прекращаются (цикл завершается).
Для
организации цикла необходимо выполнить следующие действия:
перед
началом цикла задать начальное значение параметра;
внутри
цикла изменять параметр цикла с помощью оператора присваивания;
проверять
условие повторения или окончания цикла;
управлять
циклом, т.е. переходить к его началу, если он не закончен, или выходить из
цикла в противном случае.
Различают
циклы с известным числом повторений (цикл с параметром) и итерационные (с пред-
и постусловием).
В
цикле с известным числом повторений параметр изменяется в заданном диапазоне.
Если
в цикле изменяется простая переменная, то она является параметром цикла; если в
цикле изменяется переменная с индексом, то индекс этой переменной является
параметром цикла.
Для
организации цикла с известным числом повторений в 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.
Предлагаем
читателю самостоятельно разобраться с представленным решением.
Список литературы
Для
подготовки данной работы были использованы материалы с сайта
http://comp-science.narod.ru