Тестовые примеры. 
Решение задачи с прикладным содержанием с применением программирования на языке высокого уровня

Тесты основной программы Пример 1. n = 6, координаты точек: (0,0), (0,1), (-1,0), (1,2), (3,0), (2,1) (Рис. 1а). Ответом являются параметры окружности и наименьшая разность. (Рис. 1б).

Пример 2. n = 5, координаты точек: (1,1), (2,2), (3,3), (4,4), (5,5) (Рис. 2а). Ответом является сообщение о том, что по точкам множества невозможно построить окружность. (Рис. 2б).

Пример 3. n = 3, координаты точек: (0,0), (1,0), (0,1) (Рис. 3а). В ответ выводится параметры единственной возможной окружности. (Рис. 3б).

Тесты функций Функция Accessory (a:Point;ok:Circle):INTEGER;

Функция Accessory определяет принадлежность точки окружности.

Входные параметры:

a: Point — координаты точки a;

ok: Circle — координаты точки b;

Значение функции:

Accessory:INTEGER — принадлежность точки окружности (1 — вне окружности, ?1 — внутри окружности, 0 — лежит на окружности).

Тесты:

1) Входные параметры:

a (1,1),.

o (0,0), r = 2;

Значение функции:

Accessory = -1;

2) Входные параметры:

a (3,0),.

o (0,0), r = 2;

Значение функции:

Accessory = 1;

3) Входные параметры:

a (2,0),.

o (0,0), r = 2;

Значение функции:

Accessory = 0;

Процедура Circles (t1,t2,t3:Point; VAR ok: Circle);

Процедура Circles вычисляет параметры окружности проходящей через три точки. Входные параметры:

t1: Point — координаты точки t1;

t2: Point — координаты точки t2;

t3: Point — координаты точки t3;

Исходящие параметры:

ok: Circle — параметры окружности.

Тесты:

1) Входные параметры:

t1(1,0),.

t2(0,1),.

t3(-1,0);

Исходящие параметры:

o (0,0), r = 1;

2) Входные параметры:

t1(1,1),.

t2(2,2),.

t3(3,3);

Исходящие параметры:

o (0,0), r = 0.