Ответы на вопрос:
// pascalabc.net 3.1, сборка 1230 от 27.04.2016 type point=record x,y: real end; function readpoint(c: char): point; begin write('координаты точки ',c,': '); read(result.x,result.y); end; procedure quarter(a: point); begin write('точка (',a.x,',',a.y,') '); if a.x< 0 then begin if a.y> 0 then writeln('принадлежит ii четверти') else if a.y=0 then writeln('лежит на оси абсцисс') else writeln('принадлежит iii четверти') end else if a.x=0 then begin if a.y=0 then writeln('лежит на пересечении координатных осей') else writeln('лежит на оси ординат') end else if a.y< 0 then writeln('принадлежит iv четверти') else begin if a.y=0 then writeln('лежит на оси абсцисс') else writeln('принадлежит i четверти') end end; begin var a,b: point; a: =readpoint('a'); b: =readpoint('b'); quarter(a); quarter(b); write('расстояние от точки а до начала координат: '); writeln(sqrt(sqr(a.x)+sqr(b. end. тестовое решение: координаты точки a: -3.7 1.73 координаты точки b: 6 8 точка (-3.7,1.73) принадлежит ii четверти точка (6,8) принадлежит i четверти расстояние от точки а до начала координат: 7.04911341943084
Популярно: Информатика
-
Nihilagay08.05.2021 21:19
-
pitliknazar27.03.2023 18:25
-
misha666anibeat01.03.2020 07:10
-
veronicavasilyk23.12.2020 11:24
-
Polinadonut22.05.2020 10:29
-
777stepan77702.02.2022 17:44
-
GeorgeWashUSA01.04.2021 15:30
-
andrei27121.11.2021 09:32
-
fkffjfjfjfj24.07.2020 02:33
-
Egorjava04.07.2022 07:10