Урок 55 Розділ 6 § 6.7 Цикл з передумовою. Співвідношення типів даних та

та елементів для введення даних, зчитування даних з елементів введення

з лічильником в Object Pascal?
Як виконується команда циклу з лічильником

в Object Pascal?
Який вигляд має блок-схема циклу з лічильником? Поясніть виконання фрагмента алгоритму.
Чи можуть команди тіла циклу з лічильником виконуватися тільки один раз? Поясніть свою відповідь. Наведіть приклад.

фрагмент алгоритму починається з команди перевірки умови й результатом виконання

цієї команди може бути:

Істина (Так, true)

Хиба (Ні, false)

І залежно від результату виконання цієї команди – виконуватимуться:

Команди
тіла циклу

Команда алгоритму, наступна за циклом

або

певного логічного виразу, яке може бути:
True
False
або

в мові програмування Object Pascal має такий вигляд:
While
Then

begin
<команди тіла циклу>
end;

(англ. while - поки).

так: обчислюється значення логічного виразу; якщо це значення true, то

виконуються команди тіла циклу, після чого знову обчислюється значення логічного виразу, і якщо це значення знову true, то знову виконуються команди тіла циклу, після чого знову обчислюється значення логічного виразу;

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

тілі циклу лише одна команда, то операторні дужки begin і

end можна не ставити;

серед команд тіла циклу можуть бути й лінійні фрагменти, і розгалуження, й інші цикли.

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

з яких дорівнює заданому дійсному числу, а кожний наступний на 3 більший від попереднього, щоб їхня сума перевищила 100?

перший доданок. Вводитимемо його в поле.
Перед початком циклу присвоїмо:
Змінній

s

Змінній n

яку використаємо для збереження суми, значення першого доданка

яку використаємо для збереження кількості взятих доданків, присвоїмо значення 1, бо в сумі вже враховано один (перший) доданок.

наступні доданки, поки ця сума буде меншою, або дорівнюватиме 100.

Тому логічний вираз у заголовку циклу матиме вигляд

s <= 100

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

такий вигляд:
var a, s: real; n: integer;
begin
a := StrToFloat (Edit1.Text);
s

:= a; n := 1;
while s <=100 do
begin
a := a+3; s := s+a;
n := n+1;
end;
Label1.Caption := IntToStr(n);
end;

циклі.
Якщо при першій перевірці умова виявиться хибною, тіло циклу While

не виконається жодного разу.

значеннях змінної:
While X

(нескінченний цикл).
Num := 0;
While Num < 20 do
Label1.Caption :=

IntToStr(Num)

Для переривання нескінченного циклу треба натиснути сполучення клавіш
Ctrl + Break.

While А о 100 do
begin
А := А

+ 1;
Label1.Caption := IntToStr(A);
Application.ProcessMessages; // обробка повідомлень
Sleep(100); // зупинка на 0,1 с
end;
end;

Поки А менше за 100, збільшувати значення А на одиницю і виводити значення змінної у Label.
Для призупинення роботи програми на 100 мілісекунд використано процедуру Sleep.

послідовності натуральних чисел і суми п членів складається з таких

дій:

послідовності чисел
2,5; 3,0; 3,5; 4,0...
// Задаються початкові значення:
S :=

0; // суми S
і := 0; // лічильника доданків і
А := 2.5; // доданка А
While і < 20 do begin
S := S + A; // додається до суми S
А := А + 0.5; // обчислюється наступне значення доданка А
і := і + 1
end;

суми S
А:=1; // значення першого доданка А
і:=1;

// номер першого доданка
While A>0.01 do begin
і := і + 1;
А := 1/і; // Обчислення доданка А
S := S + А;
Label2.Caption := FormatFloat('0.####', A);
end;
Edit1.Text := FormatFloat('0.###', S);
end;

циклу.
Чи можуть команди тіла циклу з передумовою не виконуватись

жодного разу? Поясніть свою відповідь. Наведіть приклади.
Чи може виконання циклу з передумовою ніколи не закінчитися? Поясніть свою відповідь. Наведіть приклади.
Чим відрізняються між собою цикл з лічильником і цикл з передумовою?
У чому полягають відмінності у виконанні основних алгоритмічних структур: слідування, розгалуження, цикл з лічильником і цикл з передумовою?
Який загальний вигляд команди циклу з передумовою в Object Pascal?