Оператор циклу з передумовою while

У бiльшостi задач цикли доводиться виконувати невідому кiлькiсть разів. Причому необхідне число повторень може бути визначеним тільки під час роботи програми, тобто в процесі обчислення задач.

Оператор циклу з передумовою while .. do призначений для організації багатократного виконання тiла циклу до тих пір, доки залишається істинною умова виконання циклу.

Оператор циклу з передумовою має вигляд:

While <логічний вираз> do <оператор>;

While (поки), do (виконати) – зарезервовані слова; логічний вираз – умова, яка визначає виконання циклу.

Обчислюється значення логічного виразу (умови). Якщо умова істинна (True), то виконується оператор (тіло циклу). Виконання програми знову повертається до перевірки умови циклу. Якщо умова хибна (False), то виконується оператор, який знаходиться після оператору циклу з передумовою. Якщо умова в операторі циклу хибна при першій же перевiрцi, то тіло циклу не виконується жодного разу.

Наприклад:

Якщо x=4, s=0. Після виконання команди циклу

While x<=8 do begin s:=s+x; x:=x+1 end; s=4+5+6+7+8=30, x=9.

Приклад 3. Скласти програму знаходження факторіала числа N, використовуючи оператор циклу з передумовою.

Текст програми

Program example3;

uses crt;

var

f : longint;

i ,n : byte;

begin

clrscr;

f:=1; {вказуємо початкове значення добутку}

i := 1; {вказуємо початкове значення лічильника}

write(’n=’);

readln(n);

while i<=n do

begin

f:=f*i; {множимо значення факторіала на наступний

елемент}

i := i+1; {збільшуємо значення лічильника на 1}

end;

writeln(’f=’,f);

readln;

end.

Оператор циклу з післяумовою repeat .. Until

Оператор циклу з післяумовою призначений для організації багатократного виконання тiла циклу до тих пір, поки умова виконання циклу не стане істинною (True).

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

Repeat <оператор> until <логічний вираз>;

Repeat (повторювати), until (до тих пір поки) — зарезервовані слова; логічний вираз – умова, яка визначає завершення циклу.

Спочатку виконується оператор (або оператори), які входять до тіла циклу. Потім обчислюється значення умови-виразу. Якщо умова хибна (False), то знову виконується тiло циклу. Якщо умова стає істинною (True), то виконання циклу припиняється i виконується наступний оператор програми.

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

Наприклад:

Якщо x=5, у=0. Після виконання команди циклу

repeat y:=y+x; z:=2*x; x:=x-2 until x<=1;

y=0+5+3=8, z=6, x=1.

Приклад 4.Скласти програму знаходження факторіала числа N, використовуючи оператор циклу з післяумовою.

Текст програми

Program example4;

uses crt;

var

f : longint;

i ,n : byte;

begin

f:=1; i := 1; {вказуємо початкове значення добутку та

лічильника}

write(’n=’); readln(n);

repeat

f:=f*i; {множимо значення факторіала на наступний елемент}

i := i+1; {збільшуємо значення лічильника на 1}

until n<i;

writreln(’f=’,f); readln; end.

2.3.3 Порядок виконання роботи

1. Розрахувати за допомогою трьох типів оператора циклу значення функції, наведеної в табл. 2.9 (згідно списку).

2. Скласти графічний алгоритм розв’язку задачі циклічних обчислень,

3. Виконати ідентифікацію змінних.

4. Скласти програму на мові Turbo Pascal. Передбачити уведення аргументів x1, xn, dx і ведення усіх значень аргументів та функції у наступному форматі:

x1= y1=

x2= y2=

……………

xn= yn=

5. Розв’язати задачу на ЕОМ у діалоговому режимі.

6. Оформити звіт.

Таблиця 2.9 – Завдання до лабораторної роботи

Варіант	Значення функції	x1	xn	dx
1	y=2x2-sin(x)	1	5	0.2
2	y=sin(x)+х3
3	y=e-x
4	y=50cos(x/2)
5	y=(cos(x))2
6	y=e-xsin(x)
7	y=x3-2x2+7
8
9	y=cos(x)/x
10	y=x4-1+sin(x)
11	y=1/(x2-1)
12	y=1/x3-1/x2
13	y=sin(2x)/(1-x)
14	y=xcos(x)
15	y=1/(x+sin(x2))