Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41

Метод простых итераций для решения СЛАУ (консоль -> форма)

19.04.2015, 18:30. Показов 3677. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток. Есть код реализации метода простых итераций для решения СЛАУ в консоли, нужно сделать так, чтобы матрица А заполнялась из одного Стринггрида, B из второго, n бралось из cspinedita, ну и eps из edita.Вот код:
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
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include <conio.h>
#include <math.h>
 
 
    const n = 5;
 
    float A[n][n] = {
                    { 79.2,   0,  35, 19.8,  24 },
                    { 39.6,  85,   0, 19.8,  25 },
                    { 19.8, -15,  45,    0,  10 },
                    { 49.5,  18,  20, 89.1,   0 },
                    {  9.9,  15,  20,-49.5,  95 },
                    };
 
    float  B[n]  = { 86, 55, 77, 5, -64};
 
    float  X[30][n] = {0};
    float  TEST[n];
    float  summ;
    float  eps;
    int    k = 0;
 
 
bool ExitFunc(float eps)
{
    if(k == 0) return true;
    for(int i=0; i<n; i++){
    if( fabs(X[k][i]-X[k-1][i]) > eps )
        return true;
    }return false;      
}
 
void main(void)
    {   
    printf("Enter eps:");
    scanf("%f",&eps);
    do 
    {
    for(int i=0; i<n; i++)        
        {
        summ = 0;
        for(int j=0; j<n; j++)
           if(i!=j)
              summ += A[i][j] * X[k][j];
        X[k+1][i] = (1/A[i][i]) * (B[i] - summ);            
        }
    k++;
    }while(ExitFunc(eps));
 
    //Проверка
    printf("\nResult:\n");
    for(int j=0; j<n; j++)
       printf("%4.8f   ",X[k][j]);
 
    printf("\nTest:\n");
    for(int i=0; i<n; i++)
        {
        for(int j=0; j<n; j++)
           TEST[i] +=(A[i][j] * X[k][j]);
        printf("%4.8f  ", TEST[i]);
        }
 
    printf("\nIterations:\n%i",k);
    getch();
    }
Помогите пожалуйста.Буду благодарен.

Добавлено через 8 минут
Попробовал реализовать, но выводит ошибки:
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
double X[30][n]={0};//тут: constant expression required
int    k = 0;
bool ExitFunc(float eps){// и тут: declaration syntax error
    if(k == 0){ return true;}
    for(int i=0; i<n; i++){
    if( fabs(X[k][i]-X[k-1][i]) > eps){
        return true;}
    }return false;
}
int i,j;
double** A;
double* B;
float  summ;
float  eps;
Edit1->Text="0,0001";
bool ExitFunc(float eps);
n=StrToInt(CSpinEdit4->Value);
B=new double[n];
//float  TEST[n];
for(int i=0;i<n;i++){
  A[i]=new double[n];
  }
for(int i=0; i<n ;i++){
    for (int j=0;j<n;j++){
        A[i][j]=StrToFloat(StringGrid8->Cells[i][j]);
        B[i]=StrToFloat(StringGrid9->Cells[0][j]);
        }
        }
 
eps=StrToFloat(Edit1->Text);
 
do
{
  for(int i=0; i<n; i++)
  {
    summ = 0;
    for(int j=0; j<n; j++)
    if(i!=j)
      summ += A[i][j] * X[k][j];
    X[k+1][i] = (1/A[i][i]) * (B[i] - summ);
    Memo4->Lines->Add(FloatToStr(k+1)+"-ÿ èòåðàöèÿ:");
    Memo4->Lines->Add(X[k+1][i]);
 
  }
  k++;
}while(ExitFunc(eps));
 
for(int j=0; j<n; j++){
       StringGrid10->Cells[0][j]=FloatToStr(X[k][j]);}
Добавлено через 28 минут
И все это происходит после нажатия кнопки
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.04.2015, 18:30
Ответы с готовыми решениями:

Метод простых итераций для решения СЛАУ
Всем добрый вечер! Столкнулся с заданием на тему решения СЛАУ методом простых итераций и Зейделя. В итоге завис с первым методом:...

Метод простых итераций для решения СЛАУ
Доброго времени суток. Если у кого нибудь есть готовые программы для данного метода, скиньте пожалуйста. Особенно написанные на Borland C++.

