komarrik
02.12.2020 02:29

Задача B. Мерцающие звёзды Современных звёздных путешественников очень трудно удивить. Однако фирма Amazing Star Travel хочет предложить нечто новое: наблюдения за мерцающими звёздами. Это очень эффектное явление, возникающее в тот момент, когда мощную звезду заслоняет планета. Для этого разработан маршрут между двумя точками A и B. Специалисты фирмы выделили NN наиболее ярких звёзд в видимой части космоса и отметили MM крупных планет. Осталось подсчитать, сколько раз за время путешествия по отрезку AB путешественники насладятся видом мерцающей звезды.

Входные данные.

В первой строке содержится четыре целых числа через пробел XA, YA, XB, YB – координаты точек A и В. Во второй строке содержатся числа NN и MM, разделенные пробелом (0 \leq N,M \leq 1000≤N,M≤100) – количество звёзд и количество планет соответственно. В каждой из следующих N строк содержатся координаты очередной звезды. Далее в каждой из следующих M строк содержатся координаты очередной планеты. Все координаты целые, по модулю не превосходят 1000. Гарантируется, что никакие три точки из всех вышеперечисленных не находятся на одной прямой.

Выходные данные.

В ответе нужно выдать одно число – количество случаев, когда при движении по отрезку из точки A в точку B какая-либо звезда будет заслонена от наблюдателя планетой. Если какие-либо две звезды мерцают одновременно, то это считается как два независимых случая. Все упомянутые объекты считаем материальными точками, для упрощения вычислений все рассматриваем на плоскости. Помимо этого, согласно теории относительности, путешествие с точки зрения внешнего наблюдателя, совершается мгновенно, то есть положение звёзд и планет за время путешествия не изменяется, однако для путешественников оно достаточно длительное, чтобы наладиться захватывающими видами.

Пояснение к примеру

Sample Input:

-4 -2 2 0
3 4
-1 3
2 -1
1 -4
-3 3
-1 0
-2 -2
1 -1

Sample Output:

4


Задача B. Мерцающие звёзды Современных звёздных путешественников очень трудно удивить. Однако фирма

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
DENCHIK23371
28.10.2020 06:18

Объяснение:

program Randomizer;

const

   RndLimit = 10000;

var

   x, SumX : integer;

begin

 SumX := 0;

 // Коммент: случайное число в паскале всегда генерируется от 0 до заданного но нам необходимо от 1000, поэтому в цикле repeat...until оно будет генерироваться до тех пор, пока не станет > 999

 Repeat x := Random(RndLimit) until x > 999;

   writeln ('Random X= ', x);

   SumX := SumX + (x div 1000) + (x mod 1000 div 100) + (x mod 1000 mod 100 div 10) + (x mod 1000 mod 100 mod 10);

 writeln ('Sum = ', SumX);

end.

запускаем

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64

Copyright (c) 1993-2012 by Florian Klaempfl and others

Target OS: Linux for x86-64

Compiling main.pas      

Linking a.out             

21 lines compiled, 0.1 sec

Random X= 5488            

Sum = 25

0,0(0 оценок)
Ответ:
yuliyayakunina
10.02.2021 11:19

Костюмы можно добавить с кнопок "Выбрать костюм из библиотеки","Нарисовать новый костюм", "Добавить из файла" и "дублировать". При нажатии первой кнопки появится окно с разнообразными картинками, которые можно использовать не нарушая авторского права. Вторая кнопка создаст пустой костюм, можете рисовать с нуля или так и оставить. Третья откроет окно выбора файла, и вы можете добавить готовые картинки с вашего компьютера. При выборе gif-файла будут последовательно загружены все кадры. Последняя кнопка появляется при нажатии правой кнопкой мыши по любому костюму и копирует его.

Объяснение:

инфа с офиц сайта

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота