В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Jamal20
Jamal20
01.03.2021 01:41 •  Информатика

Даны два числа 1000001 и 111100 в двоичной системе проставить знаки сравнения

Показать ответ
Ответ:
алина3860
алина3860
28.04.2021 01:29
Введение

Итак, целевой язык - С++.

Так как мы с тобой - парни попсовые, то будем делать по красоте. Я хочу получить инструментарий для описания произвольных фигур подобного рода с минимальными изменениями в коде. При этом хочу, чтобы описания этих фигур в коде были наглядными и позволяли представить, как строятся эти фигуры.

В связи с этим, обычное простое математическое описание нам не подходит. Так как банальное разбиение по четвертям и написание вложенных if - путь презрения. Не будь таким.

Что я предлагаю сделать вместо этого? Всё гениальное просто!

Описание предметной области и подхода к решению

Предлагаю воспользоваться свойством расстояний. Как думаешь, какое расстояние имеет точка M(x, y) до окружности O с центром в (0; 0) и радиусом 20? Правильно, L = \sqrt{(x - 0)^2 + (y-0)^2} - 20. При чем, если мы возьмем точку, например, М(15, 15), то получим L > 0. Если же возьмём M(3; 3), то получим L <= 0.

Таким образом, используя функции расстояния можно определить, находимся мы внутри объекта или снаружи.

Функции расстояния зависят от вида объекта. Для окружности я привел выше. Для квадрата тоже есть своя функция расстояния.

В нашей задаче мы имеем две окружности Big(0, 0, 20) и Small(0, 0, 10).

При этом из меньшей окружности вырезали первую и третью четверти, что можно выразить как сумму двух квадратов вырезанных из этой окружности: Quarter1(0,0, 10,10) и Quarter3(0,0, -10,-10).

Разность Small и этих двух квадратов даёт нам фигуру вырезанной области, которую мы вычитаем из Big.

Арифметика фигур

Как же работает это сложение? Ну, если мы складываем две фигуры, то нам интересно минимальное расстояние до любой из них. Мы считаем, все их одной фигурой.

Если мы пересекаем две фигуры, то нас интересует максимальное расстояние до любой из них.

Если мы отрицаем фигуру, мы получаем инверсию области. Для большого круга это было бы всё, что вне круга.

Если мы вычитаем фигуры, то нас интересует максимальное расстояние: до первой фигуры или до инверсии вычитаемой фигуры.

Big - (Small - (Quarter1 + Quarter3))

Хотелось бы  в коде получить подобное понятное и наглядное описание, как мы привели здесь.

Что мы имеем из этих требований. Набор объектов и методов работы с ними, которые разняться от типа к типу. Как под копирку описание Объектно-ориентированного подхода.

Какие сущности мы можем выделить их описаний?

ТочкаФигураОкружностьПрямоугольник (общий случай квадрата)Фигура-суммаФигура-разностьФигура-пересечениеТочка

По сути просто набор из координат X и У.

Но есть ряд полезных методов, которые могут нам пригодиться:

Сложение точек;Вычитание точек;Максимальная комбинация;Длина соответствующего вектора.

Эти методы сильно упростят нам, простым смертным жизнь.

Фигура

Общее определение для всех других фигур.

Сама по себе ничего не значит: мы ведь не можем знать, круг это или квадрат, или, может, какая комбинация?

Для чего оно надо? Оно даёт обобщение понятия фигура. Есть же у фигур что-то общее, из-за чего их зовут фигурами! В нашем случае:

Для всех фигур можно точно сказать, находится ли точка M внутри;До всех фигур можно посчитать расстояние из точки M;Все фигуры можно складывать, вычитать и пересекать.Круг

Объект с точкой О и радиусом R.

Как считать расстояние уже было показано: разница точек -> длина соответствующего вектора - R.

Прямоугольник

Задаётся 2 точками (A и B), лежащими на одной диагонали прямоугольника.

Расстояние, может показаться, считается хитро, но на самом деле, нет.

В коде можно посмотреть.

Фигура-сложение (объеднинеие)

UnitedFigure

Состоит из двух фигур.

Расстояние - минимальное расстояние до одной из фигур.

Фигура-вычитание (дополнение)

ComplementedFigure

Состоит из двух фигур.

Расстояние - максимальное расстояние либо до первой фигуры, либо до инверсии второй фигуры.

Фигура-пересечение (пересечение)

IntersectedFigure

Состоит из двух фигур.

Расстояние - максимальное расстояние до любой из фигур.

Код

Пришло время кода! Ура!!

Он простой и с пояснениями. И найти его ты можешь в приложениях к ответу (файл .CPP).

Пример работы приведен на изображении.

Можешь удалить вызовы функций test_this_point.


Определить принадлежит ли точка М(x,y), заданной фигуре?
Определить принадлежит ли точка М(x,y), заданной фигуре?
0,0(0 оценок)
Ответ:
nastia296
nastia296
05.06.2022 17:38
1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота