Бройченко А.Г КОМАНДИ ПОВТОРЕННЯ (Turbo Pascal 7.0) КОМАНДИ ПОВТОРЕННЯ (Turbo Pascal 7.0) Інформатика-11 Тема-4

Бройченко А.Г Цикли Цикли Часто буває потрібно реалізувати алгоритми, де багаторазово повторюються одні й ті самі вказівки. У такому разі застосовують команди повторення. Розрізняють два типи повторень: Коли точно відомо, скільки разів слід повторювати задану послідовність команд. Коли послідовність команд виконується до виконання (або тільки при виконанні) конкретної поставленої умови.

Бройченко А.Г Цикли з параметром Цикли з параметром Коли кількість повторень відома – використовують команду повторення з параметром (for…). FOR лічильник := поч.знач. TO кінц.знач. DO BEGIN серія команд, що повторюються; END; Лічильник автоматично збільшується на 1 при кожному виконанні серії команд. Лічильник тільки цілого типу (integer). Лічильник можна використовувати для розрахунків всередині циклу, але не можна змінювати його значення ніякими командами.

Бройченко А.Г Цикли з параметром Цикли з параметром Початкове значення лічильника повинно бути більшим за кінцеве. Якщо значення лічильника повинно змінюватись від більшого числа до меншого, то використовують такий варіант команди повторення з параметром (for…). FOR лічильник := поч.знач. DOWNTO кінц.знач. DO BEGIN серія команд, що повторюються; END;

Бройченко А.Г Цикли з передумовою Цикли з передумовою Коли виконання команд циклу залежить від того виконується якась умова чи ні, то використовують повторення з передумовою (While…). WHILE умова DO BEGIN серія команд, що повторюються; END; Якщо умова справедлива, то серія команд виконується і виконавець повертається назад до перевірки умови. При невиконанні умови – не виконуються команди.

Бройченко А.Г Цикли з післяумовою Цикли з післяумовою Коли виконання команд циклу потрібно робити до тих пір, поки не виконається поставлена умова, то використовують повторення з післяумовою (Repeat…). REPEAT серія команд, що повторюються; UNTIL умова; Якщо умова несправедлива, то піся виконання серії команд виконавець повертається назад для повторного їх виконання. При виконанні умови – цикл закінчується.

Бройченко А.Г Цикли з умовами Цикли з умовами В циклах з умовами обовязково потрібно величину- лічильник змінювати всередині циклу примусово командою лічильник:=лічильник+1; Якщо цього не зробити, то цикл буде повторюватись нескінченну кількість разів (програма зациклиться). Щоб вивести програму при виконанні із нескінченного циклу потрібно натиснути Ctrl + Pause або Ctrl +C

Бройченко А.Г Програма знаходження синусів чисел від 1 до 50 (повторення з параметром) Program sinusss; Uses Crt; Var i:integer; (лічильник і цілого типу) y:real; Begin ClrScr; For і:=1 to 50 do (лічильник рахуватиме від 1 до 50) Begin y:=sin(i); (знайшли синус числа-лічильника) Writeln(y:3:1); ---(надрукували зразу ж результат) end; (кінець циклу) ReadKey; End.

Бройченко А.Г Програма знаходження синусів чисел від 1 до 50 (повторення з передумовою) Program sinusss; Uses Crt; Var i:integer; (лічильник і цілого типу) y:real; Begin ClrScr; і:=1; (початкове значення лічильника) While і<=50 do -----(поки і менше за 50) Begin y:=sin(i); (знайшли синус числа-лічильника) Writeln(y:3:1); ---(надрукували зразу ж результат) i:=i+1; (збільшуємо лічильник) end; (кінець циклу) ReadKey; End.

Бройченко А.Г Програма знаходження синусів чисел від 1 до 50 (повторення з післяумовою) Program sinusss; Uses Crt; Var i:integer; (лічильник і цілого типу) y:real; Begin ClrScr; і:=1; (початкове значення лічильника) Repeat (почати цикл) y:=sin(i); (знайшли синус числа-лічильника) Writeln(y:3:1); ---(надрукували зразу ж результат) i:=i+1; (збільшуємо лічильник) Until i>50; (повторювати поки і не стане більше 50) ReadKey; End.