Цикл со счётчиком"
В начале присваивает заданной переменной (переменная-счётчик) начальное число. Переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. Цикл начинает повторение пока счётчик будет меньше или равен второму числу. Когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.
В строках с командами цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. Счётчик нельзя изменять внутри цикла пока он идёт.
Запись
for ПеременнаяСчётчик := Число Направление Второечисло do
begin
Строки с командами, которые должен повторять цикл;
end;
Пример
Программа, которая выводит числа от 5 до 10 и в конце пишет "Конец"
program raf105;
var i: integer;
begin
for i:=5 to 10 do
begin
writeln(i);
end;
writeln('Конец');
end.
Программа:
program test;
(c) NaaMan}
var b, n, s1, s2 : integer;
p : Int64;
begin
{Формируем массив А из 17 элементов от 58 до 98}
var a := ArrRandomInteger(17, 58, 98);
{Спрашиваем у пользователя число В}
write( 'Введите число В: ');
readln( b);
{n - счетчик для подсчета элементов, больших В}
{Обнуляем счетчик}
n := 0;
{Просматриваем каждый элемент в массиве а}
ForEach var x in a do
{Если он больше, чем В, по увеличиваем счетчик на 1}
if x > b then n := n + 1;
{Для вычисления произведения используем переменную Р}
p := 1;
{Выберем 5 первых элементов массива, от 0-го до 4-го}
for var x :=0 to 4 do
{Перемножаем}
p := p * a[x];
{Для вычисления суммы четных эл-в используем переменную S1}
s1 := 0;
{Переберем все элементы в массиве}
foreach var x in a do
{Если элемент чётный, т.е. делится на 2 без остатка,
то прибавляем его к S1}
if x mod 2 = 0 then
s1 := s1 + x;
{Для вычисления суммы эл-в, стоящих на нечетных местах,
используем переменную S2}
s2 := 0;
{Просмотрим индексы массива по порядку, 17 штук, от 0 до 16}
for var x := 0 to 16 do
{Если индекс нечетный, т.е. делится на 2 с остатком,
то складываем содержимое массива по этому индексу
с S2}
if x mod 2 = 1 then
s2 := s2 + a[x];
{А теперь всё это безобразие выводим на экран}
{Содержимое массива А}
writeln(a);
writeln( 'Количество элементов массива, больших чем ',b, ' - ', n, ' штук');
writeln( 'Произведение первых пяти элементов р = ', p);
writeln( 'Сумма всех чётных эл-в массива s1 = ', s1);
writeln( 'Сумма эл-в, стоящих на нечетных местах s2 = ', s2);
end.
Результат выполнения программы:
![Дан массив, состоящий из 17 элементов. Заполнить его целыми числами из отрезка [58;98].Вычислить:-Ко](/tpl/images/1727/3195/49047.jpg)
1) 51
2) 23
3) 35
4) 50
5) 104
Объяснение: