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

20.05.2018, 19:09. Показов 3110. Ответов 0

Метки нет (Все метки)

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

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

Есть в Delphi

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program Proc23;
 
Function Quarter(X,Y:Real):Integer;
begin
  if (X>0) and (Y>0) then Quarter:=1;
  if (X<0) and (Y>0) then Quarter:=2;
  if (X<0) and (Y<0) then Quarter:=3;
  if (X>0) and (Y<0) then Quarter:=4;
end;
 
 
var
  X,Y:Real;
  i:Integer;
 
begin
 for i:=1 to 3 do
  begin
   Write('X :');
   Readln(X);
   Write('Y :');
   Readln(Y);
 
   Writeln(Quarter(X,Y));
  end;
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

20.05.2018, 19:09

Ответы с готовыми решениями:

Описать функцию HexToDec(S) целого типа, определяющую целое неотрицательное число по его строковому представлению S в 16-ричной системе счисления
Очень прошуууу помочь .Param47. Описать функцию HexToDec(S) целого типа, определяющую целое неотрицательное число по его строковому...

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

20.05.2018, 19:09

Помогаю со студенческими работами здесь

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

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

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

Описать подпрограмму, определяющую номер координатной четверти, в которой находится точка с координатами (x, y)
Задан двумерный массив, в котором хранятся координаты точек, лежащих на плоскости (х – первая строка массива, y – вторая строка)....

Описать функцию целого типа, определяющую количество корней квадратного уравнения
2.Описать функцию целого типа, определяющую количество корней квадратного уравнения Ax^2+Bx+C=0 (A,B,C-вещественные параметры, А не равно...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

Наверх