profile
Опубликовано 5 лет назад по предмету Информатика от Лириэль

Напишите код на языке Basic.

  1. Ответ
    Ответ дан DonPedro80
    Dim a As Double, x As Double, h As Double, y As Double
    a = 10: h = 0.2: x=-1
    Do While x <= 1
        y = (2 * a + x) / (3 * a - x)
        Print Using "##.#"; x;
        Print Using "       ###.########"; y:    x=x+h
    Loop
    1. Ответ
      Ответ дан Лириэль
      Должно быть примерно так: Sub number3()
      Dim a As Single, h As Single, x As Single, F As Single
      Dim S As String
      a = 10
      h = 0.2
      x = -1
      S = " "
      'Начало цикла с предусловием
      Do While -1 <= x <= 1
      F = Format((2 * a + x) / (3 * a - x), "FIXED")
      S = S + " " + Str(F)
      S = a + h + x
      Loop
      MsgBox "S= " & S, vbInformation, "Значения функции"
      End Sub
    2. Ответ
      Ответ дан Лириэль
      Так или иначе,то что написали вы не запускается
    3. Ответ
      Ответ дан DonPedro80
      Все нормально запускается в обычном Бейсике. Вы же написали про Бейсик в вопросе. Тот код что Вы приводите как пример, это не Бейсик а VBA. От работает под Эксель и понятно что надо иначе в нем оформлять ввод и вывод.
    4. Ответ
      Ответ дан DonPedro80
      Так что Вам никто не виноват. Что просили в вопросе, то в ответе и получили.
    5. Ответ
      Ответ дан Лириэль
      прошу прощения тогда
Самые новые вопросы