Метод простых итераций для решения СЛАУ
Здравствуйте. Есть функция, реализующая метод простых итераций: void ProstIterMetode() {int i,j; double *x0,delta,*E; x0=new...

10
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
19.04.2015, 21:42
Я не понял, вот этот последний код - он прописан в обработчике кнопки?

А в целом, чехарда какая-то. Размеры статического массива нельзя задавать не-константами, прототипы размещать после определения функций тоже ни к чему.
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 00:28  [ТС]
Да, в кнопке, помогите, как правильно будет
0
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
20.04.2015, 00:36
Для начала. Правильно будет - вынести определение функции ExitFunc за пределы обработчика клика кнопки. И задавать размеры массива X[][] константами. И объявление обозначенного массива тоже следует вынести либо в глобальную область видимости, либо в класс, где будет объявлен метод ExitFunc...
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 12:35  [ТС]
но мне нужно значение n брать из edita

Добавлено через 37 секунд
т.е. из cspinedita
0
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
20.04.2015, 13:04
Значит, статический массив отпадает.
Вот так можно создать и использовать массив произвольного размера:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// объявляем, причем лучше в классе формы...
double * arr[ 30 ];
 
void __fastcall TForm1::btn_2Click( TObject * Sender )
{
    // создаем
    long N( sedit_1->Value );
 
    for ( int i( 0 ), i_limit( 30 ); i < i_limit; ++i )
    {
        arr[ i ] = new double[ N ];
    }
 
    // как-то используем массив
    // ...
 
    // и потом освобождаем его
    for ( int i( 0 ), i_limit( 30 ); i < i_limit; ++i )
    {
        delete[ ]arr[ i ];
    }
}
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 13:40  [ТС]
после нажатия на кнопку выдает ошибку:
вот скрин
Миниатюры
Метод простых итераций для решения СЛАУ (консоль -> форма)  
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
20.04.2015, 14:35  [ТС]
вроде исправил написал
C++
1
2
3
4
A = new double * [n];
for(int i=0;i<n;i++){
 A[i]=new double[n];
  }
Добавлено через 5 минут
но потом после заполнения массивов и нажатия на кнопку новая ошибка:
Миниатюры
Метод простых итераций для решения СЛАУ (консоль -> форма)  
0
 Аватар для BRcr
4043 / 2333 / 292
Регистрация: 03.02.2011
Сообщений: 5,066
Записей в блоге: 10
20.04.2015, 20:38
Хто такое массив "В"?
Лучше всего приводи полный код в его последнем виде. Иначе непонятно по одним только скринам, что не так.

Также изображения и прочие файлы следует загружать на форум. Расширенный режим редактора -> управление вложениями.
0
1408 / 572 / 127
Регистрация: 31.10.2011
Сообщений: 1,960
20.04.2015, 22:47
Цитата Сообщение от BAOlOEJlbLLlUK Посмотреть сообщение
но потом после заполнения массивов и нажатия на кнопку новая ошибка:
X[k+1][i]
что такое X и что такое k?
0
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 41
21.04.2015, 23:51  [ТС]
B - это столбец свободных коэффициентов, X- это вектор решения, k- это итерация

Добавлено через 3 минуты
функция:
C++
1
2
3
4
5
6
7
8
9
10
int k=0;
double **X;
bool ExitFunc(float eps);
bool ExitFunc(float eps){
    if(k == 0){ return true;}
    for(int i=0; i<n; i++){
    if( fabs(X[k][i]-X[k-1][i]) > eps){
        return true;}
    }return false;
}
обработчик клика
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
int n;
n=StrToInt(CSpinEdit4->Value);
//double
//int    k = 0;
X = new double * [n];
for ( int i=0; i<n; ++i )
    {
        X[i] = new double[n];
    }
//int i,j;
double** A;
double* B;
float  summ;
float  eps;
//Edit1->Text="0,0001";
B=new double[n];
//float  TEST[n];
A = new double * [n];
for(int i=0;i<n;i++){
 A[i]=new double[n];
  }
for(int i=0; i<n ;i++){
    for (int j=0;j<n;j++){
        A[i][j]=StrToFloat(StringGrid8->Cells[i][j]);
        B[i]=StrToFloat(StringGrid9->Cells[0][j]);
        }
        }
do
{
  for(int i=0; i<n; i++)
  {
    summ = 0;
    for(int j=0; j<n; j++){
    if(i!=j){
      summ += A[i][j] * X[k][j];}}
    X[k+1][i] = (1/(A[i][i])*(B[i] - summ));
    Memo4->Lines->Add(FloatToStr(k+1)+"-я итерация:");
    Memo4->Lines->Add(X[k+1][i]);
 
  }
  k++;
}while(ExitFunc(eps));
 
for(int j=0; j<n; j++){
       StringGrid10->Cells[0][j]=FloatToStr(X[k][j]);}
for ( int i=0; i<n ; ++i )
    {
        delete[]X[i];
    } 
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.04.2015, 23:51
Помогаю со студенческими работами здесь

Метод простых итераций для решения СЛАУ
Здравствуйте. Попытался сделать программу для решения СЛАУ методом простых итераций. Не работает. Вернее работает неправильно. Помогите...

Метод простых итераций и метод Зейделя для решения СЛАУ
1. Методом простых итераций и методом Зейделя решить СЛАУ вида Bx=с B=\begin{pmatrix}21 &amp; 3 &amp; 1 &amp; 1\\ 3 &amp; 21 &amp; 2...

Преобразование СЛАУ для решения методом простых итераций
Нужно решить СЛАУ методом простых итераций, условие сходимости не выполняются ни для одного уравнения в системе. Не могу преобразовать...

Алгоритм написания для решения СЛАУ методом простых итераций
Прошу помощи в написании программы для решения СЛАУ методом итераций. Нет, я не прошу писать код за меня, я прошу вашей помощи, чтобы...

Метод простых итераций для СЛАУ
Доброго времени суток всем!!! решаю СЛАУ методом простых итераций, проблема вот в чем: не могу понять, как сделать расчет по к-ым...


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru