Разработка несложной задачи содержащей цикл или ветвление. Написать алгоритм решения задачи - Построить блок схему алгоритма решения Реализовать алгоритм на одном из языков программирования.
Задано множество точек на плоскости. Oпределить, принадлежит ли хотя бы одна точка множества внутренней области круга с центром в точке a, b и радиусом R. Система тестов Номер тестаПроверяемый случайДанныеРезультатabRКол. точекКоординаты точекOtvet 0Принадлежит0000X-0, 0, 0 Y0, 0, 0Да0Не принадлежит0000X-0, 0 Y0, 0Нет Начало формы Конец формы Школьный АЯ алг Точки арг цел N, арг вещ таб X 0 N , Y 0 N , арг вещ a, b, R, рез лит Otvet нач цел i i0 OtvetНет нц пока i N и OtvetНет условие продолжения цикла если Xi-a0 Yi-b0 RR условие прерывания цикла то Otvet Да иначе ii0 все кц кон Исполнение алгоритма Обозначения проверяемых условий i N и Otvet Нет 0 Xi-00 Yi-b0 RR 0 N теста i Otvet 0 0 0 0 0 0 Нет Да -кц - 0 0 0 0 Нет -кц Блок-схема Turbo Pascal Program SetOfPoints Uses Crt Type Mas Array 0 00 of Real Var X, Y Mas массивы координат точек i, NPoints Integer NPoints количество точек a, b, Radius Real координаты центра и радиус Flag Boolean Procedure Input описание процедуры ввода данных Begin ClrScr Write Введите координаты центра круга ReadLna, b Write Введите радиус круга ReadLnRadius Write Введите количество точек ReadLnNPoints For i 0 to NPoints do begin WriteLni 0, -ая точка Write X ReadLnXi Write Y ReadLnYi end WriteLn End of Input Procedure InsideVar Flag Boolean описание процедуры проверки Begin принадлежности точек области Flag FALSE i 0 While i NPoints and not Flag do If SqrXi aSqrYi b SqrRadius Sqr возведение в квадрат then Flag TRUE else ii0 End of Inside Procedure Output Flag Boolean описание процедуры Begin вывода результатов Write О т в е т в множестве точек If Flag then WriteLn cодержатся else WriteLn не содержатся WriteLn точки, принадлежащие заданной области.
ReadLn End of Output BEGIN Input вызов процедуры ввода данных InsideFlag вызов процедуры проверки принадлежности OutputFlag вызов процедуры вывода результатов END. QBasic CLS INPUT Введите через запятую координаты центра круга, a, b INPUT Введите радиус круга , Radius INPUT Введите количество точек , NPoints DIM XNPoints, YNPoints описание массивов координат точек FOR i 0 TO NPoints PRINT i -ая точка INPUT x , Xi INPUT y , Yi PRINT NEXT i Flag 0 i 0 WHILE i NPoints AND Flag 0 IF Xi a0 Yi b0 Radius0 THEN Flag0 ELSE ii0 WEND PRINT О т в е т в множестве точек IF Flag 0 THEN PRINT cодержатся ELSE PRINT не содержатся PRINT точки, принадлежащие заданной области.
END Билет 00 Вопрос 0.