Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 59 стр.

UptoLike

Составители: 

теста случай
N Массив А Otvet
1 Имеются 4
1 -1 2 1
2 3 1 0
1 -1 2 -1
-2 1 0 1
''Есть отрицательные
числа''
2 Не имеются 3
1 -1 2
1 0 1
2 1 1
"Нет отрицательных
чисел"
Школьный АЯ
алг Ниже диагонали (арг цел N, арг
цел таб
A[1:N, 1:N], рез
лит Otvet)
нач цел i, j, лит Flag
Flag:="Нет"; i:=2
нц пока (i< =N) и (Flag="Нет") |
цикл по строкам
j:=1
нц пока (j<i) и (Flag="Нет")
| цикл по элементам
строки
если A[i, j]<0 | условие
прерывания циклов
то Flag:="Да"
иначе j:=j+1 |
продвижение по строке
все
кц
i:=i+1 | переход
на новую
строку
кц
если Flag="Да"
то Otvet:="Есть отрицательные
ниже диагонали"
иначе Otvet:="Нет отрицательных
ниже диагонали"
все
кон
Блок-схема
(фрагмент)
Исполнение алгоритма
Обозначения проверяемых условий:
(i <= N) и (Flag = "Нет") => (1)
(j < i) и (Flag = "Нет") => (2)
N
теста
i Flag (1) j (2) A[i]=A[j] Otvet
1 2 "Нет" + 1
2
+
-
(кц)
-
    теста              случай        N           Массив А             Otvet

      1            Имеются           4          1 -1    2 1    ''Есть отрицательные
                                                2 3     1 0            числа''
                                                1 -1    2 -1
                                               -2 1     0 1

      2           Не имеются         3           1 -1   2      "Нет отрицательных
                                                 1 0    1            чисел"
                                                 2 1    1

Школьный АЯ                                       Блок-схема (фрагмент)
алг Ниже диагонали (арг цел N, арг
цел таб
                      A[1:N, 1:N], рез
лит Otvet)
нач цел i, j, лит Flag
  Flag:="Нет"; i:=2
  нц пока (i< =N) и (Flag="Нет") |
цикл по строкам
    j:=1
     нц пока (j (1)
                   (j < i) и (Flag = "Нет")         => (2)
    N       i   Flag       (1)   j       (2)   A[i]=A[j]         Otvet
  теста
     1      2   "Нет"       +    1     +           -
                                 2     -
                                     (кц)