function ptcrk(a,b,x,y,r: real): integer; var k: integer; begin k:=0; if abs(sqr(x-a)+sqr(y-b)-r*r)<1.0e-9 then k:=1; if r*r-sqr(x-a)-sqr(y-b)>1.0e-9 then k:=2; ptcrk:=k; end; // основная программа var a,b,x,y,r,k: real; begin write('координаты центра a b: '); readln(a,b); write('координаты точки x y: '); readln(x,y); write('радиус: '); readln(r); k:=ptcrk(a,b,x,y,r); if k=1 then writeln('точка на окружности'); if k=2 then writeln('точка внутри круга'); if k=0 then writeln('точка вне круга'); end.
координаты центра a b: 2 1 координаты точки x y: 4 1 радиус: 2.1 точка внутри круга
координаты центра a b: 2 1 координаты точки x y: 4 1 радиус: 2 точка на окружности
По горизонтали 3. Знак, вместе с его смыслом 4. Вид логической операции 6. Конечный набор, отличных друг от друга знаков, используемых для кодирования 8. Язык программирования 9. Микросхема, которая обрабатывает информацию и управляет всеми устроуствами пк 12. Смена формы представления данных, выражения одного типа, через данные другого типа 14. Устройство для чтения и записи дисков 17. Устройство для вывода информации на бумагу или пленку. По вертикали 1. Многоканальная линия связи, доступ к которой имеют несколько устройств 2. Описание операции 4. Программировнное электронное устройство для обработки числовых и символьных данных 5. Группа файлов и папок, объединенных по какому-либо принципу 7. Электронная схема, управляющая внешним устройством 10. Число бит, который процессор обрабатывает за 1 операцию 11. Устройство ввода 12. Устройство ввода 13. Устройство для связи двух компьтеров, с телефонной линии 15. Составляющая часть информации 16. Разъемы подключения внешних устройств
для pascal - real