8 За новою програмою Урок 42 Цикл з

8 За новою програмою Урок 42 Цикл з лічильником

8 Команда циклу з лічильником в Object Pascal У мові програмування Lasurus цикл із лічильником описується оператором for. . . For i : = to do ; Параметр циклу Початкове значення параметра циклу Кінцеве значення параметра Тіло циклу Крок зміни параметра циклу = 1 For i : = downto do ; Крок зміни параметра циклу = -1 Розділ 6 § 6.

8 Команда циклу з лічильником в Object Pascal Величина параметра циклу, його початкового та кінцевого значень можуть бути: Крок зміни циклу завжди однаковий і дорівнює інтервалу між двома найближчими значеннями типу параметра (при цілочисельному значенні параметра крок дорівнює 1). Цілими числами Належати до деякого спискуабо. Розділ 6 § 6.

8 Команда циклу з лічильником в Object Pascal Можна скористатись величиною перелічуваного типу. Наприклад: Списком непарних чисел першого десятка Списком голосних літер українського алфавіту 1, 3, 5, 7, 9 ‘ а’, ‘о’, ‘у’, ‘е’, ‘и’, ‘і’, ‘ї’, ‘ю’ Список значень у мові програмування Lasurus обмежують круглими дужками ( )Розділ 6 § 6.

8 Для тих, хто хоче знати більше Розділ 6 § 6. 6 Існує різновид команди циклу з лічильником, у якому лічильник не збільшується на 1, а зменшується на 1: For <ім'я змінно» : = downto do begin end ; (англ. down to — униз до). Цей цикл продовжує виконуватися, якщо значення лічильника циклу більше або дорівнює (не менше) значенню вираз 2.

8 Синтаксис і правила застосування циклу For Проаналізувати, чому цикл не виконується жодного разу. For А : = 10 То 0 Do S = S + А; Якщо при використанні форми То кінцеве значення параметра циклу менше за початкове, то цикл не виконається жодного разу. Розділ 6 § 6.

8 Синтаксис і правила застосування циклу For Обчислити факторіал числа n за формулою n! = 1 х2 х. Зх. . . хn. var i, n, f: nteger; begin n : = Str. Tont (Edit 1. text); f: = 1; For i : = 2 to n Do f : = f * i; Edit 2. text : = nt. To. Str(f); end ; Розділ 6 § 6.

8 Розділ 8 § 41 З клавіатури вводяться п’ять дійсних чисел, серед яких можуть бути як додатні, так і від’ємні числа. Знайти середнє арифметичне додатних чисел. var і, k: Integer; a, Sr: Double; Begin Sr : = 0; к : = 0; // лічильник додатних чисел For і : = 1 to 5 do begin а : = Str. To. Float(lnput. Box(‘Bвести 5 чисел’, nt. To. Str(i), ‘0’)); If a > 0 Then begin к : = к + 1; Sr : = Sr + a; end ; Sr : = Sr / k; Edit 1. text : = Float. To. Str(Sr); end ;

8 Компонент List. Box (Список) Для виведення отримуваних у циклі значень змінних у кілька рядків зручно скористатися компонентом List. Box (Список). Компонент Listbox (вкладка Standard на палітрі компонентів) призначений для зберігання й опрацювання текстових даних. Кожен рядок Listbox зберігає рядок даних у форматі String. Розділ 6 § 6.

8 Компонент List. Box (Список) Доступ до рядків надає властивість Items цього компонента. Розділ 6 § 6.

8 Компонент List. Box (Список) Для додавання рядка до списку програмним шляхом призначено метод Add. Синтаксис його виклику такий: List. Box 1. Items. Add(‘Новий_рядок’); Додати до списку List. Box значення виразу 2 * х : List. Box 1. ltems. Add (Int. To. Str (2 * х)); Розділ 6 § 6.

8 Компонент List. Box (Список) Щоб очистити вміст списку, для елемента керування List. Box викликають метод Clear : List. Box 1. Clear; Властивість Count зберігає кількість рядків, доданих до списку. Розділ 6 § 6.

8 Компонент List. Box (Список) Додати до списку List. Box літери із заданого діапазону: var i, nv, kv: Char; begin nv : = Edit 1. Text[1]; kv : = Edit 2. Text[1]; For i : = nv to kv Do List. Box 1. Items. Add (i); end ; Розділ 6 § 6.

8 Розгадайте ребус Цикл. Розділ 6 § 6.

8 Дайте відповіді на запитання 1. Чи можуть команди тіла циклу з лічильником не виконуватись жодного разу? Поясніть свою відповідь. Наведіть приклад. 2. Чи може виконання циклу з лічильником ніколи не закінчитися? Поясніть свою відповідь. Наведіть приклад. 3. У чому полягають відмінності у виконанні основних алгоритмічних структур: слідування, розгалуження, цикл. Розділ 6 § 6.

8 Домашнє завдання Проаналізувати § 6. 6, ст. 213 -216 Розділ 6 § 6.

8 Працюємо за комп’ютером Сторінка 216 Розділ 6 § 6.

8 Дякую за увагу! За новою програмою Урок