[sbi]

Spiteful Berkut Но 2032- четный на 4 делится, следовательно, февраль -29 дней, поэтому . март 13 есть суббота.
Так чем отличается "старый" стиль от нового, откуда 13 дней набежали?

[Spiteful Berkut]

Сообщение от sbi Но 2032- четный на 4 делится

Упс. Не доглядел. Перепроверю алгоритм.

11 11 6 11 11 6 11 11 6 6 6 11 11 6 11 11 6 11 11 6 6 6 11 11 6 11 11 6 11 11 6 12 11 11 6 11 11 6 11 11 6 11 11 6

----- добавлено через ~3 мин. -----

Сообщение от sbi Так чем отличается "старый" стиль от нового, откуда 13 дней набежали?

По новому стилю года кратные 100, кроме кратных 400 високосными не являются. Грубо говоря, каждые 400 лет накапливается разница в 3 дня.

[Bull]

Spiteful Berkut, куда тебе 10-ку кинуть? Уважуха за расчет... Не поленился же. Пусть даже с помощью мат. программ (наверное)

[KronSerg]

Сообщение от Spiteful Berkut Упс. Не доглядел. Перепроверю алгоритм. Исправленный вариант 11 11 6 11 11 6 11 11 6 6 6 11 11 6 11 11 6 11 11 6 6 6 11 11 6 11 11 6 11 11 6 12 11 11 6 11 11 6 11 11 6 11 11 6

Ура!! Наконец-то правильный ответ!

[Spiteful Berkut]

Сообщение от Bull Spiteful Berkut, куда тебе 10-ку кинуть?

О какой десятке речь? Если 2110, то я сам приеду лучше, не надо её кидать. :-)

Сообщение от Bull Пусть даже с помощью мат. программ (наверное)

Не-а. 5 строк на Delphi.

----- добавлено через ~28 мин. -----

Код:

[Выделить все]

J1 := 2; // День недели, в который начинается текущий год (тут пока 2014) и это среда.
for Y := 2015 to 2415 do
begin
  Inc(J1, 1 + Byte(IsLeap(Y-1)));             // Увеличиваем первый день года на 1 для невисокосных годов и на 2 для високосных. Сработает не во всех компиляторах
  if (J1 mod 7 = 3) and not (IsLeap(Y)) then  // Если год невисокосный и начинается с четверга...
    Memo1.Lines.Add(VarToStr(Y));             // ...то добавляем его в список
end;

Код:

[Выделить все]

function IsLeap(const Year: Word): Boolean;
begin
  Result := ((Year mod 4 = 0) and (Year mod 100 <> 0)) or (Year mod 400 = 0);
end;

[Ramil.]

Сопряжение отрезка и окружности.
Сопряжение выполнил с помощью приближений. На третьем, с точки зрения Автокада, все правильно, а для меня тем более (резьба по дереву на досуге). Но просто интересно, с точки зрения геометрии, как построить такое сопряжение.

[Солидворкер]

Сообщение от Ramil. Сопряжение выполнил с помощью приближений.

А раньше в школе учили...
Есть в справочниках по черчению
http://cdot-nntu.ru/basebook/ng2/sys...str_iframe.HTM

[Bull]

Сообщение от Солидворкер А раньше в школе учили...

Ну, допустим, в школе могли и не запомнить (в детстве мысли не всегда там, где сам). Но если учиться в ВУЗе, то начерталку без таких азов не пройти. Тут вообще элементарный случай - отложил offset на величину радиуса скругления и с места пересечения построил окружность. А уж средствами АКАД (кас-кас-рад)...

Солидворкер, удали напрочь вопрос с темы, а то стыдно в теме с таким названием в инженерном форуме иметь такой вопрос.

PS Или у нас Рамиль с "неправоверными" просто вчера наотмечался?

[Fogel]

простое решение: отразить окружность относительно синей линии, окружность касательная по трем точкам.

[Ramil.]

отложил offset на величину радиуса скругления и с места пересечения построил окружность

Втом то и дело, надо найти величину радиуса и Место пересечений

[Bull]

Сообщение от Ramil. Втом то и дело, надо найти величину радиуса и Место пересечений

По большому секрету скажу, что можно построить скругление какого угодно радиуса (правда, не менее половины расстояния от окружности до прямой, если они не пересекаются).

[Ramil.]

Сообщение от Fogel простое решение: отразить окружность относительно синей линии, окружность касательная по трем точкам.

Если оразить относительно синией линии то получится угол 90 градусов , а он (угол ) не прямой

----- добавлено через ~1 мин. -----

Сообщение от Bull По большому секрету скажу, что можно построить скругление какого угодно радиуса.

Будьте добры постройте

----- добавлено через ~3 мин. -----
"""Солидворкер, удали напрочь вопрос с темы, а то стыдно в теме с таким названием в инженерном форуме иметь такой вопрос.

PS Или у нас Рамиль с "неправоверными" просто вчера наотмечался?"""

СолидВоркер, если так просто , давай сопряги (давайте, сопрягите)

[Fogel]

Одно из двух: или я не понял задания или Вы не поняли решения

[Bull]

Сообщение от Ramil. Будьте добры постройте

ну, вот 3 сильно разных значения. Offtop: Рамиль, лучше не позорься, удали хотя бы текст сообщений. На самом деле должно быть стыдно

[Ramil.]

Сообщение от Fogel Одно из двух: или я не понял задания или Вы не поняли решения

Спасибо, Fogel, (могель) действительно, все так и вышло. Затупил немного, но мне не стыдно

----- добавлено через ~4 мин. -----

Сообщение от Ramil. ну, вот 3 сильно разных значения. O

У меня радиус 144.11916283
У Фогеля 144.11906416
А у Вас три значения , и не одно не соответствует

[Fogel]

Сдается мне что задачка графически (без помощи вычислителя автокада, одним циркулем) и не решается - геометрическое место точек равноудаленных от двух окружностей разных радиусов (прямая это тоже окружность, только с бесконечным радиусом) вовсе не прямая...

[Ramil.]

Сообщение от Солидворкер А раньше в школе учили... Есть в справочниках по черчению

Здесь, в справочнике не описан такой случай, наверно прав Фогель, не решается с помощью циркуля и линейки (я не смог). Что меня удивило, в третьем приближении ошибка получилась на седьмом знаке. Всем спасибо, кто принял участие

----- добавлено через ~8 мин. -----

Сообщение от Bull ну, вот 3 сильно разных значения.

У Вас сопряжение прямой и окружности, а надо отрезка и окружности, т.е. прямой в заданной точке

[Bull]

Ramil., так тебе нужно именно с конца отрезка чтоли? Об этом ты не упомянул. Если да, то тут включается геометрия. Сейчас нарисую.

Если удобнее, то синус и косинус можно напрямую через "x" применить в формуле. Тогда подбирать надо будет его в пошаговом приближении.

В АКАД же можно проще (даже не рассматривая параметризацию). В конце отрезка строим окружность с радиусом в требуемую точность (0.1/0.05/0.01 и т.д.). Строим окружность по "кас-кас-рад" (_ttr), подбирая радиус так, чтобы точка касания на отрезке была в пределах "круга точности".

[Ramil.]

Сообщение от Bull Сейчас нарисую.

Получилось?

[Fogel]

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