Решить систему из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д