1. Ознайомитися з правилами використання оператора циклу.

2. Освоїти побудову програм із застосуванням оператора циклу.

Хід роботи

1. Уважно розгляньте загальні відомості про застосування операторів циклу.

2. Ознайомтеся з маскою запису оператора циклу і принципом його роботи.

3. Уважно вивчіть алгоритм рішення і текст учбової програми по виведенню на екран суми ряду чисел.

4. Складіть звіт по практичній роботі, в якому приведіть опис призначення оператора циклу for … to … do, маску його запису, умову, алгоритм рішення і учбову програму з відповідними коментарями.

Загальні відомості

Оператори циклу призначені для реалізації циклічних алгоритмічних структур. У мові Turbo Pascal зазначено три різновиди операторів циклу:

• цикл з лічильником,

• цикл з передумовою

• та цикл з посту мовою.

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

Будь-який оператор циклу складається з двох частин: заголовка циклу та тіла циклу. У заголовку циклу записуються умови, за яких виконання циклу триватиме або завершитися, а в тілі циклу містяться оператори, виконання яких потрібно повторювати.

Оператор for. .. to. .. do

За допомогою оператора for. .. to. .. do реалізується цикл з лічильником. Цей оператор має такий синтаксис:

for “ змінна ": = а to n do {заголовок циклу}

<оператор>; {тіло циклу}

Де: “ змінна " – ідентифікатор деякої змінної порядкового типу даних, яка називається лічильником;

А – початкове значення лічильника;

п – його кінцеве значення;

<оператор> оператор тіла циклу.

На слідуючому кроці значення лічильника збільшується на одиницю.

Якщо початкове значення лічильника більше кінцевого, використовується такий різновид циклічного оператора:

for “ змінна ": = а downto n do {заголовок циклу}

<оператор>; {тіло циклу}

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

Якщо тіло циклу містить більше одного оператора, то ці оператори записуються в операторних дужках begin. .. end;. Напріклад:

for і:=1 to n do

begin

s:=s+а;

у:=2*х

end;

Учбова задача: Визначити суму ряду чисел від 1 до n якщо кожний член ряду чисел визначається по формулі:

R =

Розробляємо алгоритм рішення задачі:

Програма, що реалізує цей алгоритм приведена в таблиці.

1	2
{***************************}	Заголовок в вигляді коментаря
{ Turbo Pascal v.7.1 }
{ Програма Іванова И.І }
{***************************}
program prog1	Назва програми
Uses crt;	Модуль, що підключається
var i, n:integer;	Оголошення змінних
var sum: real;	Оголошення змінних
begin	Початок блоку програми
Clrscr;	Очищення екрана
sum:=0;	Привласнення первинного значення сумі
Продовження таблиці.
1	2
Writeln(' Enter the count of elements n=');	Запрошення ввести число доданків
readln(n);	Введення числа
for i:=1 to n do	Початкова ініціалізація і умова виконання циклу
Begin	Початок блоку циклу
sum:=sum + 1/Sqr(i);	Обчислення суми
end;	Кінець блоку циклу
Writeln('Summa = ', sum:5:3);	Виведення
Writeln(' Enter any key');	Запрошення
Readln;	Очікування натиснення клавіші
end.	Кінець блоку програми

Практична робота № 16

Програмування циклової задачі

Мета роботи: Отримати навички складання програм для реалізації циклічних алгоритмів.

Завдання:

1. Скласти схему алгоритму відповідно індивідуальному завданню;

2. Скласти програму відповідно схеми алгоритму, ввести ії в комп'ютер і отримати результат розрахунку.

Теоретичні відомості

Хід роботи

1. Скласти схему алгоритму у відповідності зі своїм варіантом.

2. Скласти програму вирішальну поставлену задачу.

3. Ввести програму в комп'ютер, відкоректувати її, у разі необхідності.

4. Отримати протокол розрахунку заданого варіанту.

5. Скласти звіт по практичній роботі, в якому привести умову варіанту завдання, алгоритм рішення, програму і результати її роботи.