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

@rgfjughijikg · Регистрация: 19.05.2018

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

@ZX Spectrum-128 · 20.05.2018, 19:17

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

@bormant · 20.05.2018, 23:15

Pascal

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;

@rgfjughijikg 0 / 0 / 0 Регистрация: 19.05.2018 Сообщений: 10
		1
	Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти 20.05.2018, 19:04. Показов 1870. Ответов 2 Метки нет (Все метки) Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами. 0

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	20.05.2018, 19:17	2
	Сообщение было отмечено rgfjughijikg как решение Решение Описать функцию quarter(x,y), определяющую номер координатной четверти, в которой находится точка 1

Опции темы

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

Решение