Проанализировать положение точки на плоскости (в какой четверти находится точка, через case)

@XenonTk · Регистрация: 04.02.2017

Author24 — интернет-сервис помощи студентам

Используя оператор варианта case, составьте программу с вводом исходных данных, номера варианта и вывода результата.
Задание:
Ввести координаты точки. Проанализировать положение точки на плоскости и вывести одно из следующих сообщений: 'точка находится в 1-й четверти', … 'точка находится в 4-й четверти', 'точка находится на оси Х' и т.д. (Знаю как составить через оператор If, но не могу понять как через case).

@ZX Spectrum-128 · 04.02.2017, 14:56

Сообщение от XenonTk

как составить через оператор If

Ветвление. Определить номер координатной четверти, в которой находится данная точка

Сообщение от XenonTk

через case

Никак.

@avstantso · 04.02.2017, 15:15

Delphi

uses
  Math;
 
function GetQuarter(const AX, AY : Extended) : byte;
begin
 
  case Sign(AX) + 10*Sign(AY) of
    -11:  Result := 3; // x<0 y<0: -1 + -10
    -9:   Result := 4; // x>0 y<0: 1  + -10
    9:    Result := 2; // x<0 y>0: -1 + 10
    11:   Result := 1; // x>0 y>0: 1  + 10
  else
    Result := 0;
  end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage( IntToStr(GetQuarter( StrToFloat(edt1.Text), StrToFloat(edt2.Text))) );
end;

@XenonTk 0 / 0 / 0 Регистрация: 04.02.2017 Сообщений: 2
		1
	Проанализировать положение точки на плоскости (в какой четверти находится точка, через case) 04.02.2017, 14:38. Показов 1134. Ответов 2 Метки нет (Все метки) Используя оператор варианта case, составьте программу с вводом исходных данных, номера варианта и вывода результата. Задание: Ввести координаты точки. Проанализировать положение точки на плоскости и вывести одно из следующих сообщений: 'точка находится в 1-й четверти', … 'точка находится в 4-й четверти', 'точка находится на оси Х' и т.д. (Знаю как составить через оператор If, но не могу понять как через case). 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	04.02.2017, 14:56	2
	Сообщение от XenonTk как составить через оператор If Ветвление. Определить номер координатной четверти, в которой находится данная точка Сообщение от XenonTk через case Никак. 1

	04.02.2017, 15:15

Опции темы

Проанализировать положение точки на плоскости (в какой четверти находится точка, через case)

Решение