| Вопрос: Задача начального уровня | Добавлено: 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-сайт: Профиль | | #2 | Добавлено: 21.09.09 15:11 |
Вот прямо так случайно и столкнулся? 
|
||
|
Номер ответа: 3 Автор ответа: Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #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 Автор ответа: ArvitalyICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #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 |