решить задачу в Visual Basic

[anya23]

Получить значения функции Y=F(x) с использованием цикла (do ..). F(x)=arctg (х/х+1) для х=1.2;1.3;….;2.5 (Циклический алгоритм). Результат вывести на лист Excel.

[Stilet]

    Sub example1()  
     Dim x,y As Double  
     Dim i as Integer
     x=1.2
     i=1
     Do  
      Cells(i, 1).Value = x  
      Cells(i, 2).Value = arctg (х/х+1)
      x=x+0.1
      i=i+1  
      If x>=2.5 Then Exit Do  
     Loop  
    End Sub

Годится?

[Казанский]

Сообщение от Stilet

Годится?

А сам-то попробовал?
И функции arctg в VB(A) нет, и х там русское, и до 2,5 цикл не доходит

[ShAM66]

В дополнение: и (х/х+1), наверное, имеется в виду (х/(х+1)).

[Stilet]

А сам-то попробовал?

Мне не на чем пробовать )
Если я ошибся в имени функции, это не страшно, можно поправить на Atn()

и х там русское

И солнце темнее, и трава желтее ))
Бывает.

и до 2,5 цикл не доходит

Это тоже легко исправляемо... если бы ТС это вообще было нужно )

[Казанский]

Sub example1()
Dim x As Double, y As Double
Dim i As Integer
  x = 1.2
  Do
   i = i + 1
   Cells(i, 1).Value = x
   Cells(i, 2).Value = Atn(x / (x + 1))
   x = x + 0.1
  Loop Until x > 2.55
End Sub