Pascal
записать алгоритм определения положения точки m(xm, ym) на координатной
плоскости (в первом, втором, третьем, четвёртом квадранте, на оси ординат, на оси
абсцисс, в начале координат).
Ответы на вопрос:
var
x,y: integer;
begin
write('x= ');
read(x);
write('y= ');
readln(y);
write('точка лежит в/на ');
if (x> 0) and (y> 0) then
writeln ('первой плоскости')
else
if (x< 0) and (y> 0) then
writeln ('второй плоскости')
else
if (x< 0) and (y< 0) then
writeln ('третьей плоскости')
else
if (x> 0) and (y< 0) then
writeln ('четвертой плоскости')
else
if (x=0) then
writeln('оси абсцисс')
else
writeln('оси ординат');
end.
program fantscrin;
var x, y: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if x = 0 then if y = 0 then writeln('точка m(', x, ', ', y, ') находится в начале координат')
else writeln('точка m(', x, ', ', y, ') находится на оси абсцисс')
else if y = 0 then writeln('точка m(', x, ', ', y, ') находится на оси ординат');
if x > 0 then if y > 0 then writeln('точка m(', x, ', ', y, ') находится 1-ой четверти')
else if y < 0 then writeln('точка m(', x, ', ', y, ') находится 4-ой четверти');
if x < 0 then if y > 0 then writeln('точка m(', x, ', ', y, ') находится 2-ой четверти')
else if y < 0 then writeln('точка m(', x, ', ', y, ') находится 3-ой четверти');
end.
Популярно: Информатика
-
Mrt200417.09.2021 12:12
-
вау190521.04.2023 12:54
-
viki2905104.04.2023 13:25
-
abiersack11.01.2022 23:11
-
Alina2251116.06.2023 09:44
-
Vitek361314.06.2023 02:41
-
серья19283746515.11.2022 12:02
-
матькорейцев234503.07.2021 16:53
-
Срочно1938126.01.2022 07:34
-
lublubkoba05.05.2021 23:44