2. Составьте трассировочную таблицу: const a: array [1..8] of integer = (-3, 9, -2,-1, 4, 0, -5, 1); var i,s: integer; begin s:=0; for i:=1 to 8 do if a[i] mod 3 = 0 then…
2. Составьте трассировочную таблицу: const a: array [1..8] of integer = (-3, 9, -2,-1, 4, 0, -5, 1); var i,s: integer; begin s:=0; for i:=1 to 8 do if a[i] mod 3 = 0 then s:=s+a[i]; write (s); end.
Для составления трассировочной таблицы данного кода на Pascal необходимо проследить за изменением значений переменной s и индекса i в процессе выполнения программы.
Исходный массив имеет следующие значения:
a[1] = -3
a[2] = 9
a[3] = -2
a[4] = -1
a[5] = 4
a[6] = 0
a[7] = -5
a[8] = 1
Программа выполняет цикл от 1 до 8 и проверяет, является ли элемент массива a[i] кратным 3. Если да, то добавляет его значение к переменной s. Начальное значение s равно 0.
Теперь составим трассировочную таблицу:
| i | a[i] | a[i] mod 3 | s |
|---|---|---|---|
| 1 | -3 | 0 | 0 |
| 2 | 9 | 0 | 0 |
| 3 | -2 | 1 | 0 |
| 4 | -1 | 2 | 0 |
| 5 | 4 | 1 | 0 |
| 6 | 0 | 0 | 0 |
| 7 | -5 | 1 | 0 |
| 8 | 1 | 1 | 0 |
Теперь обновим значение s при добавлении элементов, которые кратны 3:
- При i = 1:
-3 mod 3 = 0, следовательно,s = s + (-3) = -3. - При i = 2:
9 mod 3 = 0, следовательно,s = s + 9 = -3 + 9 = 6. - При i = 3:
-2 mod 3 = 1,sне изменяется. - При i = 4:
-1 mod 3 = 2,sне изменяется. - При i = 5:
4 mod 3 = 1,sне изменяется. - При i = 6:
0 mod 3 = 0, следовательно,s = s + 0 = 6. - При i = 7:
-5 mod 3 = 1,sне изменяется. - При i = 8:
1 mod 3 = 1,sне изменяется.
По завершению всех итераций, программа выведет значение переменной s, которое равно 6.
Таким образом, финальная трассировочная таблица будет выглядеть так:
| i | a[i] | a[i] mod 3 | s |
|---|---|---|---|
| 1 | -3 | 0 | -3 |
| 2 | 9 | 0 | 6 |
| 3 | -2 | 1 | 6 |
| 4 | -1 | 2 | 6 |
| 5 | 4 | 1 | 6 |
| 6 | 0 | 0 | 6 |
| 7 | -5 | 1 | 6 |
| 8 | 1 | 1 | 6 |
Результат выполнения программы: 6.
