| Вопрос: Basic,возведения в степень,не используя ^ | Добавлено: 30.09.06 11:59 |
Автор вопроса:  maefman
|
|
Привет всем.
Придя винститут,нам дали бейсик. Самый обычный, год эдак 97. Скоро сдавать лабораторную. А одна задачка никак не решается((( помогите,чем сможете) Вам это расплюнуть. Вот номер: Вычислить сумму при заданном X: s=1+1/x+1/x^2+.....1/x^10 не используя операцию возведения встепень. |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 30.09.06 15:51 |
|
через цикл, если степень целая. По моему дробная степень вычисляется через логорифмы.
басика нету под рукой, вот код на яве. три в четвёртой <script> x=3; y=4; r=1; for (i=1;i<=y;i++) { r=r*x; } alert (r); </script> |
||
|
Номер ответа: 2 Автор ответа: maefman Вопросов: 1 Ответов: 6 |
Профиль | | #2 | Добавлено: 30.09.06 16:49 |
|
Можно поподробнее:
Я что то непонял. Вот,Если использовать ^ какая программа: CLS INPUT x s=0 For i=0 to 10 s=s+1/x^i Print S NExt i А как без ^? |
||
|
Номер ответа: 3 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #3 | Добавлено: 30.09.06 17:07 |
|
Хм... теперь я не понимаю. По моему самая сложная часть так это перевести код со скрипта на васиковский. ну ладно, вот он
x = 3 y = 4 r = 1 For i = 1 To y Step 1 r = r * x Next i MsgBox r или даже вот так: Private Sub Form_Load() MsgBox Power(2, 10) End Sub (возводим х в степень у получаем - ...  )
Function Power(ByVal x As Long, ByVal y As Long) As Long r = 1 For i = 1 To y Step 1 r = r * x Next i Power = r End Function Не думаю правда что мой ответ имеет смысл если не знаешь как подставить код№2 в твой пример |
||
|
Номер ответа: 4 Автор ответа: maefmanВопросов: 1 Ответов: 6 |
Профиль | | #4 | Добавлено: 30.09.06 18:28 |
|
Спасибо конечно, но...вопрос заключается в:
"Вот номер: Вычислить сумму при заданном X: s=1+1/x+1/x^2+.....1/x^10 не используя операцию возведения встепень." эээ,а при чем тут :? "x = 3 y = 4 r = 1 For i = 1 To y Step 1 r = r * x Next i MsgBox r" |
||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 30.09.06 18:48 |
|
d = 1
s = 1 for i = 1 to 10 d = d / x s = s + 1/d next |
||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 30.09.06 18:48 |
|
Duran, ник рулез, поменяй только последнюю букву!
Тебе Morpheus готовую прогу написал, что ты ещё хочешь? |
||
|
Номер ответа: 7 Автор ответа: maefmanВопросов: 1 Ответов: 6 |
Профиль | | #7 | Добавлено: 30.09.06 19:24 |
|
Hacker,ник рулез,убери только из ника "ACK"
прога неработающая,что готового? CLS INPUT x s=0 For i=0 to 10 s=s+1/x^i Print S Next i Вот,это пример проги с ^ Если подставить 2,ответ 1,9999... По идее в проге, без операции с возведением должен ответ совпадать o_O |
||
|
Номер ответа: 8 Автор ответа: maefmanВопросов: 1 Ответов: 6 |
Профиль | | #8 | Добавлено: 30.09.06 19:33 |
|
input x
d=1 s=1 for i=1 to 10 d=d*x s=s+1/d Print s next i Вот,исходник,чуть чуть поправил,и заработало! Спасибо Sharp и morpheus!Удачи вам во всем. |
||
|
Номер ответа: 9 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #9 | Добавлено: 30.09.06 23:29 |
| Человек, зачем в институт ходишь не зная что такое степень? Иди на завод, приноси Родине чугуний. | ||
|
Номер ответа: 10 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #10 | Добавлено: 01.10.06 07:13 |
| А что если степень будет дробная? | ||
|
Номер ответа: 11 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #11 | Добавлено: 01.10.06 15:33 |
|
А что если степень будет дробная?
Шарп сказал надо делать так: [a^n = exp(n * log  )]
Я тоже делал через лог-мы но без експ() так что было гораздо длинее |
||
|
Номер ответа: 12 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #12 | Добавлено: 01.10.06 15:34 |
| ессно log=ln в ВБ | ||
|
Номер ответа: 13 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #13 | Добавлено: 01.10.06 17:48 |
|
Hacker,ник рулез,убери только из ника "ACK" Хер у меня между ног... Если ты это имел ввиду...
|
||
|
Номер ответа: 14 Автор ответа: maefmanВопросов: 1 Ответов: 6 |
Профиль | | #14 | Добавлено: 01.10.06 22:06 |
|
Надо дружелюбнее быть Hacker, для чего наезЖать.
Ну да,новичок я. |
||
|
Номер ответа: 15 Автор ответа: maefmanВопросов: 1 Ответов: 6 |
Профиль | | #15 | Добавлено: 01.10.06 22:07 |
|
Надо дружелюбнее быть Hacker, для чего наезЖать.
Ну да,новичок я. |
||