Определение № координатной четверти

@Aleshh · Регистрация: 15.01.2017

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

Написать функцию определения No координатной четверти для введенной точки (если
точка на осях – присвоить 0)

@Joy · 17.01.2017, 10:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function No(x,y:real):string;
begin
  case sign(x)*10+sign(y) of
    11:No:='I';
    -9:No:='II';
    -11:No:='III';
    9:No:='IV';
    else No:='0';
  end;
end;  
var
  x,y:real;
begin
  write('x,y=');
  readln(x,y);
  writeln('№ четверти:',No(x,y))
end.

@Aleshh · 17.01.2017, 16:45 **[ТС]**

Pascal
1
2
3
4
5
6
case sign(x)*10+sign(y) of
    11:No:='I';
    -9:No:='II';
    -11:No:='III';
    9:No:='IV';
    else No:='0';

А чем это можно заменить? Просто мы не проходили ещё такого.

@Joy · 18.01.2017, 05:27

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

А чем это можно заменить? Просто мы не проходили ещё такого.

оператор выбора case, по-моему, в самом начале курса изучения Pascal проходят.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function No(x,y:real):string;
begin
  if (x>0) and (y>0) then No:='I' else
  if (x<0) and (y>0) then No:='II' else
  if (x<0) and (y<0) then No:='III' else
  if (x>0) and (y<0)then No:='IV' else No:='0'
end;  
var
  x,y:real;
begin
  write('x,y=');
  readln(x,y);
  writeln('№ четверти:',No(x,y))
end.

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84

	Определение № координатной четверти 16.01.2017, 20:47. Показов 2132. Ответов 3 Метки нет (Все метки) Написать функцию определения No координатной четверти для введенной точки (если точка на осях – присвоить 0) 0

Определение № координатной четверти

Решение