Метод Гаусса

@wake · Регистрация: 17.12.2011

Студворк — интернет-сервис помощи студентам

Всем привет. У меня есть решение Методом Гаусса на Делфи:

Delphi
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
  var a: Matrix;
      b,x: Vector;
      h: Double;
      i,j,k,n:integer;
begin
  n := StrToIntDef(Text, StringGrid1.ColCount);
  for j := 0 to n - 1 do
    for i := 0 to n - 1 do
      a[i + 1, j + 1] := StrToFloatDef(StringGrid1.Cells[j, i], 0);
  for I := 0 to n - 1 do b[i + 1] := StrToFloatDef(StringGrid2.Cells[0, i], 0);
  for i:=1 to n-1 do
    for j:=i+1 to n do
    begin
      a[j,i]:=-a[j,i]/a[i,i];
      for k:=i+1 to n do
        a[j,k]:=a[j,k]+a[j,i]*a[i,k];
        b[j]:=b[j]+a[j,i]*b[i]
    end;
    x[n]:=b[n]/a[n,n];
    for i:=n-1 downto 1 do
    begin
      h:=b[i];
      for j:=i+1 to n do h:=h-x[j]*a[i,j];
      x[i]:=h/a[i,i]
    end;

Matrix и Vector задаются в type:

Delphi
1
2
Vector = array[1..MaxDimension] of Double;
Matrix = array[1..MaxDimension] of Vector;

Вот что получилось при переписывании на с++:

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
void __fastcall TForm2::Button1Click(TObject *Sender)
{
int n = StrToInt(Edit1->Text);
int a[n][n];
int b[n];
int x[n];
for(int i=0; i<n; i++){
   for(int j=0; j<n; j++){
       a[i+1][j+1] = StrToInt(StringGrid1->Cells[i][j]);
      }
      }
for(int i=0; i<n; i++){
    b[i+1] = StrToInt(StringGrid2->Cells[i]);
   }
    }
for(int i=0; i<n-1; i++){
    for(int j=i++; j<n; j++){
        a[j][i] = -a[j][i]/a[i][i];
           for(int k=i++; k<n; k++){
               a[j][k] = a[j][k]+a[j][i]*a[i][k];
               b[j] = b[j]+a[j][i]*b[i];
              }
              }
               }
x[n]:=b[n]/a[n][n];
for(i = n-1; i<2; i--){
    double h = b[i];
    for (j = i+1;j<n;j++){h = h-x[j]*a[i][j]}
   x[i] = h/a[i][i];
}

Если не сложно пожалуйста проверьте, т.к. программа выдает кучу ошибок, я уже не знаю что делать.

cpp_developer · 19.12.2011, 00:15

есть хорошая традиция писать сюда текст ошибок с цитированием строк, к которым они относятся

Метод гаусса
Помогите реализовать метод Гаусса в C++ Builder 5 или 6!с визуализацией!
и т.д.

@wake · 19.12.2011, 00:54 **[ТС]**

По данным ссылкам уже переходил - не помогло.

Вот ошибки:

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
void __fastcall TForm2::Button1Click(TObject *Sender)
{
int n = StrToInt(Edit1->Text);
int a[n][n];  //[C++ Error] Unit2.cpp(59): E2313 Constant expression required
int b[n];      //[C++ Error] Unit2.cpp(59): E2313 Constant expression required
int x[n];      //[C++ Error] Unit2.cpp(59): E2313 Constant expression required
for(int i=0; i<n; i++){
   for(int j=0; j<n; j++){
       a[i+1][j+1] = StrToInt(StringGrid1->Cells[i][j]);
      }
      }
for(int i=0; i<n; i++){
    b[i+1] = StrToInt(StringGrid2->Cells[i]);
   }
    }
