Меня Сканави попросил. Ч 3

Георгий Александров
Неугомонные математики пошли, как говорится, до конца! Попросили дать алгоритм поиска коэффициентов A,B,C  хотя бы в моем допотопном Yabasic. Для меня, естественно, - это дело минутное. Вот сходу пишу текст программы и тут же выдаю результат, что в иллюстрации:

dim x(10),y(10),a(10),b(10)
n=20
print "  a1  b1  c1 "
print "--------------"
x(1)=3:y(1)=2:a(1)=5:b(1)=35
x(2)=4:y(2)=2:a(2)=6:b(2)=72
x(3)=4:y(3)=3:a(3)=7:b(3)=91
for a1=1 to n:A=1/a1
for b1=1 to n:B=1/b1
for c1=1 to n:C=1/c1
for i=1 to 3
x=A*a(i)-sqrt(B*b(i)/a(i)-C*a(i)^2)
if x=x(i) or x=y(i) then k=k+1:fi
next i
if k=3 then
print a1 using "###",b1 using "###";
print c1 using "####"
fi
k=0
next c1
next b1
next a1

На табло высвечиваются знаменатели правильных дробей:
a1=2; b1=3; c1=12
Я конечно не поленился и рассчитал, во сколько раз составление программы более эффективно, чем это я делал при помощи арифмометра и логарифмической линейки. Результат довольно внушительный: два дня поделить на две минуты. То есть скорость нахождения верного ответе возросла в 1440 раз!

23 сентября 2023 г.