Question

Отдам все баллы, сделайте программу срочно на языке Pascal ПРОШУ СРОЧНО! Дано два числа х та у, які є відповідно абсцисою й ординатою деякої точки в декартовій системі координат. Скласти програму для визначення, в якій координатній чверті розміщена ця точка.

Answer 1

program raf105;

var x,y,z:integer;

begin

write('x = ');

readln (x);

write('y = ');

readln (y);

if (x<0) and (y>0)  

 then z:=1;

if (x>0) and (y>0)  

 then z:=2;

if (x<0) and (y<0)  

 then z:=3;

if (x>0) and (y<0)  

 then z:=4;

if (x<>0) and (y<>0)

 then writeln('Точка лежит в ',z,' четверти')

 else writeln('Точка лежит в на пересечении четвертей');

end.

Answer 2

Звичайно, радий допомогти! Ось програма на мові Pascal, яка визначає, в якій координатній чверті розміщена точка з координатами (x, y):

pascalCopy code
program CoordinateQuadrant;

var
  x, y: real;

begin
  writeln('Введіть координати точки (x та y):');
  readln(x, y);

  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) and (y = 0) then
    writeln('Точка знаходиться в початку координат.')
  else if (x = 0) then
    writeln('Точка знаходиться на осі y.')
  else if (y = 0) then
    writeln('Точка знаходиться на осі x.')
  else
    writeln('Точка знаходиться на одній із вісей.');

  readln;
end.

Після запуску програми введіть значення координат x та y, і програма покаже, в якій координатній чверті знаходиться ця точка або чи вона знаходиться на одній із вісей.