for(int i=0; i<n-1; i++){      // [C++ Error] Unit2.cpp(69): E2040 Declaration terminated incorrectly
// & [C++ Error] Unit2.cpp(69): E2141 Declaration syntax error & [C++ Error] Unit2.cpp(69): E2344 Earlier // declaration of 'i' & [C++ Error] Unit2.cpp(69): E2238 Multiple declaration for 'i'
    for(int j=i++; j<n; j++){
        a[j][i] = -a[j][i]/a[i][i];
           for(int k=i++; k<n; k++){
               a[j][k] = a[j][k]+a[j][i]*a[i][k];
               b[j] = b[j]+a[j][i]*b[i];
              }
              }
               }
x[n]:=b[n]/a[n][n];
for(i=n-1; i<2; i--){     // [C++ Error] Unit2.cpp(69): E2040 Declaration terminated incorrectly
// & [C++ Error] Unit2.cpp(69): E2141 Declaration syntax error & [C++ Error] Unit2.cpp(69): E2344 Earlier   // // declaration of 'i' & [C++ Error] Unit2.cpp(69): E2238 Multiple declaration for 'i'
    double h = b[i];
    for (j:=i+1;j<n;j++){h:=h-x[j]*a[i][j]}
   x[i]:=h/a[i][i];
}

@nick42 · 19.12.2011, 00:57

Сообщение от wake

Если не сложно пожалуйста проверьте

Рутинную работу за кого-то здесь вряд-ли возьмутся выполнять. А присоветовать что-либо из личного опыта - это реально. Я обычно в подобных случаях пробую максимально комментировать текст, вызывающий бурную реакцию компилятора, добиваясь сведения числа ошибок до одной-двух. И потом шаг за шагом продвигаюсь по своему тексту. Если для понимания нужно узнать значение параметра - вывожу его куда-нибудь на Label. Ну, а так далее
И, кстати, зачем в 15 строке закрывающая фигурная скобка? Фигурные - они вообще имеют свойство искажать всю картину невосприятия компилятором Вашего текста

@wake · 19.12.2011, 01:05 **[ТС]**

ок, спасибо за дельный совет

cpp_developer · 19.12.2011, 01:09

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
  for(int i=0; i<n; i++) {
    for(int j=0; j<n; j++) {
      a[i+1][j+1] = StrToInt(StringGrid1->Cells[i][j]);
    }
  }
  for(int i=0; i<n; i++) {
    b[i+1] = StrToInt(StringGrid2->Cells[i]);
  }
// }
  for(int i=0; i<n-1; i++) {      // [C++ Error] Unit2.cpp(69): E2040 Declaration terminated incorrectly
// & [C++ Error] Unit2.cpp(69): E2141 Declaration syntax error & [C++ Error] Unit2.cpp(69): E2344 Earlier // declaration of 'i' & [C++ Error] Unit2.cpp(69): E2238 Multiple declaration for 'i'
    for(int j=i++; j<n; j++){
      a[j][i] = -a[j][i]/a[i][i];
      for(int k=i++; k<n; k++) {
        a[j][k] = a[j][k]+a[j][i]*a[i][k];
        b[j] = b[j]+a[j][i]*b[i];
      }
    }
  }
  x[n]:=b[n]/a[n][n];
  for(i=n-1; i<2; i--) {     // [C++ Error] Unit2.cpp(69): E2040 Declaration terminated incorrectly
// & [C++ Error] Unit2.cpp(69): E2141 Declaration syntax error & [C++ Error] Unit2.cpp(69): E2344 Earlier   // // declaration of 'i' & [C++ Error] Unit2.cpp(69): E2238 Multiple declaration for 'i'
    double h = b[i];
    for (j:=i+1;j<n;j++) {
      h:=h-x[j]*a[i][j]
    }
    x[i]:=h/a[i][i];
  }

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	19.12.2011, 00:15
	есть хорошая традиция писать сюда текст ошибок с цитированием строк, к которым они относятся Метод гаусса Помогите реализовать метод Гаусса в C++ Builder 5 или 6!с визуализацией! и т.д. 0

@wake 0 / 0 / 0 Регистрация: 17.12.2011 Сообщений: 13
	19.12.2011, 01:05 [ТС]
	ок, спасибо за дельный совет 0