Буду рад за
Задачи с С++.
12.74. Дан двумерный массив. Найти число пар одинаковых соседних элементов.
В качестве соседних рассматривать:
а) только элементы, расположенные в одной строке;
б) только элементы, расположенные в одном столбце;
в)* элементы, расположенные в одной строке и в одном столбце.
16
Объяснение:
S := 0 // Переменная S = 0
нц для i от 1 до 2 // Начинаем цикл от 1 до 2 включительно
нц для j от 2 до 3 // Начинаем цикл от 2 до 3 включительно
S := S + i + j // S = S + i + j
кц // Конец цикла
кц // Конец цикла
Всего будет 4 итерации (повторов) у циклов, т. к. первый цикл выполняется 2 раза, а вложенный в него второй цикл выполняется также 2 раза ⇒ 2 * 2 = 4
Итерация 1:
S = 0 // i = 1 // j = 2
S = 0 + 1 + 2 = 3
Итерация 2:
S = 3 // i = 1 // j = 3
S = 3 + 1 + 3 = 7
Итерация 3:
S = 7 // i = 2 // j = 2
S = 7 + 2 + 2 = 11
Итерация 4:
S = 11 // i = 2 // j = 3
S = 11 + 2 + 3 = 16
const
c: array [1..7, 1..3] of byte = ((50, 50, 133), (0, 0, 255), (0, 160, 227), (0, 255, 0), (255, 255, 0), (239, 127, 26), (255, 0, 0));
var
i: byte;
procedure ColArc(x, y: integer; r: integer; nc: byte);
begin
SetPenColor(rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
Arc(x, y, r + 10, 0, 180);
Arc(x, y, r - 10, 0, 180);
line(x - r - 11, y - 2, x - r + 11, y - 2);
line(x + r - 11, y - 2, x + r + 11, y - 2);
floodfill(x, y - r, rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
end;
begin
setwindowsize(500, 300);
for i := 1 to 7 do
ColArc(250, 300, 100 + (i * 20), i);
end.