Лабораторна робота №2 цикл з лічильником. Цикли з передумовою та післяумовою
МЕТА: Ознайомитись з операторами циклу з передумовою, післяумовою та циклом з параметром. Вивчити особливості використання даних операторів.
ЗНАТИ: формат запису циклічних операторів, принцип роботи в програмі.
ВМІТИ: використовувати циклічні оператори при написанні програм, застосовувати циклічні оператори при табулюванні функцій.
ОБЛАДНАННЯ: технічне забезпечення: ПЕОМ, програмне забезпечення: система програмування Turbo Pascal 6.0.
Короткі теоретичні відомості
Основні оператори мови Паскаль. Оператор циклу з параметром
За умови, коли відома кількість повторень тіла циклу, зручно використовувати оператор циклу з параметром.
Формат оператора:
for параметр_циклу:= вираз1 to вираз2 do оператор;
for (для), to (до), do (виконувати) – службові слова, параметр_циклу (або лічильник циклу) - ім’я змінної дискретного типу, вираз1 і вираз2 – вирази, тип яких співпадає з типом параметра циклу. Оператор – довільний оператор мови ТР. Складений оператор береться в операторні дужки.
Виконання оператора: обчислюється значення виразу1, це значення присвоюється параметру циклу. Потім обчислюється значення виразу2. Якщо значення параметра не перевищує значення виразу2, виконується тіло циклу, до параметра застосовується функція SUCC, отримане значення знову порівнюється зі значенням виразу2 і т.д. Після того як значення параметра перевищить значення виразу2, виконання оператора циклу закінчується.
Кількість повторень тіла циклу = значення_виразу2 - значення_виразу1 + 1
Якщо значення виразу1 більше значення виразу2, тіло циклу не виконується жодного разу.
Різниця між двома сусідніми значеннями параметра циклу називається кроком циклу.
Крок циклу з параметром завжди постійний і залежить від типу параметра.
Розглянутий формат оператора циклу використовується, коли параметр циклу зростає. Якщо параметр циклу спадає, використовується модифікований формат:
for параметр_циклу := вираз2 downto вираз1 do оператор;
На відміну від попереднього формату циклу, при виконанні оператора до параметра циклу застосовується функція PRED. Значення виразу2 повинно бути більше значення виразу1.
Приклад. Вивести у порядку спадання коди латинських літер.
Var ch :Char;
Begin
for ch:=’z’ downto ‘a’ do
Writeln(ch, ‘ - ‘, ord(ch))
End.
Циклічні оператори
Цикл у програмуванні – це повторюване виконання одних і тих самих простих або складених операторів. У Паскалі реалізовані три способи організації циклічних обчислень.
Оператор циклу з передумовою
Формат оператора:
while логічний_вираз do оператор;
while (поки), do (виконувати) – службові слова, оператор – довільний оператор мови ТР, який називається тілом циклу. Складений оператор береться в операторні дужки.
Виконання оператора: обчислюється значення логічного виразу, якщо воно дорівнює TRUE, виконується оператор і відбувається повернення до умови. Процес продовжується доти, поки значення логічного виразу не стане рівним FALSE. Після цього виконання циклу закінчується.
Якщо при першому обчисленні значення логічного виразу його значення дорівнює FALSE, тіло циклу не виконується жодного разу.
Зауваження. 1. Щоб цикл коли-небудь закінчив роботу, в його тілі повинен бути оператор, що впливає на значення логічного виразу. Краще, якщо цей оператор останній у тілі циклу.
2. Логічний вираз має бути коректним, тобто його значення повинно бути визначеним ще до першого виконання тіла циклу.
Приклад.
Обчислити значення
з точністю до 10-6.
Const eps=1E-6;
Var n: Integer; {сумування проводиться до тих пір,}
x,S: Real; {поки черговий доданок не стане менше}
Begin {заданої точності обчислень}
n:=1; S:=0; x:=1;
while abs(x) >= eps do
Begin
S:=S+x;
n:=n+1;
x:=1/sqr(n)
End;
Writeln(‘S=’, S)
End.
Оператор циклу з післяумовою
Формат оператора:
repeat оператор until логічний_вираз;
repeat (повторювати), until (до) - службові слова; оператор - довільний оператор мови ТР, в тому числі порожній. Складений оператор в операторні дужки не береться.
Виконання оператора: виконується тіло циклу, потім обчислюється значення логічного виразу. Якщо воно дорівнює FALSE, відбувається повернення до виконання тіла циклу, якщо TRUE – виконання циклу закінчується.
На відміну від циклу з передумовою, тіло циклу з післяумовою завжди виконується принаймні один раз. Це треба враховувати при виборі оператора для виконання циклічних обчислень.
Для циклу з післяумовою також справедливе зауваження 1.
Приклад. Фрагмент програми, в якому від користувача вимагається ввести ціле додатне число.
repeat
Write(‘Введіть додатне число: ’);
Readln(n)
until n>0;
Приклад. Перепишемо попередню програму підрахунку суми, використовуючи оператор циклу з післяумовою:
Const eps = 1E-6;
Var n: Integer;
x, S : Real;
Begin
n:=1; S:=0; x:=1;
repeat
S:=S+x;
n:=n+1;
x:=1/sqr(n)
until abs(x) < eps;
Writeln(‘S=’,S)
End.
Цей приклад показує, що оператор циклу з передумовою вигляду while B do S; може бути переписаний як оператор циклу з післяумовою repeat S until not B;