Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатой четверти, в которой находится точка с координатами (x, y). Числа x, y введите с клавиатуры. Пример ввода: -5 7 Пример вывода:2 (Это в ПАСКАЛЬ)
Answers & Comments
clinteastwood2
Var x,y: integer; k: 1..4; begin writeln('Введите координаты:'); write('x=');readln(x); write('y=');readln(y); if (x>0) and (y>0) then k:=1 else if (x<0) and (y>0) then k:=2 else if (x<0) and (y<0) then k:=3 else k:=4; writeln('Точка находится в ',k,' четверти координатной плоскости'); readln; end.
Answers & Comments
k: 1..4;
begin
writeln('Введите координаты:');
write('x=');readln(x);
write('y=');readln(y);
if (x>0) and (y>0) then k:=1 else
if (x<0) and (y>0) then k:=2 else
if (x<0) and (y<0) then k:=3 else k:=4;
writeln('Точка находится в ',k,' четверти координатной плоскости');
readln;
end.