Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Рекурсия Добавлено: 05.03.09 03:59  

Автор вопроса:  planerolling
 Название задачи: Рекурсия
Разработайте алгоритм рекурсивной функции для возведения действительного числа в неотрицательную целую степень. Доработайте функцию, что бы она позволяла вычислять и отрицательные степени заданного числа.

объясните мне пожалуйста...

Ответить

  Ответы Всего ответов: 9  

Номер ответа: 1
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #1
Добавлено: 05.03.09 11:43
Рекурсия очень красиво и понятна описана здесь.
http://www.arbuz.uz/z_vetki.html

Воведение в степень я бы просто сделал через цикл.Ну например:
  1. Dim shislo As Byte, a As Byte
  2. Private Sub возвести_число(число As Byte, степень As Byte)
  3.     For a = 0 To степень - 1
  4.     If a = 1 Then
  5.             shislo = (число * число)
  6.     Else
  7.             shislo = (число * shislo)
  8.     End If
  9.                  If a >= степень Then Exit Sub
  10.     Next a
  11. End Sub
  12.  
  13. Private Sub Command1_Click()
  14. shislo = 0
  15.  возвести_число 2, 4'возыести число 2 в степень 4
  16.    Me.Caption = shislo
  17. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
 Web-сайт: iSkywalker.ru
 Профиль | | #2
Добавлено: 05.03.09 16:01
  1. Function pow(ByVal number As Double, ByVal a As Integer) As Double
  2.     Dim res As Double
  3.     If a = 0 Then
  4.         res = 1
  5.     Else
  6.         res = number * pow(number, Abs(a) - 1)
  7.     End If
  8.     If a < 0 Then res = 1 / res
  9.     pow = res
  10. End Function
  11. Sub calc()
  12.     MsgBox pow(2, -3)
  13. End Sub

Ответить

Номер ответа: 3
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
 Web-сайт: www.rascalspb.narod.ru
 Профиль | | #3
Добавлено: 05.03.09 20:42
степень через реурсию - высший пилотажный бред, как и факториал...

Ответить

Номер ответа: 4
Автор ответа:
 el-paso



Вопросов: 3
Ответов: 164
 Профиль | | #4 Добавлено: 05.03.09 22:23
Ra$cal плюспиццот

Ответить

Номер ответа: 5
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #5
Добавлено: 05.03.09 23:05
Ra$cal пишет:
степень через реурсию - высший пилотажный бред, как и факториал...
Все зависит от задачи.

Посмотри ...это не бред.
http://www.vbnet.ru/articles/showarticle.aspx?id=92

Ответить

Номер ответа: 6
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
 Web-сайт: www.rascalspb.narod.ru
 Профиль | | #6
Добавлено: 06.03.09 00:35
помойму просто понять, что речь идет о данной конкретной задаче. и здесь применение рекурсии нужно так же, как папуасам ректальные клещи для удаления гланд. ну а примеров необходимости адекватного использования рекурсии полно. зы я в своей самописной на плюсах длинной арифметике обошелся без рекусрии, правда делал не на строках, а на DWORD'ах и сдвигах и обычной арифметике. зато при реализации задачи перестановок рекурсия очень помогла.

Ответить

Номер ответа: 7
Автор ответа:
 planerolling



Вопросов: 4
Ответов: 6
 Профиль | | #7 Добавлено: 06.03.09 04:20
Вычисление периметра выпуклого правильного n-угольника.
Вычисление периметра произвольного выпуклого n-угольника.
а вот это как решить, дана формула (n – 2) ·180 и как ее "привязать в код"? или это невозможно?

Ответить

Номер ответа: 8
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
 Web-сайт: www.rascalspb.narod.ru
 Профиль | | #8
Добавлено: 06.03.09 04:45
это невозможно без научных разработок и исследований за энное количество WMZ. а то глядишь весь семестр\четверть тебе досрочно сдадим. или долги случайно с прошлого закроем. оставим тебя без умственной деятельности и все такое.

Ответить

Номер ответа: 9
Автор ответа:
 planerolling



Вопросов: 4
Ответов: 6
 Профиль | | #9 Добавлено: 06.03.09 06:56
)
я стукну в асю...

ЗЫ. надо было ник менять))), хотя наверное меня-бы-это-не-спасло...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам