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

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

Procedure Result(Otvet: Boolean); {описание процедуры вывода
результата}
Begin
If Otvet then Write(’образует ’)
else Write(’не образует ’);
WriteLn(’монотонно убывающую последовательность.’);
ReadLn
End;
{--------------------------------------------}
BEGIN
InputOutput; {вызов процедуры ввода-вывода}
Processing(Otvet); {вызов процедуры проверки на убывание}
Result(Otvet); {вызов процедуры вывода результата}
END.
Пример 4.2. Задано множество точек на плоскости.
Oпределить, принадлежит ли хотя бы одна точка множества
внутренней области круга с центром в точке (a, b) и радиусом
R.
Система тестов
Данные Результат Номер
теста
Проверяемый
случай
a b R Кол.
точек
Координаты
точек
Otvet
1 Принадлежит 1 0 2 3 X=(-1, 2, 3)
Y=(2, 1, 2)
"Да"
2 Не
принадлежит
1 0 2 2 X=(-1, 3)
Y=(2, 2)
"Нет"
Школьный АЯ
алг Точки (арг цел N, арг вещ таб X [1 : N] , Y [1 : N] ,
арг вещ a, b, R, рез лит Otvet)
нач цел i
i:=1; Otvet:="Нет"
нц пока (i<=N) и (Otvet="Нет") | условие продолжения цикла
если (X[i]-a)**2 + (Y[i]-b)**2 <R*R | условие прерывания
цикла
то Otvet := "Да"
иначе i:=i+1
все
кц
кон 
Procedure Result(Otvet: Boolean); {описание процедуры вывода
результата}
 Begin
  If Otvet then Write(’образует ’)
           else Write(’не образует ’);
  WriteLn(’монотонно убывающую последовательность.’);
  ReadLn
 End;
{--------------------------------------------}
BEGIN
  InputOutput;       {вызов процедуры ввода-вывода}
  Processing(Otvet); {вызов процедуры проверки на убывание}
  Result(Otvet);     {вызов процедуры вывода результата}
END.




    Пример 4.2. Задано множество точек на плоскости.
Oпределить, принадлежит ли хотя бы одна точка множества
внутренней области круга с центром в точке (a, b) и радиусом
                             R.




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

    Номер     Проверяемый                   Данные                   Результат
    теста        случай
                              a    b   R      Кол.    Координаты      Otvet
                                             точек       точек

      1       Принадлежит     1    0    2      3      X=(-1, 2, 3)     "Да"
                                                      Y=(2, 1, 2)

      2           Не          1    0    2      2       X=(-1, 3)      "Нет"
              принадлежит                              Y=(2, 2)

Школьный АЯ
алг Точки (арг цел N, арг вещ таб X [1 : N] , Y [1 : N] ,
            арг вещ a, b, R, рез лит Otvet)
нач цел i
  i:=1;    Otvet:="Нет"
  нц пока (i<=N) и (Otvet="Нет") | условие продолжения цикла
     если (X[i]-a)**2 + (Y[i]-b)**2

Страницы