Решить все это в паскале. на окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. определить номера четвертей окружности, в которых находятся начальная и конечная точки.

205

289

Посмотреть ответы 2

Ответы на вопрос:

zizi131

Информатика

4,7(24 оценок)

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.

EinLegoMan

Информатика

4,4(77 оценок)

8000 - (8*9*9*9+8*9*9+8*9+8) = 1440 пчел не работают

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.