При решении многих задач некоторую последовательность действий приходится выполнять несколько раз. Например, программа контроля знаний выводит вопрос, принимает ответ, добавляет оценку за ответ к сумме баллов, затем повторяет это действие еще раз, и еще, до тех пор, пока не будут выведены все вопросы. Другой пример. Чтобы найти фамилию человека в списке, надо проверять первую фамилию списка, потом вторую, третью и т.д. до тех пор, пока не будет найдена нужная или не будет достигнут конец списка. Такие повторяющиеся действия называются циклами и реализуются в программе с использованием операторов циклов.
Оператор цикла for.
Оператор for используется если надо выполнить некоторую последовательность действий несколько раз, причем заранее известно число таких повторений. Также удобно использовать этот оператор, когда необходимо некоторым образом использовать в теле цикла информацию о номере очередной итерации.
Синтаксис оператора цикл for:
For i:=n1 to n2 do
Begin
{последовательность операторов};
end;
Либо:
For i:=n2 downto n1 do
Begin
{последовательность операторов};
end;
Где i – это счетчик цикла, который обязательно должен быть объявлен в разделе var, и иметь целочисленный тип;
n1 – начальное значение счетчика, которое является значением выражение, определяющее начальное значение переменной – счетчика цикла;
n2 – конечное значение счетчика, которое является выражением, определяющим конечное значение переменной – счетчика циклов.
Примечания:
1) Если между begin и end находится только одна инструкция, то begin и end можно не писать.
2) Шаг изменения переменной – счетчика циклов может быть равен только 1(если используется ключевое слово to) или –1 (если используется ключевое слово downto).
3) Категорически не рекомендуется проводить какое–либо изменение переменной – счетчика цикла внутри тела цикла.
Оператор цикла for работает следующим образом:
1) Вычисляется начальные и конечные значения параметра цикла;
2) Если начальное значение превосходит конечное, то тело цикла не выполняется. В противном случае, изменяется параметр цикла и вместе с каждым его значением выполняется тело цикла.
Примеры:
· у=1+1/2+1/3+…+1/n
у:=0;
for i:=1 to n do
y:=y+1/i;
writeln (‘y=’,y:5:2);
· Вывести на экран и вычислить сумму квадратов целых чисел от 1 до n.
s:=0;
for i:=1 to n do begin
s:=s+sqr(i);
writeln (sqr(i));
end;
writeln (‘s=’,s);
· y=xk
y:=1;
for i:=1 to k do
y:=y*x;
writeln (‘y=’,y:5:2);
Задание: Составить полностью программы для разобранных выше примеров.
Задачи:
1. Напечатать "столбиком":
а) все целые числа от 20 до 35;
б) квадраты всех целых чисел от a до b (значение b вводится с клавиатуры; b≥10);
в) третьи степени всех целых чисел от a до 50 (значение a вводится с клавиатуры; a≤10);
г) все целые числа от a до b (значение a и b вводятся с клавиатуры; b≤a).
2. Одна штука некоторого товара стоит 20.4 руб. Напечатать таблицу стоимости 2, 3, ..., 20 штук этого товара.
3. Напечатать таблицу соответствия между весом в фунтах и весом в килограммах для значений 1, 2, ..., 10 фунтов (1 фунт = 453 г).
4. Напечатать таблицу перевода 1, 2, ..., 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).
5. Составить таблицу умножения на 9.
6. Составить таблицу умножения на число n (значение n вводится с клавиатуры; 1≤n≤9).
7. Рассчитать значения y для значений x, равных 4, 5, ..., 28:
y = 2y2 + 5,5t – 2,
t = x + 2.
8. Рассчитать значения z для значений a, равных 2, 3, ..., 17:
z = 3,5t2 – 7t + 16,
t = 4a.
9. Найти:
a) сумму всех целых чисел от 100 до 500;
б) сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a≤500);
в) сумму всех целых чисел от -10 до b (значение b вводится с клавиатуры; b≥ -10);
г) сумму всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b≥a).
10. Найти:
а) среднее арифметическое всех целых чисел от 1 до 1000;
б) среднее арифметическое всех целых чисел от 100 до b (значение b вводится с клавиатуры; b≥100);
в) среднее арифметическое всех целых чисел от a до 200 (значение a вводится с клавиатуры; a≤200);
11. Найти:
a) сумму кубов всех целых чисел от 20 до 40;
б) сумму квадратов всех целых чисел от a до 50 (значение a вводится с клавиатуры; 0≤a≤50);
в) сумму квадратов всех целых чисел от 1 до n (значение n вводится с клавиатуры; 1≤n≤100);
г) сумму квадратов всех целых чисел от a до b (значение a и b вводится с клавиатуры; b≥a).
12. Дано натуральное число n. Найти сумму n2 + (n+1)2 + ... + (2n)2.
