Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатами(x,y).Числа x,y введите с клавиатуры. Pascal ABC
Ответы
Ответ дал:
0
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 плоскости');
if (x>0) and (y<0) then writeln('точка в 4 плоскости');
if (x=0) and (y=0) then writeln('точка в центре');
end.
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 плоскости');
if (x>0) and (y<0) then writeln('точка в 4 плоскости');
if (x=0) and (y=0) then writeln('точка в центре');
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад