justify"> Розглянемо другий Різновид відряд циклу for:
for <параметр>: = <вирази 1> downto span> <віраз2> do <команда 1>;
Ця команда Діє як попередня, альо крок Зміни параметра є -1. p align="justify"> Приклад. Нехай s = 0. После Виконання відряд циклу
for i: = 6 downto 4 do begin s: = s + i; z: = 2 * i end;
змінна s Набуда значення 0 +6 +5 +4 = 15, а змінна z - 8.
Значення параметра в середіні циклу змінюваті НЕ можна.
2. Команда циклу з Передумови (while) має вигляд
while <логічний вирази> do <команда 1>;
Дія команди. Доки Значення логічного вирази істінне, віконується команда 1. Істінній логічний вирази опісує умову продовження процеса Виконання відряд циклу.
Приклад. Нехай змінні х, s мают Значення х = 4, s = 0. После Виконання відряд
while x <= 8 do begin s: = s + x; x: = x + l end;
смороду набудуть значень s = 4 +5 +6 +7 +8 = 30, x = 9.
Приклад. вивести таблицю чисел від 20 до 30, їхні квадратами та кубі помощью відряд while можна так:
і: = 20;
while и <= 30 do
begin
writeln (i: 4, i * i: 6, i * i * i: 8);
і: = і + 1
end;
Задача. Протабулюваті функцію у = sin х на проміжку [0; 3,1], з кроком h = 0,1 и обчісліті середнє Арифметичний (s1) значення Функції більшіх, чем 0,1 и менших, чем 0,6.
program FindSerednie;
uses Cr...