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

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

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

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

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

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

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

керувати циклом, тобто переходити до його початку, якщо він не закінчений, або виходити з циклу в іншому випадку.

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

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

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

Для організації циклу з відомим числом повторень в 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 (I B (або 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