Решить систему из 2-х уравнений по формулам крамера - VB

Узнай цену своей работы

Формулировка задачи:

Помогите Плиз! Нас учат программировать на С++. А на информатике преподша дала задание касающееся VB. Я этот язык практически не знаю(( . Помогите пожалуйста, а то мне пипец. Заранее спасибо!) Вот задание: Решить систему из 2-х уравнений по формулам крамера(т.е. связанные с определителями матрицы). Пользователь вводит коэфиценты(A,B,D,E,C1,C2) сам. Ax1+Bx2=C1 Dx1+Ex2=C2

Решение задачи: «Решить систему из 2-х уравнений по формулам крамера»

textual
Листинг программы
Dim A, B, D, E, C1, C2, x1, x2
Dim det, det1, det2
A = InputBox("a")
B = InputBox("b")
D = InputBox("d")
E = InputBox("e")
C1 = InputBox("c1")
C2 = InputBox("c2")
MsgBox A & "x1 + " & B & "x2=" & C1 & Chr(13) & D & "x1 + " & E & "x2=" & C2
det = A * E - B * D
det1 = C1 * E - B * C2
det2 = A * C2 - C1 * D
x1 = det1 / det
x2 = det2 / det
MsgBox "x1=" & x1 & Chr(13) & "x2=" & x2

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


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

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

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