Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти

rgfjughijikg

Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.
2 ответа

rgfjughijikg

function Quarter(const x, y: Real): Integer;
const q: array [0..3] of Integer = (3,4,2,1);
begin
  Quarter:=q[Ord(x>0)+2*Ord(y>0)];
end;