Ответы на вопрос:
Program techies2001; uses crt; const n=10; var s: string; i,j: integer; x0,y0,xn,yn,xk,yk: real; begin s: ='*** alphaeus is ***'; for i: =1 to length(s) do begin write(s[i]); for j: =1 to 500000 do s[i]: =s[i]; end; writeln(); writeln('*** ok ***'); writeln(); writeln('на окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. определить номера четвертей окружности, в которых находятся начальная и конечная точки.'); writeln('введите координаты точек: '); write('x0='); readln(x0); write('y0='); readln(y0); write('xn='); readln(xn); write('yn='); readln(yn); write('xk='); readln(xk); write('yk='); readln(yk); if ((xn=x0) and (yn=y0)) or ((xk=x0) and (yk=y0)) then writeln('начало или конец дуги с центром') else begin if ((xn> x0) and (yn> y0)) then writeln('начало дуги находится в i четверти'); if ((xn< x0) and (yn> y0)) then writeln('начало дуги находится во ii четверти'); if ((xn< x0) and (yn< y0)) then writeln('начало дуги находится в iii четверти'); if ((xn> x0) and (yn< y0)) then writeln('начало дуги находится в iv четверти'); if ((xn=x0) and (yn> y0)) then writeln('начало дуги находится на оси х на границе i и ii четверти'); if ((xn< x0) and (yn=y0)) then writeln('начало дуги находится на оси y на границе ii и iii четверти'); if ((xn=x0) and (yn< y0)) then writeln('начало дуги находится на оси х на границе iii и iv четверти'); if ((xn> x0) and (yn=y0)) then writeln('начало дуги находится на оси y на границе i и iv четверти'); if ((xk> x0) and (yk> y0)) then writeln('конец дуги находится в i четверти'); if ((xk< x0) and (yk> y0)) then writeln('конец дуги находится вî ii четверти'); if ((xk< x0) and (yk< y0)) then writeln('конец дуги находится в iii четверти'); if ((xk> x0) and (yk< y0)) then writeln('конец дуги находится в iv четверти'); if ((xk=x0) and (yk> y0)) then writeln('конец дуги находится на оси х на границе i и ii четверти'); if ((xk< x0) and (yk=y0)) then writeln('конец дуги находится на оси y на границе ii и iii четверти'); if ((xk=x0) and (yk< y0)) then writeln('конец дуги находится на оси х на границе iii и iv четверти'); if ((xk> x0) and (yk=y0)) then writeln('конец дуги находится на оси y на границе i и iv четверти'); end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
tarantilla20.01.2022 04:20
-
ВиолеттаМиллер115.02.2020 22:42
-
drmarinda30.04.2022 18:24
-
margo710814.01.2023 13:00
-
Angelm00n20.05.2020 01:25
-
Прост200426.01.2022 22:54
-
артем200412прков17.09.2022 23:08
-
Алиса2009032718.09.2021 00:28
-
zombovizor09.03.2023 21:43
-
y233445524.11.2021 00:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.