Вопрос по информатике:
В чем ошибка ? VBS
Dim X()
Dim Y()
n = inputbox(vblf& \" напиши значение ''n''(количество расчетов)\")
Redim X(n)
Redim Y(n)
Randomize
For i = 1 to n
X(i) = 5 - 10*Rnd
Next
S=X(1)/i
For i = 2 to n
S = (X(1)/i+ X(i)/((i-1)*i)
Next
ms = \" X \" &\" S \" &vblf & \"_______________________\" & vblf
For i=1 to n
ms = ms & x(i) & \" \" & S & \" \" &vbLf
Next
ms=ms & \"_______________________\"
MsgBox ms "\" Кутнякова, Выручаев, \"
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.07.2015 12:11
- Информатика
- remove_red_eye 6256
- thumb_up 50
Ответы и объяснения 1
Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.
- 19.07.2015 16:29
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.