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

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

Задать свой вопрос
1 ответ
Dim a As Double, x As Double, h As Double, y As Double
a = 10: h = 0.2: x=-1
Do While x lt;= 1
    y = (2 * a + x) / (3 * a - x)
    Print Using "."; x;
    Print Using "       ."; y:    x=x+h
Loop
Esenija
Обязано быть примерно так: Sub number3()Dim a As Single, h As Single, x As Single, F As SingleDim S As Stringa = 10h = 0.2x = -1S = " "'Начало цикла с предусловиемDo While -1 <= x <= 1F = Format((2 * a + x) / (3 * a - x), "FIXED")S = S + " " + Str(F)S = a + h + xLoopMsgBox "S= " S, vbInformation, "Значения функции"End Sub
Даниил Беськаев
Так или по другому,то что написали вы не запускается
Валентина Вахничева
прошу помилованья тогда
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт