одно TRUE).
Тут як lt; умови gt; записується умова виходу з циклу.
Цикл з лічильником
Цикл із збільшенням лічильника:
Формат оператора: for lt; параметр gt; := Lt; НачальноеЗначеніе gt; to lt; КонечноеЗначеніе gt; do lt; Оператор gt ;;
Цикл із зменшенням лічильника:
Формат оператора: for lt; параметр gt; := Lt; КонечноеЗначеніе gt; downto lt; НачальноеЗначеніе gt; do Оператор;
Змінна, що стоїть після for в операторі циклу, називається лічильником, параметром або керуючої змінної циклу. Лічильник циклу - змінна порядкового типу; початкове і кінцеве значення лічильника, в загальному випадку, - вираження того ж типу, що й тип лічильника. Оператор, що стоїть після слова do, - тіло циклу - може бути складеним.
Ми познайомилися з операторами мови програмування Turbo Pascal для запису циклічних алгоритмів. Скористаємося цими операторами для вирішення наступного завдання:
Отримати таблицю температур за Цельсієм від 0 до 100 градусів та їх еквівалентів за шкалою Фаренгейта, використовуючи для перекладу формулу.
Перш ніж почнемо вирішувати, поділимося на три групи (розподіл проводиться будь-яким способом на розсуд викладачем).
Перша група розробляє а рішення даної задачі, скориставшись «циклом з передумовою».
Малюнок 3 - Блок-схема 1
Лістинг програми:
Program prim1;
Var Tc: integer; {температура за Цельсієм тип цілий}
Tf: real; {температура за Фаренгейтом тип дійсний}
Begin
Tc:=0; Tc lt;=100 do:=9/5 * Tc + 32; (Tc, Tf); lt; Тіло Циклу gt;:=Tc + 1;
End;
End.
Друга група розробляє цю ж задачу, використовуючи «цикл з лічильником»
Малюнок 4 - Блок-схема 2
Лістинг програми:
Program prim2;
Var Tc: integer; {температура за Цельсієм тип цілий}
Tf: real; {температура за Фаренгейтом тип дійсний}
Begin Tc:=0 to 100 do:=9/5 * Tc + 32; (Tc, Tf); lt; Тіло Циклу gt ;;
End.
Третя група розробляє рішення задачі за допомогою конструкції «цикл з постусловіем».
Малюнок 5 - Блок-схема 3
Лістинг програми:
Program prim3;
Var Tc: integer; {температура за Цельсієм тип цілий}
Tf: real; {температура за Фаренгейтом тип дійсний}
Begin:=0;:=9/5 * Tc + 32; (Tc, Tf); lt; Тіло Циклу gt;:=Tc + 1; Tc gt; 100.
Ви звернули увагу на те, що одну і ту ж задачу ми записали за допомогою трьох різних операторів.
Які висновки ви можете зробити? (Можна використовувати будь-який оператор циклу. Є обмеження у використанні циклу For (крок зміни параметра циклу повинен бути 1 або - 1. Якщо не відомо скільки разів буде виконуватися цикл, то використовуємо While або Repeat).
4) Закріплення знань.
Для закріплення матеріалу вирішимо наступну задачу:
Отримати таблицю перекладу відстані з дюймів в сантиметри для значень довжин від 1 до 20 дюймів. (1 дюйм=2,54 см)
Який тип циклу оптимальний для вирішення даного завдання? (Відповідь: цикл з параметром)
Давайте намалюємо на дошці блок-схему вирішення цієї задачі з використанням структури циклу з параметром (з лічильником).
Малюнок 6 - Блок-схема 4
Лістинг програми:
Program prim1; d: integer;: real; d:=1 to 20 do:=d * 2.54; (d: 4, s: 5: 2) ;;
end.
Для наведеної задачі визначимо, які оператори утворюють тіло циклу, яка змінна є керуючої змінної циклу. Заповнимо таблицю:
Таблиця 1 - Аналіз завдання
Керуюча змінна ціклаНачальное значеніеКонечное значеніеШаг ізмененіяКолічество повторень ціклаd120120
Самостійна робота:
Розділившись на 2 групи розробити цю ж програму, використовуючи інший варіант циклу (з попередньою або наступною умовою). Завдання виконується на комп'ютерах в середовищі програмування Turbo Pascal. Для тих хто впорався із завданням будуть запропоновані додаткові завдання.
Звіт повинен містити:
1. Блок-схему алгоритм...
