Ответы на вопрос:
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.
Популярно: Информатика
-
Dudoleyka05.05.2020 16:48
-
chcuvivhcyxu24.03.2022 13:38
-
nkarlikova04.05.2023 09:54
-
TTpo100y4eHuk25.10.2022 10:38
-
Hope2104.06.2020 19:56
-
dyba00ozclh424.10.2021 07:41
-
Виктория5434588827.10.2022 18:35
-
KristiLookNett21.02.2023 10:32
-
nastya06nastik31.07.2022 22:36
-
MiSTiK33801.01.2021 06:09