Решение уравнения методом Эйлера - VB
Формулировка задачи:
1.Разработать приложение на Visual Basic 6 для решения указанной задачи: Численно решить методом Эйлера дифференциальное уравнение с заданными начальными условиями на отрезке с шагом h=0,1 при указанных значениях параметров:
y’=1/2 (одна вторая) x y ; y(0)=1, a=0, b=1.
2.Разработать приложение на Visual Basic для решения указанной задачи: Даны числа a, b и с ( a ). Найти вещественные корни уравнения ax(в четвертой степени)+bx(в квадрате)+с=0. Если корней нет, сообщить об этом.
3.Разработать приложение на Visual Basic для решения указанной задачи: Напечатать заданный текст, удалив из него лишние пробелы, т.е. из нескольких подряд идущих пробелов оставить только один.
Добрый вечер! Прошу помощи. Поступил в ВУЗ. Столкнулся со сдачей академ разницы. До этого учился в 90-е. С программированием никогда не сталкивался. Понемногу начал разбираться с VB 6. Но боюсь не успею -надо сдать 9 предметов, а я освоил пока только как создавать кнопки в приложениях и инструменты VB 6. Очень прошу Вас о помощи.
Решение задачи: «Решение уравнения методом Эйлера»
textual
Листинг программы
Private Sub Command1_Click() Dim x#, y#, a#, b#, h# Dim k% a = 0: b = 1 h = 0.1 y = 1 x = a: k = 0 Print " k", vbTab, " x", vbTab, " y" Print String(100, "=") Do k = k + 1 Print k, vbTab, x, vbTab, y y = y + h * f(x, y) x = x + h Loop Until x > b + h / 2 End Sub Function f#(x#, y#) f = x * y / 2 End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д