алгДиагональ (арг целN,арг цел табА[1:N, 1:N], рез литTeкст)
нач цел i, лит Flag
i:=1; Flag:="Нет"
нц пока (i<=N) и (Flag="Нет") | условие продолжения цикла
если (A[i, i]>0) и (mod(A[i, i], 2)=1) | условие завершения цикла
тоFlag := "Да"
иначе i:=i+1
Все
кц
если Flag = "Да"
то Текст := "Есть такие"
иначеТекст := "Нет таких"
Все
Кон
| Исполнение алгоритма
Обозначения проверяемых условий:
(i <= N) и (Flag = "Нет") => (1)
(A[i, i] > 0) и (mod(A[i, i], 2) = 1) => (2)
| N теста
| i
| Flag
| (1)
| (2)
| Текст
| |
|
| "Нет"
"Да"
| +
+
-(кц)
| -
+
| "Есть такие"
| |
|
| "Нет"
| +
+
-(кц)
| -
-
| "Нет таких"
| | Блок-схема (фрагмент)
|
