Составьте программу, определяющую номер координатной четверти, в которой находится точка...

Question

Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатами(x,y).Числа x,y введите с клавиатуры. Pascal ABC

Comments

Во-первых, не плоскости, а четверти... А во-вторых, это центр системы координат

---

извините, ну тогда к 4 строчкам нужно дописать if (x=0) and (y=0) then writeln('точка в центре');

---

спасибо что сказали

---

Ав

---

А вы еще не готовы?

---

всё готово списывайте программу с переписки

---

Ааа, спасибо

---

только к строчка где if приписать эту if (x=0) and (y=0) then writeln('точка в центре');неважно где, вначале или перед словом end.

---

строчкам

---

Ок

Answer 1

Program koordinati;
var x,y:integer;
begin
writeln('ввести координаты точки');
readln(x,y);
if (x>0) and (y>0) then writeln('точка в 1 плоскости');
if (x<0) and (y>0) then writeln('точка в 2 плоскости');
if (x<0) and (y<0) thne writeln('точка в 3 плоскости');<br>if (x>0) and (y<0) then writeln('точка в 4 плоскости');<br>if (x=0) and (y=0) then writeln('точка в центре');
end.