§ 23 Работа цикла для каждого (for)

Переменная цикла принимает указанное Вами начальное значение, если оно не превосходит конечного значения, указанного Вами, то выполняется тело цикла.

Затем переменная цикла принимает следующее по порядку целое числовое значение (оно всегда на 1 больше прдыдущего), и, если оно не превосходит конечного значения, то вновь выполняется тело цикла и т.д.

Как только переменная цикла достигнет конечного значения, тело цикла выполнится последний раз, а затем Паскаль переходит на выполнение команд, записанных после конца цикла.

Этот цикл не может зациклить.

Если же Вы ошибетесь и задатите начальное значение переменной цикла больше ее конечного значения, то цикл не выполнится ни разу.

§ 24 Модификация цикла для каждого

Встречаются задачи, в которых необходимо, чтобы начальное значение переменной цикла было больше ее конечного значения, а в процессе работы значение перменной цикла уменьшалось на 1. Тогда используют такую форму цикла ДЛЯ КАЖДОГО:

FOR переменная цикла := начальное знчение DOWNTO конечное значение DO

^{переменной цикла переменной цикла}

begin

команда1;

команда2;

. . .

командаn;

end;

В этом случае: начальное знчение переменной цикла больше или равно конечного значения переменной цикла

Работа этого цикла происходит аналогично, но значение переменной цикла каждый раз будет уменьшаться на 1 пока не достигнет конечного значения.

Например, Вы хотите напечатать на эране числа

10

9

8

. . .

-9

–10

Тогда можно написать такую программу:

Var I:integer;

BEGIN

FOR i:=10 DOWNTO -10 DO begin

Writeln (i);

end;

END.

Задания к § 21-24

1. Составьте программу, которая позволит вычислить сумму квадратов первых N натуральных чисел

S = 1² +2² +3² +…+N²

2. С оставьте программу вычисления средней температуры за сутки, если температура измеряется каждые два часа.

3. Составьте программу вычисления суммы:

S = 3¹ +3² +3³ +3⁴ +…+3^N

4. Вычислить произведение и сумму натуральных чисел, начиная от 12 до 2*N с шагом 2.

5. Составьте программу, которая позволит вычислить сумму кубов первых N натуральных чисел

S = 1³ +2³ +3³ +4³ +…+N³

6. Составить программу вычисления средней выручки магазина за неделю.

7. Составьте программу вычисления суммы:

S = 2 +4 +6 +8 +…+2*N

8. Составьте программу вычисления суммы:

S = 1 +3 +5 +7 +…+(2*N +1).

9. Необходимо протестировать группу из N человек. Каждый человек вводит: 1- если изучал английский язык;

2- если он изучал немецкий язык;

0. если не изучал никакой.

Составьте программу, определяющую сколько человек в каждой языковой группе.

10. Возвести в N-ую степень число 3, не используя операцию возведения в степень.

11. На заводе холодильников в ЭВМ вводится месячный план, а затем ежедневно - количество выпущенных холодильников. После этого вычисляется и печатается количество холодильников, которое осталось выпустить до плана. Составьте программу, реализующую данный алгоритм.

12. Гидрометслужба располагает информацией о t воздуха за каждый из дней прошедшей недели, а также о средней t за эту же неделю прошлого года. Составьте программу для ЭВМ, позволяющую определить: понизилась или повысилась средняя температура на данной неделе в данном году по сравнению с прошлым.

13. Рабочий работает 5 дней в неделю. Каждый день он сдает определенное количество деталей. Составьте программу вычисления средней выработки за неделю и общего количества деталей за неделю.

14. Составьте программу вычисления среднего количества посетителей музея за неделю, если известно количество их за каждый день.

15. Составьте программу определения среднего балла аттестата.

16. Цикл в цикле, например, изобразить на экране следующий

узор (типа шахматной доски):

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

ЖЖЖЖ ЖЖЖЖ ЖЖЖЖ

17. Написать программу для проверки знаний таблицы умножения на 9.