Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.01.2015 03:43
- Информатика
- remove_red_eye 2897
- thumb_up 15
Ответы и объяснения 1
Sub Ex25()
Dim i As Integer, n As Integer
Dim h As Double, s As Double, a As Double, b As Double, x As Double, Pi As Double
Pi = 4 * Atn(1)
a = 0
b = Pi / 3
h = Pi / 30
n = (b - a) / h + 1 'Количество повторений цикла
With Sheets("Лист1")
.Cells(1, 1).Value = "x"
.Cells(1, 2).Value = "sin(x)"
.Cells(1, 3).Value = "cos(x)"
.Cells(1, 4).Value = "tg(x)"
For i = 1 To n
x = a + (i - 1) * h
.Cells(i + 1, 1).Value = x
.Cells(i + 1, 2).Value = Sin(x)
.Cells(i + 1, 3).Value = Cos(x)
.Cells(i + 1, 4).Value = Tan(x)
Next i
End With
End Sub
- 01.01.1970 00:00
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.