Предмет: Информатика,
автор: Лириэль
Напишите код на языке Basic.
Приложения:
Ответы
Автор ответа:
0
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
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
Так или иначе,то что написали вы не запускается
прошу прощения тогда
Похожие вопросы
Предмет: История,
автор: kondratevaa202
Предмет: Химия,
автор: bokisvioletta70
Предмет: Биология,
автор: Аноним
Предмет: Литература,
автор: РоманнамоР
Предмет: География,
автор: Nastiax
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