Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Олимпиады

Страница: 1 |

 

  Вопрос: Задача начального уровня Добавлено: 21.09.09 12:21  

Автор вопроса:  alai
Привет всем, пару дней назад начал изучать Бэйсик и столкнулся с такой задачей

[URL=http://ipicture.ru/][IMG]http://pic.ipicture.ru/uploads/090921/BrtbBR2Wf6.jpg[/IMG][/URL]

Необходимо выполнить суммирование рядов двумя способами - с заданным кол-во членов и с заданной точностью.
Заранее спасибо.

Ответить

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

Номер ответа: 1
Автор ответа:
 alai



Вопросов: 1
Ответов: 4
 Профиль | | #1 Добавлено: 21.09.09 12:22
А, вобщем задание здесь
http://pic.ipicture.ru/uploads/090921/BrtbBR2Wf6.jpg

Ответить

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


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #2
Добавлено: 21.09.09 15:11
Вот прямо так случайно и столкнулся? :)

Ответить

Номер ответа: 3
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
 Web-сайт: okazani.ru
 Профиль | | #3
Добавлено: 21.09.09 16:16
Конечно наткнулся на одной из лабораторных

Ответить

Номер ответа: 4
Автор ответа:
 alai



Вопросов: 1
Ответов: 4
 Профиль | | #4 Добавлено: 21.09.09 16:21
Нет, взял из задачника

Ответить

Номер ответа: 5
Автор ответа:
 alai



Вопросов: 1
Ответов: 4
 Профиль | | #5 Добавлено: 21.09.09 16:38
Сейчас сделал обе, но чувствую ошибок у меня там море, особенно во втором варианте

Ответить

Номер ответа: 6
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
 Web-сайт: okazani.ru
 Профиль | | #6
Добавлено: 21.09.09 16:49
Ну а в чем суть вопроса, предложения, мнения, топика в конце концов?

Ответить

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



Вопросов: 1
Ответов: 4
 Профиль | | #7 Добавлено: 22.09.09 13:35
Вобщем в задаче есть ошибка, не выполняется правильно. Смотрю код, вроде всё верно. Проверьте (это с заданным кол-вом членов)

Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
n = Val(Text1.Text)
For x = -3 To -1 Step 0.5
y = 1 + Exp(1 ^ ((-x) ^ 2))
s = 1
f = 1
For i = 1 To n
f = f * i
a = (-1) ^ i * x ^ (2 * i) / i * f
s = s + a
Next i
Picture1.Print Format(x, "0.######";)
Picture2.Print Format(y, "0.######";)
Picture3.Print Format(s, "0.######";)
Picture4.Print Format(i - 1, "0.######";)
Next x
End Sub

Ответить

Страница: 1 |

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





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