Решение уравнения методом Эйлера - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы