Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > табуляция

Автор: Natashka29 3.5.2011, 16:05

Помогите пожалуйста найти ошибку.
Задание:С помощью пользовательских процедур и функций протабулировать с выбранным шагом на заданном отрезке функцию

Sub Т()
   Dim x As Double, y As Double
   Dim xmin As Double, xmax As Double, h As Double
   xmin = Range("A3").Value = -1.5
   xmax = Range("B3").Value = 1.8
   h = Range("C3").Value = 0.5

   For x = xmin To xmax Step h
    If x <= 0 Then
        y = Sqr(1 + x)
    Else
        y = (1 + 3 * x) / (2 + (1 + x) ^ 1 / 3)
    End If
        Cells(4, 4).Value = x
        Cells(5, 5).Value = y

    Next x

End Sub

Автор: Akina 3.5.2011, 20:15

Цитата(Natashka29 @ 3.5.2011, 17:05

)

Код


xmin = Range("A3").Value = -1.5

Данный код делает следующее:
Берётся константа -1.5;
Берётся значение из ячейки А3 текущего листа;
Значение из ячейки приводится к типу Single;
Приведённое значение сравнивается с константой;
Результат сравнения преобразуется из Boolean в Double;
Полученный результат записывается в переменную xmin.

Что-то мне подсказывает, что кто-то ни хрена не учился в течение семестра...

Автор: FINANSIST 4.5.2011, 14:38

Цитата(Natashka29 @ 3.5.2011, 16:05

)

For x = xmin To xmax Step h

а дальше начинается жесть...