Question

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

Answer 1

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

Answer 2

Должно быть примерно так: 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

Answer 3

Так или иначе,то что написали вы не запускается

Answer 4

Все нормально запускается в обычном Бейсике. Вы же написали про Бейсик в вопросе. Тот код что Вы приводите как пример, это не Бейсик а VBA. От работает под Эксель и понятно что надо иначе в нем оформлять ввод и вывод.

Answer 5

Так что Вам никто не виноват. Что просили в вопросе, то в ответе и получили.

Answer 6

прошу прощения тогда