Задача из Кенгуру

Она очень частная и предполагалось, что решение должно быть чисто геометрическое. Я решил с ней расправиться тригонометрически и в общем виде. Мало того - решил найти все целочисленные решения.
Смысл таков. Имеем квадрат ABCD, площадь которого S. Чертим квадрат AEFK и получаем треугольник BEF, площадь которого известна и равна f. Нужно определить другие параметры структуры. Я задался целью найти все варианты, в которых угол "x" в градусах, а также площади S и f - целочисленные. Думаю, в такой постановке 999 конгурёнков из 1000 запросто сломаются.
Поступил следующим образом. Принял декартовую систему, нашел координаты вершин всех трех элементов и определил через них площади. Получил компактную и очень красивую формулу для угла "х". Потом составил прогу, текст которой ниже, и определил два случая, решающие поставленную задачу. В принципе, как и ожидал, только в двух случаях наблюдается целочисленность - когда отношение S/(2f) равно либо единице, либо трем. Тогда "x" равен либо 45 град., либо 30. Таково свойство арктангенса. В таблице привел несколько примеров из бесконечного числа. Здесь "а" - сторона квадрата ABCD.
Совершенно ясно: теперь можно найти какие-либо другие параметры задачи. Например, площадь квадрата AEFK. На основе выявленных табличных данных это уже легко сделает и круглый троечник.
Так, забыл дать текст программы

rem Решение задачи из "Кенгуру"
print "   f       S   a   x  s/(2f)"
for a= 2 to 18
s=a^2
for f=1 to s
x=180/pi*atan(sqrt(2*f/s))+10^(-11)
if abs(x-int(x))<0.00000001 then
print "f,s,a,x,s/(2*f)"
fi
next f
next a

Результат - на рисунке.

Меня часто спрашивают: зачем я привожу нудные тексты программ?
Отвечаю. На компьютерах работаю аж с 1982 года. За 40 лет сменилось более десятка разных моделей. Одни устаревали безбожно, другие банально ломались. И часто терялись программы. Это было самым неприятным моментом. И сейчас до сих пор не уверен, что жесткий диск может хоть через минуту грохнуться. Опыт подсказал - обязательно нужно важные разработки сохранять либо в инете, либо на внешних носителях. Чем я в прозе ру и занимаюсь.

7 ноября 2022 г.


Рецензии
Как я Вас понимаю! (Я ведущий инженер-математик-программист ЭВМ с 1974г). Всё меняется, всё теряется... Вот и приходится сохранять в инете.
Самый верный способ...
Удачи.

Евгения Нарицына   08.11.2022 12:30     Заявить о нарушении
Весьма благодарен! Но тут так мало коллег в этой области, что я, думаю, - самый нищий в части рецензий в данном ресурсе! Но не унываю и совершенствую свою нишу.
Извольте спросить, какими языками программирования Вы владеете? Я шел от Ассемблера, фортрана, Кобола, и остановился на Бэйсике. Он самый быстрый для моих задач.

Георгий Александров   08.11.2022 15:10   Заявить о нарушении
Путь тот же, только остановилась на ФОКСе в 2001-м.
Начинала с ЯСК (язык символического кодирования). Пять поколений компьютеров, каждые 5 лет переатестация и новые языки для новых машин. Я уже "история программирования"... Но недавно где-то в интернете видела, что кому-то сейчас КОБОЛ снова понадобился. Удобный язык. Может, кто-то ищет именно Вас?

Евгения Нарицына   08.11.2022 19:18   Заявить о нарушении
Евгения! Кобол уже забываю, как забывают разговорные языки, когда практика прекращается. Хочу питон освоить, да времени сосем нет. Но надеюсь заняться, поскольку он сегодня в программировании - как английский в общении.

Георгий Александров   08.11.2022 20:55   Заявить о нарушении
Удачи Вам в постижении новых знаний и достижении новых вершин. Пока человек к чему-то стремится, он жив.

Евгения Нарицына   09.11.2022 10:39   Заявить о нарушении