Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: задача на Microsoft Visual Basic 6.0 Добавлено: 09.04.11 14:57  

Автор вопроса:  Яблоко | ICQ: 582888880 
http://content.foto.mail.ru/mail/xakep2email/_answers/i-33.jpg
Помогите пожалуйста решить

Ответить

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

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



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #1
Добавлено: 09.04.11 15:51
dim i as long, n as long,res as double
n = ...
for i = 1 to n
   res = res + 1 / (2*i)^2
next i
debug.print res

Ответить

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



Вопросов: 87
Ответов: 2795
 Web-сайт: winandfx.narod.ru
 Профиль | | #2
Добавлено: 09.04.11 15:53
а ведь я мог эти 20 секунд жизни потратить на что-нибудь полезное...

Ответить

Номер ответа: 3
Автор ответа:
 Яблоко



ICQ: 582888880 

Вопросов: 5
Ответов: 13
 Профиль | | #3 Добавлено: 09.04.11 16:57
я не понял. каким будет код?

Ответить

Номер ответа: 4
Автор ответа:
 СанСаныч



Вопросов: 3
Ответов: 118
 Профиль | | #4 Добавлено: 09.04.11 17:38
Winand пишет:
а ведь я мог эти 20 секунд жизни потратить на что-нибудь полезное...

Дерябнуть рюмку чая например... ;)
Яблоко пишет:
я не понял. каким будет код?

Осиливаем любую книжку по вб и еще раз смотрим на пост №1

Ответить

Номер ответа: 5
Автор ответа:
 Яблоко



ICQ: 582888880 

Вопросов: 5
Ответов: 13
 Профиль | | #5 Добавлено: 09.04.11 19:02
просто я такой нищий на знания по программированию

Ответить

Номер ответа: 6
Автор ответа:
 Яблоко



ICQ: 582888880 

Вопросов: 5
Ответов: 13
 Профиль | | #6 Добавлено: 09.04.11 19:04
просто я такой нищий на знания по программированию. калькулятор и то с большим трудом пишу. помогите пожалуйста

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #7 Добавлено: 09.04.11 22:05
  1.         Dim N As Int32 = 100
  2.  
  3.         Dim Result As Double = Enumerable.
  4.             Range(1, N).
  5.             Sum(Function(i) 1 / (2 * i) ^ 2)


Можно также использовать возможности современных многоядерных процессоров

  1.         Dim N As Int32 = 100
  2.  
  3.         Dim Result As Double = Enumerable.
  4.             Range(1, N).
  5.             AsParallel().
  6.             Sum(Function(i) 1 / (2 * i) ^ 2)

Ответить

Номер ответа: 8
Автор ответа:
 Яблоко



ICQ: 582888880 

Вопросов: 5
Ответов: 13
 Профиль | | #8 Добавлено: 10.04.11 09:48
огромное вам всем спасибо . все задачи такого типа получились.

Ответить

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



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #9 Добавлено: 10.04.11 15:49
артем ты совсем зашарпился, забыл underscore в конце предложений =)

Ответить

Номер ответа: 10
Автор ответа:
 СанСаныч



Вопросов: 3
Ответов: 118
 Профиль | | #10 Добавлено: 10.04.11 16:49
Artyom пишет:
Можно также использовать возможности современных многоядерных процессоров

OMG!!! It's vb6????

Ответить

Номер ответа: 11
Автор ответа:
 СанСаныч



Вопросов: 3
Ответов: 118
 Профиль | | #11 Добавлено: 10.04.11 16:50
В сабже вроде vb6.0 просили, а тут уже ближе к vb10.0

Ответить

Страница: 1 |

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



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