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

ОПЕРАТОРЫ ЦИКЛА

ЗАДАЧИ ЦЕЛОЧИСЛЕННОЙ АРИФМЕТИКИ

Командой повторення чи циклом називається таку форму організації дій, коли він сама й той самий послідовність дій повторюється до того часу, поки зберігається значення деякого логічного висловлювання. При зміні значення логічного висловлювання на протилежне повторення припиняються (цикл завершается).

Для організації циклу необхідні такі действия:

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

внутри циклу змінювати параметр циклу з допомогою оператора присвоювання;

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

управлять циклом, тобто. переходити для її початку, якщо він закінчено, чи виходити з циклу у протилежному случае.

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

В циклі з відомим числом повторень параметр змінюється в заданому диапазоне.

Если в циклі змінюється проста змінна, вона є параметром циклу; тоді як циклі змінюється змінна з індексом, то індекс цієї перемінної є параметром цикла.

Для організації циклу з певним числом повторень в 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 DivX 2 + 1) Or Log_Per;.

If Not (Log_Per) Then WriteLn (I) {Якщо I просте, друкуємо его}.

End;.

If Priznak Then WriteLn (N).

End..

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

Контрольные і питання задания Назовите відмінності итерационных циклів і циклу з параметром..

Какова структура оператора циклу з параметром? Як виконується цикл з парметром?.

Какого типу повинні прагнути бути пареметр циклу, його початкова й кінцеве значення циклі з параметром у мові Pascal?.

Могут чи параметр циклу, його початкова й кінцеве значення циклі з параметром у мові Pascal різних типів? Обгрунтуйте відповідь..

Может чи один цикл бути вкладено всередину іншого? Якщо можна, то як і глибина цієї вкладеності?.

Какова структура циклів з переді постусловием? як виконуються ці цикли?.

Каково мінімальне і забезпечити максимальне кількість виконань циклів з переді постусловием? З чим пов’язано?.

Сколько раз виповниться фрагмент програми?.

For і := 1 to -1 Do k:=k*i;.

Сколько раз виповниться фрагмент програми?.

For і := -1 to 1 Do k:=k*i;.

Сколько раз виповниться фрагмент програми?.

For і := 1 downto -1 Do k:=k*i;.

Сколько раз виповниться фрагмент програми?.

M := 123; While M 0 Do M := M Mod 10;.

Для циклу з параметром запишіть його повний еквівалент з допомогою циклів з переді постусловием..

Для циклу з предусловием запишіть його повний еквівалент з допомогою циклу з постусловием..

Для циклу з постусловием запишіть його повний еквівалент з допомогою циклу з предусловием..

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

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