• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Цикл з передумовою.

Цикли з наперед відомим числом повторень при розв'язуванні практичних задач зустрічаються доволі рідко. Значно частіше число повторень циклу наперед невідомо, і тому доводиться застосовувати оператори WHILE та REPEAT .

Загальний вигляд оператора з передумовою:

WHILE <логічний вираз> DO <тіло циклу>;

Дія оператора полягає в тому, що тіло циклу виконується до тих пір, поки значення логічного виразу є істиним (true). Як тільки значення умови стане хибне , відбувається вихід з циклу і виконуватиметься наступний оператор.

Приклад.Роздрукувати символи латинського алфавіту

а)у звичайному порядку:

..........................

s:=’a’;

while s<=’z’ do

begin

write(s);

s:=succ(s);

end;

……………………

б)у зворотньому порядку:

..........................

s:=’z’;

while s>=’a’ do

begin

write(s);

s:=pred(s);

end;

……………………

Цикл з постумовою.

Загальний вигляд оператора з передумовою:

WHILE <логічний вираз> DO <тіло циклу>;

Дія оператора полягає в тому, що тіло циклу виконується до тих пір, поки значення логічного виразу є істиним (true). Як тільки значення умови стане хибне , відбувається вихід з циклу і виконуватиметься наступний оператор.

На відмінну від оператора WHILE в операторі REPEAT перевірка умови (обчислення значення логічного виразу) здійснюється в кінці оператора, тому оператор REPEAT забезпечує хоча б одне виконання тіла циклу.

Приклад. Складемо програму обислення функції y=n! з використанням операторів WHILE та REPEAT.

PROGRAM faktorial1;

USES Crt;

VAR i,n:INTEGER;

faktorial:LONGINT;

BEGIN

CLRSCR;

WRITE('Введiть значення n=');

READLN(n);

(* Використання циклу WHILE *)

faktorial:=1;

i:=1;

WHILE i<=n DO BEGIN

faktorial:=faktorial*i;

i:=i+1;

END;

WRITE('Значення n!, обчисленене');

WRITELN(' за допомогою циклу WHILE ',faktorial);

(* Використання циклу REPEAT *)

faktorial:=1;

i:=1;

REPEAT

faktorial:=faktorial*i;

i:=i+1;

UNTIL i>n;

WRITE('Значення n!, обчисленене');

WRITELN(' за допомогою циклу REPEAT ',faktorial);

END.

Читайте також:

1. Алгоритмічна конструкція повторення та її різновиди: безумовні цикли, цикли з після умовою та з передумовою.

Переглядів: 2097