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

Procedure Inside(Var Flag : Boolean); {описание процедуры
проверки }
 Begin                                {принадлежности точек
области}
   Flag := FALSE ; i := 1;
   While (i<=NPoints) and not Flag do
     If Sqr(X[i]–a)+Sqr(Y[i]–b) < Sqr(Radius) {Sqr – возведение
в квадрат}
        then Flag := TRUE
        else i:=i+1;
 End; {of Inside}
{--------------------------------------------}
Procedure Output( Flag : Boolean); {описание процедуры }
 Begin                             {вывода результатов }
  Write(’О т в е т : в множестве точек ’);
  If Flag then WriteLn(’cодержатся’)
          else WriteLn(’не содержатся’);
  WriteLn(’ точки, принадлежащие заданной области.’);
  ReadLn
 End; {of Output}
{--------------------------------------------}
BEGIN
  Input;        {вызов процедуры ввода данных }
  Inside(Flag); {вызов процедуры проверки принадлежности}
  Output(Flag) {вызов процедуры вывода результатов }
END.

 Пример 4.3. Определить, имеется ли среди элементов главной диагонали заданной
целочисленной матрицы A(N, N) хотя бы один положительный нечётный элемент.

                               Система тестов

    Номер       Проверяемый             Данные               Результат
    теста          случай
                                  N       Матрица А            Текст

      1           Имеется         3                         "Есть такие"




      2          Не имеется       2                         "Нет таких"



Школьный АЯ
алг Диагональ (арг цел N, арг цел таб А[1:N, 1:N], рез лит
Teкст)
нач цел i, лит Flag
  i:=1; Flag:="Нет"
  нц пока (i<=N) и (Flag="Нет")   | условие продолжения цикла