Оператор цикла с параметром

1. Определить значения переменных после выполнения фрагментов программы.
а) у:= 0; for k:= 2 to 6 do y:= y + k;

б) у:= 1; for k:= 6 downto 3 do y:= y + k;
в) у:= 1; for k:= 1 to 3 do y:= y + k; у:= y*10;
г) S:= 0; for i:= 1 to 4 do
begin S:= S * 10;
S:= S + i;
end;
д) у:= 0; for x:= 6 downto 2 do
y:= y + k; y:= y*2;

1. Напечатать ряд из повторяющихся чисел 20 в виде:
20 20 20 20 20 20 20 20 20 20.

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

3. Напечатать «столбиком»:
а) все целые числа от 20 до 35;
б) квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры; b ≥ 10);
в) третьи степени всех целых чисел от а до 50 (значение а вводится с клавиатуры; а ≤ 50);
г) все целые числа от a до b (значения а и b вводится с клавиатуры; b ≥ а);

4. Напечатать числа следующим образом:
а) 10 10.4 в) 25 25.5 24.8
11 11.4 26 26.5 25.8
......
25 25.4 35 35.5 34.8

б) 21 20.4 г) 16 15.5 16.8
22 21.4 17 16.5 17.8
......
35 34.4 24 23.5 24.8

5. Напечатать таблицу соответствия расстояний в дюймах расстояниям в сантиметрах для значений 10, 11, …, 22 дюйма (1 дюйм = 25,4 мм).

6. Напечатать таблицу перевода 1, 2, …, 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).

7. Распечатать в «столбик»
а) таблицу умножения на 7.
б) следующие числа:
4,4; 4,6; 4,8; …; 6,2; 6,4.
9. Распечатать в «столбик» таблицу умножения на число n
(значение n вводится с клавиатуры;
1 ≤ n ≤ 9).

10. Напечатать «столбиком» значения sin2, sin3, …, sin20.

11. Что будет напечатано на экране в результате выполнения фрагмента программы?
а) s:=0; б) m:=-3;
repeat s:=s+1; while m<=0 do
i:=s+1; m:=m+1;
until i>3; write(‘m=’,sqr(m));
write(s,’- результат’);

в) а:=1;
for n:=3 to 5 do
begin a:=a+2; writeln(‘a=’,a); end;

12. Рассчитать значения у для значений х, равных 4, 5, …, 28, если у задается следующей формулой:

у = 2 t ² + 5,5 t – 2,
t = x + 2.

13. Написатьпрограмму вычисления значений функции:

а) У= 2х / (х+1) для всех х из интервала [-2;2] с шагом равным 1.

б) k= 1/ + 4m для всех m из интервала [-5;5] с шагом равным 1.

в) z = (5,6 + b) / + 1/ b² для всех b из интервала [-4;4] с шагом равным 1.

14. Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу n.

15. Написать программу поиска двухзначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова данное число.

16. Даны натуральные числа n, k (n, k ≤ 9999). Из чисел от n до k выбрать те, запись которых содержит ровно три одинаковые цифры. Например, числа 6766, 5444, 0006, 0060 содержат ровно три одинаковые цифры.

Массив – формальное объединение нескольких однотипных объектов, рассматриваемое как единое целое.

Одномерный (линейный) массив – массив, у которого элементы – простые переменные. В одномерных массивах хранятся значения линейных таблиц.

При описании массива необходимо указать общее число входящих в массив элементов и тип этих элементов.

Примеры описания одномерных массивов:
Var A: array [1..5] of real;
B: array [0..8] of integer;