Составить программу ** языке Паскаль: ** координатной плоскости дана точка (х;у)....

Question

Составить программу на языке Паскаль: На координатной плоскости дана точка (х;у). Определите номер координатной четверти.

Comments

а если точка лежит на оси абсцисс или ординат?

---

такого нет)

---

то есть если ввести координаты (1;0) то программа выдаёт : это невозможно?

Answer 1

Var x,y:integer;
begin
 writeln('введите x');
 readln(x);
 writeln('введите y');
 readln(y);
  if (x>0) and (y>0) then writeln ('точка лежит в первой четверти');
  if (x<0) and (y>0) then writeln ('точка лежит во второй четверти');
  if (x>0) and (y<0) then writeln ('точка лежит в четвёртой четверти');<br>  if (x<0) and (y<0) then writeln ('точка лежит в третьей четверти');<br>   if (x=0) or (y=0) then writeln ('такой точки нет');
  end.