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

Нужно перевести программу (метод Гаусса) написанную на С ++ в VBA с построчном виводом в EXCEL. Буду очень благодарен)

14.05.2018, 00:16. Просмотров 76. Ответов 0
Метки нет (Все метки)

C++
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
#include<iostream>
#include <math.h>
#include <stdlib.h>
using namespace std;
 
int main()
{
   int i, j, n, m;
//создаем массив
   cout << "введи число уравнений: ";
         cin >> n;
         cout << "введи число неизвестных: ";
         cin >> m;
         m+=1;
    float **matrix = new float *[n];
         for (i=0; i<n; i++)
             matrix[i] = new float [m];
 
//инициализируем
 
    for (i = 0; i<n; i++)
 
        for (j = 0; j<m; j++)
        {
            cout << "Элемент " << "[" << i+1 << " , " << j+1 << "]: "  ;
 
            cin >> matrix[i][j];
}
 
 //выводим массив
    cout << "matrix: " << endl;
      for (i=0; i<n; i++)
       {
          for (j=0; j<m; j++)
            cout << matrix[i][j] << " ";
        cout << endl;
       }
    cout << endl;
 
//Метод Гаусса
//Прямой ход, приведение к верхнетреугольному виду
    float  tmp, xx[m];
    int k;
 
    for (i=0; i<n; i++)
     {
       tmp=matrix[i][i];
         for (j=n;j>=i;j--)
             matrix[i][j]/=tmp;
           for (j=i+1;j<n;j++)
          {
             tmp=matrix[j][i];
               for (k=n;k>=i;k--)
             matrix[j][k]-=tmp*matrix[i][k];
          }
      }
  /*обратный ход*/
    xx[n-1] = matrix[n-1][n];
     for (i=n-2; i>=0; i--)
       {
           xx[i] = matrix[i][n];
           for (j=i+1;j<n;j++) xx[i]-=matrix[i][j]*xx[j];
       }
 
//Выводим решения
       for (i=0; i<n; i++)
           cout << xx[i] << " ";
       cout << endl;
 
    delete[] matrix;
 
   return 0;
}
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2018, 00:16
Ответы с готовыми решениями:

Подскажите пожалуйста! буду очень благодарен!
http://vk.com/im?sel=101132947&amp;z=photo101132947_385185009%2Fmail227520 Надо решить 1 и 3 задачу...

Код програмы поможите очень нужно, буду благодарен очень: y=cos(x)+1
Функиция: y=cos(x)+1 Промежуток Шаг 0,5

Нужно пройти тесты, буду очень благодарен!
Тесты по программированию с++ П.5.18.Правил Запрещено размещать задания и решения в виде...

Нужно переделать проекты через указатели.Буду очень благодарен)
Переделать всё через указатели. №1 Удалить элементы кратные 7. Добавить после каждого нечетного...

Ребят, нужно реализовать задачи в maple! Буду очень благодарен!
Зад 1. Менеджмент компании принял решение о постоянном рекламировании нового продукта в течение...

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

Разработать программу, которая вводит данные и выводит текст TRUE, буду очень благодарен
Задание 1 Постановка задачи. Разработать программу, которая вводит данные и выводит текст TRUE,...

Нужно перевести с С++ на ПаскальАБС буду очень признателен )
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; using namespace std; void func(float a, float b, float...

Задача очень важно.Буду очень благодарен
Дано послідовність n-байт (символів) (n &lt; 100). Вывести окремо великі букви, окремо маленькі букви.


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

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

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