Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
mvarvaryuk
0 / 0 / 0
Регистрация: 31.03.2018
Сообщений: 3
1

Не могу найти ошибку в решении, вроде какие-то ответы выдаёт, но не роботаеть.Метод Гаусса VBA EXCEL построчно вивид.Хто

13.05.2018, 19:47. Просмотров 96. Ответов 0
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Option Explicit
Public a As Variant
Public b As Variant
Public x As Variant
 
Sub Main()
    Dim mas() As Integer
    Dim a() As Double
    Dim a2() As Double
   Dim a1 As Double
   Dim k As Integer
      Dim k1 As Integer
   Dim c As Integer
    Dim n As Integer, i As Integer, sum As Integer, j As Integer
    Dim RowB() As Integer, ColE As Integer
    n = Val(InputBox("Введіть розмірність матриці"))
    sum = 0
    k1 = 0
    'Одна из фишек VBA - одной командой инициализируем массивы
    ReDim mas(1 To n, 1 To n)
    ReDim RowB(1 To n)
    Dim rng
    
    For i = 1 To n
        For j = 1 To n
        mas(i, j) = Val(InputBox("Введіть "))
       
        Cells(i, j) = mas(i, j)
        Next j
        RowB(i) = Val(InputBox("ВведітьB "))
       Cells(i, n + 1) = RowB(i)
        
    Next i
 
    For i = 1 To n
    sum = 0
       For j = 1 To n
        sum = sum + mas(i, j)
        Next j
    Cells(i, n + 2).Value = sum + RowB(i)
    Next i
    'Створення одного масиву
    ReDim a(1 To n, 1 To n + 2)
   For i = 1 To n
        For j = 1 To n + 2
       a(i, j) = Cells(i, j).Value
       Cells(i, j).Borders.Color = vbBlue
        Next j
    Next i
    k = n
    
    
    
    'додання одного рядка з 1
    For c = 1 To n
        a1 = a(1, 1)
        k = k + 1
        For j = 1 To n + 3 - c
        Cells(k, (j + c - 1)).Value = a(1, j) / a1
        Cells(k, j + c).Borders.Color = vbRed
        Next j
        
        
        
    'Створення одного масиву
    k1 = k1 + 1
    ReDim a(1 To n + 2, 1 To n + 2)
    For i = 1 To n + 1 - c 'поправка
        For j = 1 To n + 2
        a(i, j) = Cells(i + k1, j).Value
    Next j
    Next i
    k1 = k1 + (n - c) + 2
    
    
  
    
    ReDim a2(1 To n + 1, 1 To n + 2)
    For i = 1 To n - c
    k = k + 1
    For j = 1 To n + 2 - c
       a2(i, j) = a(i, j + 1) - a(n + 1 - c, j + 1) * a(i, 1)
        Cells(k, j + c).Value = a2(i, j)
    Next j
    Next i
    
     
    
   a = a2
Next c
End Sub
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2018, 19:47
Ответы с готовыми решениями:

Найти ошибку в решении системы методом Гаусса
Найти ошибку в решении системы методом Гаусса

При решении программа выдаёт значение функции, равное 0 или выдаёт ошибку. Что не так?
#include <iostream> #include <iomanip> #include <cmath> using namespace std; long Fact(short...

Не могу найти ошибку в решении
Интеграл по области 8ydx+xdy по области x={y}^{2}-8y,x=-15 обход положительный Разобьем на два...

Не могу найти ошибку в решении задачи
Сама задача: Найти значения функции X=Y^2 *(Y^2 -Y)/Y при Y={N,N*1,N*2,…,N*M} (N<M). Я её решил,но...

Выдаёт ошибку, которой вроде и нет
В чем ошибка? Удалены ссылки на рисунки с текстом программы

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2018, 19:47

Метод Гаусса. Найти ошибку.
Всё копаюсь с курсовиком, упёрлась в чисто математическую непонятку ;( Помогите, пожалуйста,...

Почему выдаёт ошибку? Вроде всё правильно!

Метод Гаусса - помогите найти ошибку
function metodgayssCLOY(a, b) ab = ; oldab = ab; s = size(ab); s1 = ; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru