Отправлено: 30.07.05 17:44. Заголовок: SOS SOS SOS

Подскажите, можно ли в URQL вычислить квадратный корень?

 Отправлено: 31.07.05 09:36. Заголовок: Re:

Erm...

 Отправлено: 31.07.05 12:03. Заголовок: Re:

2Ларри: ответ неверный.
Для вычисления корня существует несколько способов. Вик обещал написать какой-нибудь пример на досуге. Ждите.

 Отправлено: 31.07.05 18:54. Заголовок: Re:

Ждём

 Отправлено: 02.08.05 15:05. Заголовок: Re:

Теоретически - даже синус находить по схождению ряда можно... нам преп по математике объяснял.

 Отправлено: 02.08.05 21:07. Заголовок: Re:

А на хрена в урке синус? Разве что делать калькурятор...

 Отправлено: 03.08.05 16:43. Заголовок: Re:

ларри таки зайди на страницу конкурсных квестов

 Отправлено: 03.08.05 16:48. Заголовок: Re:

Ужѣ былъ. К слову, Тѣрръ, я твою аватарку суну въ качѣствѣ фотки на мобилу-с.

 Отправлено: 03.08.05 19:22. Заголовок: Re:

Вот тупой алгоритм, сделанный только для Досурки. (Используйте последнюю версию: http://urq.ru/urq_dos/urq_dos-301104.rar)
Хочу заметить, что максимальная длина вводимого числа мне неизвестна, в одних местах зависает при длине целой части в 14 знаков, у Евга зависало на 16, так что экспериментируйте...

--
:1
fp_prec=3 ;вычисления с точностью до трех знаков после запятой
p Введите число:
input x ;из этого числа нужно извлечь корень
st=x ;переменная-буфер. Сначала равна x

:2
if x<0 then Style_DOS_TextColor=12 & pln Ошибка: число меньше 0#/$ & Style_DOS_TextColor=7 & goto 1 ;не можем извлечь корень из отрицательного числа, возвращаемся к вводу нового числа.
s_power=#fp_prec$ ;показатель степени
do_power=0.1 ;основание степени
proc power ;возводим
time1=time*5

:3
diff=st*st-x ;разница между переменной-буфером и числом
if diff<0 then diff=-diff ;отбрасываем минус, если есть
if diff>#power_result$ then st=(st+x/st)*0.5 & goto 3
; разница - 0.1^fp_prec, результат уже имеем, см. локу 2
; если разница превышает 0.1^fp_prec, то буфер=(буфер+число/буфер)/2, и снова прыгаем в локацию 3.
; делаем так, пока разница не будет удовлетворять условию
time2=time*5 ;засекаем конец операции, мы нашли корни
if x=0 then pln Корень числа #x$ = #st$ else pln Корни числа #x$: #st$ и #-st$
pln Подсчитано за #time2-time1$ секунд.
btn 1, Еще
end

; локи для возведения в степень (с натуральным показателем)
:power
i=0
power_result=1
:power1
if i<s_power then power_result=do_power*power_result & i=i+1 & goto power1
end
--

 Отправлено: 03.08.05 23:05. Заголовок: Re:

--Ужѣ былъ. К слову, Тѣрръ, я твою аватарку суну въ качѣствѣ фотки на мобилу-с.

крайне занимательно, ведь до этого я сюда совал мою фотку в качестве аватары. ларри а ты в качестве чьей фотки меня сунешь в своё мобильный?

 Отправлено: 04.08.05 08:47. Заголовок: Re:

В качестве фотки некоего Терракона-с

 Отправлено: 04.08.05 18:09. Заголовок: Re:

ОК Спасибо
Ссылочка правда ведёт в никуда...

 Отправлено: 04.08.05 19:12. Заголовок: Re:

Да нет, ссылка нормальная.. Попробуй save as по ней. – Это после того, как я подправил, сначала она была с лишней скобкой. Виктор

 Отправлено: 05.08.05 09:12. Заголовок: Re:

"Вот тупой алгоритм,"(WalkyTalky)

Крутейший алгоритм! Сразу видно математика-прикладника!