Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Где ошибка? / 4 сообщений из 4, страница 1 из 1
27.05.2004, 13:44
    #32536664
Alla V. Fortuna
Alla V. Fortuna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где ошибка?
Сдавала я намедни лабораторную и преподу не понравилась функция. Помогите найти предмет его недовольсва плз! Заранее огромное 10х

Вычислить значение: e=1+1/1!+1/2!+1/3!+...

Собственно функция
Public Function factorial()
Dim result As Long
Dim i As Long
Dim mystring As String
n = InputBox("Ââåäèòå ÷èñëî ïðîõîæäåíèé ôóíêöèè" + n)

i = 1
result = 1
If n < 13 Then
Do
result = result * i
i = i + 1
Loop Until Not i <= n
factorial = result
If n = 1 Then
e = 1 / factorial + 1
Else
e = 1 / factorial + 2
End If
mystring = Format(e, "###,##0.0000")
mystring = MsgBox("Ðåçóëüòàò " + mystring)
Else: MsgBox ("Ââåäèòå n<13")
End If
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 14:18
    #32536779
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где ошибка?
- ваша функция считает факториал, а не точто требовали
- и заганяет какое-то непонятное занчение в e , причем описания самого е нигде не вижу, впрочем так же как и n :(
- нет проверки, что n является числом (могут ведь и фигню ввести)

примерно так надо вычислять е
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Private Sub eee()
Dim i as integer
Dim f as long
Dim e as Double
Dim n as integer
Dim inp as string

inp = inputbox(...)
if isnumeric(inp) then
 n = cint(inp)
else
  ' сообщении об ошибке
 
 exit sub
end if

... ' проверка на n<13
 

e =  1 
f =  1 
for i =  1  to n
 f = f * i
 e = e +  1  / f
next

 msgbox e
end sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 16:42
    #32537181
Alla V. Fortuna
Alla V. Fortuna
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где ошибка?
paparome, моё Вам большое человеческое спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.05.2004, 17:05
    #32537245
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Где ошибка?
А не плохих девченок в Одессе делают
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Где ошибка? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]