Найти s по формуле - Microsoft Office Word

investr · 10.12.2011, 17:47

Вот задание

All_Ex · 07.01.2012, 20:06

'Начало решения
Dim n As Integer
Dim i As Integer
Dim Ib As String
Dim S As Single
Ib = InputBox("Введите n:", "Ввод")
n = CInt(Ib)
For i = 1 To n
1 'S = S + f(i)
Next i
'Строка 1 работать не будет,
'здесь показано только, как суммировать.
'f(i) надо определить и ввести,
'но требует ли этого ваше задание?

10.12.2011, 17:47	#1
investr Регистрация: 30.11.2011 Сообщений: 9	Найти s по формуле Вот задание

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
вычислить по формуле (найти сумму ряда)	aless23	Паскаль, Turbo Pascal, PascalABC.NET	1	03.11.2011 10:24
Подскажите по формуле	Marshall150	Microsoft Office Excel	6	08.11.2009 17:52
+ и - в формуле	lubov09	Microsoft Office Excel	11	31.10.2009 18:18
Найти массив по формуле	Наталья Ивановна	Microsoft Office Excel	0	26.05.2009 18:58
Вопрос по формуле	Philipok	Microsoft Office Excel	4	09.10.2008 10:10

07.01.2012, 20:06	#2
All_Ex Пользователь Регистрация: 06.01.2012 Сообщений: 22	'Начало решения Dim n As Integer Dim i As Integer Dim Ib As String Dim S As Single Ib = InputBox("Введите n:", "Ввод") n = CInt(Ib) For i = 1 To n 1 'S = S + f(i) Next i 'Строка 1 работать не будет, 'здесь показано только, как суммировать. 'f(i) надо определить и ввести, 'но требует ли этого ваше задание?