ФАЙЛ: синус по Паде
ОПИСАНИЕ:
Используется аппроксимация синуса по Паде.
URL: https://en.wikipedia.org/wiki/Padé_approximant#E..
Переменная "икс" задается в радианах.
Верны 15 знаков после запятой при икс = 0.2.
Верны 8 знаков после запятой при икс = 1.
Верны 5 знаков после запятой при икс = 2.
Верны 3 знака после запятой при икс = 3.
То есть обеспечивается очень хорошая точность при угле до 60 градусов.
Калькулятор системы "Windows 10" выдаёт:
sinr(1) = 0.8414709848078965066525023216303.
ВЫВОД:
син_Паде = 0.841470985091815
===========================

икс = 1

знам1 = икс * икс
числ1 = знам1 * икс
знам2 = числ1 * икс
числ2 = знам2 * икс
знам3 = числ2 * икс

числ1 = числ1 * 2363
числ1 = числ1 / 18183

числ2 = числ2 * 12671
числ2 = числ2 / 4363920

знам1 = знам1 * 445
знам1 = знам1 / 12122

знам2 = знам2 * 601
знам2 = знам2 / 872784

знам3 = знам3 * 121
знам3 = знам3 / 16662240

числ = числ2 - числ1
числ = числ + икс

знам = 1 + знам1
знам = знам + знам2
знам = знам + знам3

син_Паде = числ / знам
показать син_Паде

ФАЙЛ: квадратный корень числа (итерационный алгоритм Соломеина)
ОПИСАНИЕ:
Человечеству известна итерационная формула Герона Александрийского
для вычисления квадратного корня числа.
На основе вычислений по этой формуле придуман итерационный алгоритм Соломеина.
Алгоритм вычисляет числитель и знаменатель для дроби,
которая является приближением квадратного корня числа.
Алгоритм перспективен для реализации в длинной арифметике,
и конкретно для реализации в длинной арифметике в двоичной системе счисления.
Используются две операции: умножение и декрементирование (вычитание единицы).
В данном коде вычисляется квадратный корень из числа три.

ВЫВОД:
числ = 7
знам = 4
числ = 97
знам = 56
числ = 18817
знам = 10864
числ = 708158977
знам = 408855776
числ = 1.00297827341137E18
знам = 5.79069776145402E17
===========================

числ = 2
знам = 1
цикл = 5

начало
знам = числ * знам
знам = 2 * знам

числ = числ * числ
числ = 2 * числ
числ = числ - 1

показать числ
показать знам

цикл = цикл - 1
цикл цикл

ПРОГРАММА: деньги, рантье
ВОПРОС: Сколько времени можно получать зарплату, не работая,
  если покласть определённую сумму на вклад?
ОПИСАНИЕ:
Меня заинтересовал вопрос:
Что если продать какую-то ненужную квартиру
или выиграть крупный выигрыш в лотерею,
и деньги положить на вклад в банк?
Нужно учесть две вещи: проценты начисления на сумму вклада
и инфляцию в стране.
За первые пять месяцев 2022 года инфляция в России составила 13.9 1a_
По состоянию на 21 июня 2022 года Сбербанк предоставляет вклад под 9.5%.
Упаковка яиц куриных "Айсберг" (10 штук) стоит 86 рублей в Екатеринбурге
в магазине "Птица" от Свердловской птицефабрики.
На протяжении скольки месяцев можно будет получать каждый месяц
сумму денег, на которую можно будет купить одно и тоже количество упаковок яиц,
пока не исчерпаются все деньги на вкладе?
ВЫВОД:
summa_0 == 3000000
vklad_year == 9.5
infl_year == 13.9
price_0 == 86
zarplata_valuta0 == 39000
year2 == 7
month2 == 1

 summa_0 = 3000000
 vklad_year = 9.5
 infl_year = 13.9
 price_0 = 86
 zarplata_valuta0 = 39000


 price = price_0
 zarplata_tovar0 = zarplata_valuta0 / price
 summa_tek = summa_0
 vklad_month = vklad_year / 12

 year = 1 
 цикл_year = 100
 начало

   month = 1
   цикл_month = 12
   начало
     zarplata_valuta_tek = zarplata_tovar0 * price
     summa_tek = summa_tek - zarplata_valuta_tek

     если summa_tek
     year2 = year
     если summa_tek
     month2 = month

     временная = vklad_month / 100
     временная = временная + 1
     summa_tek = summa_tek * временная

     month = month + 1
     цикл_month = цикл_month - 1
   цикл цикл_month
 
   временная = infl_year / 100
   временная = временная + 1
   price = price * временная

  year = year + 1
  цикл_year = цикл_year - 1
 цикл цикл_year


показать( summa_0 )
показать( vklad_year )
показать( infl_year )
показать( price_0 )
показать( zarplata_valuta0 )
показать( year2 )
показать( month2 )