Приклад використання вказівки повторення з передумовою
Задача. Знайти суму всіх натуральних чисел від 1 до N.
Program SUMA 1;
var I, N, S: integer;
begin
writeln (`введіть кількість натуральних чисел`);
write (`N=`);
readln (N);
I:=1;
S:=0;
while I<=N do
begin
S:=S+I;
I:=I+1;
end;
writeln (`S=`, S);
end.
Вказівка повторення з післяумовою
(цикл – REPEAT-UNTIL)
Вказівка повторення з післяумовою призначена для організації багатократного виконання групи вказівок (тіло циклу) до тих пір, поки умова виконання циклу не стане істинною.
repeat
<вказівка 1>;
<вказівка 2>;
………;
<вказівка n>;
until <умова>;
Наприклад,
repeat
S:=S+I;
I:=I+1;
until I>=4;
Службові слова вказівки означають:
repeat – повторювати, until – поки.
Вказівка повторення з післяумовою виконується таким чином. Спочатку виконуються вказівки, які входять в тіло циклу. Потім обчислюється значення умови-виразу. Якщо умова хибна (приймає значення FALSE), то знову виконуються вказівки тіла циклу. Якщо умова стає істинною (TRUE), то виконання циклу припиняється і виконується наступна вказівка програми.
Примітка.
1. Тіло циклу, яке складається з групи вказівок, не потрібно брати в дужки (begin – end), оскільки службові слова repeat – until відіграють роль дужок.
2. Тіло циклу у вказівці повторення з післяумовою виконується щонайменше один раз.
3. Умова вказівки є умовою виходу з циклу.
4. Входження в тіло вказівки повторення можливе тільки че-рез заголовок цієї вказівки.
Приклад використання вказівки повторення з післяумовою
Задача. Знайти суму всіх натуральних чисел від 1 до N.
Program SUMA 2;
var I, N, S: integer;
begin
writeln (`введіть кількість натуральних чисел`);
write (`N=`);
readln (N);
I:=1;
S:=0;
repeat
S:=S+I;
I:=I+1;
Until I>N
writeln (`S=`, S);
end.
В мові програмування Turbo Pascal логічна функція KeyPressed контролює натискання клавіш. Якщо жодна з клавіш не натиснута, ця функція приймає значення FALSE, інакше – TRUE.
Конструкція REPEAT UNTIL KeyPressed використовується для організації паузи в процесі виконання програми (до натискання будь-якої клавіші).
Вказівка повторення з параметром (FOR – TO – DO)
Вказівка повторення з параметром призначена для організації багатократного виконання тіла циклу для значень параметра циклу з деякої впорядкованої дискретної множини.
Вказівка повторення з параметром записується у вигляді
1. for <параметр:=вираз1> to <вираз 2> do
begin
<вказівка 1>;
<вказівка 2>;
………;
<вказівка n>;
end;
2. for <параметр:=вираз1> downto <вираз 2> do
begin
<вказівка 1>;
<вказівка 2>;
………;
<вказівка n>;
end;
Параметр вказівки (лічильник, індекс) – це змінна скалярного (цілого, символьного, логічного або перелічувального) типу, крім дійсного.
Вираз 1 (початковий параметр вказівки) – це деяка константа такого ж самого типу, що й параметр вказівки.
Вираз 2 (початковий параметр вказівки) – це деяка константа такого ж самого типу, що й параметр вказівки.
Якщо в тілі вказівки повторення з параметром необхідно виконати тільки одну вказівку, то складеної вказівки begin…end використовувати не потрібно.
for <параметр:=вираз1> to <вираз 2> do <вказівка 1>;
Вказівка повторення з параметром виконується таким чином:
1. Вказівка FOR – TO – DO.
Наприклад,
for I:=K to M do
begin
<вказівка 1>;
<вказівка 2>;
………;
<вказівка n>;
end;
Параметру циклу і присвоюється початкове значення К. Він порівнюється з кі¬нцевим значенням М. Якщо K<=M, то виконується тіло вказівки повторення. Значення К автоматично збільшується на 1 (тобто стає наступним елементом) і знову порівню¬ється зі значенням М. Якщо під час перевірки отримаємо, що K>M, то виконання вка¬зівки повторення припиняється і виконується наступна після неї вказівка програми. Якщо під час першого порівняння К і М виявиться, що K>M, то тіло вказівки не вико¬нується жодного разу.
2. Вказівка FOR – DOWNTO – DO.
Наприклад,
for I:=K downto M do
begin
<вказівка 1>;
<вказівка 2>;
………;
<вказівка n>;
end;
Параметру циклу і присвоюється початкове значення К. Він порівнюється з кі¬нцевим значенням М. Якщо K>=M, то виконується тіло вказівки повторення. Значення К автоматично зменшується на 1 (тобто стає попереднім елементом) і знову порівню¬ється зі значенням М. Якщо під час перевірки отримаємо, що K Примітка.
1. Вказівку повторення з параметром зручно використовувати в тих випадках, коли попередньо можна визначити кількість повторень.
2. Параметр циклу не повинен змінювати свого значення всередині тіла вказівки повторення, хоча його можна використовувати у будь-яких виразах вказівок тіла циклу
3. Параметр циклу повинен бути описаним у розділі змінних.
4. Значення параметра циклу після закінчення виконання вказівки повто-рення володіє кінцевим значенням, тому перед повторним його використанням йому необхідно знову присвоїти нове початкове значення.
Приклад використання вказівки повторення з параметром
Задача. Знайти суму всіх натуральних чисел від 1 до N.
Program SUMA 3;
var I, N, S: integer;
begin
writeln (`введіть кількість натуральних чисел`);
write (`N=`);
readln (N);
S:=0;
for I:=1 to N do
begin
S:=S+I;
end;
writeln (`S=`, S);
end.