Решение СЛАУ Методом Гаусса из файла.

@Dc1 · Регистрация: 07.06.2011

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

Доброго времени суток!
Нужно написать программу решения СЛАУ Методом Гаусса, но только чтобы данные брались из текстового файла... Помогите кто сможет!)
Я в интернете (в том числе и на этом сайте) видел код программы, но везде данные надо самому вписывать... а тут такая задача... Сам попробывал отредактировать... не получилось =(
+ как должен выглядеть вид матрицы в файле?! Думаю, найдется человек который сможет мне в этом помочь!

@Puporev · 08.06.2011, 12:17

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

как должен выглядеть вид матрицы в файле?!

Code
1
2
3
4
5
3
1.23 -2.35 1.36
-0.2 -1.23 5.23
5.23 11.26 0.23
14.0 12.62 15.8

Добавлено через 7 минут
Первая строка порядок системы
следующие 3 строки, матрица коэффициентов
последняя строка - свободные члены.
Как читать.

Pascal
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
uses crt;
var f:text;
    a:array[1..20,1..20] of real;
    b:array[1..20] of real;
    n,i,j:byte;
    nf,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,n);
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
for i:=1 to n do
read(f,b[i]);
close(f);
writeln('Расширенная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln(b[i]:8:2);
 end;
readln
end.

@Dc1 · 08.06.2011, 15:15 **[ТС]**

Вот я попробывал дальше вставить метод Гаусса и что у меня получилось....

Pascal
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
92
93
94
95
96
97
98
99
uses crt;
var f:text;
    a:array[1..20,1..20] of real;
    b:array[1..20] of real;
    x:array[1..20] of real;
    n,i,j:byte;
    nf:string;
    k,r,s:integer;
    max,c,M:real;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
reset(f);
if 0 <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,n);
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
for i:=1 to n do
read(f,b[i]);
close(f);
writeln('Расширенная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln(b[i]:8:2);
 end;
 for k:=1 to n do
    begin
      max:=abs(a[k,k]);
      r:=k;
      for i:=k+1 to n do
        if abs(a[i,k])>max then
          begin
            max:=abs(a[i,k]);
            r:=i;
          end;
      for j:=1 to n do
        begin
          c:=a[k,j];
          a[k,j]:=a[r,j];
          a[r,j]:=c;
        end;
      c:=b[k];
      b[k]:=b[r];
      b[r]:=c;
      for i:=k+1 to n do
        begin
          M:=a[i,k]/a[k,k];
          for j:=k to n do
            begin
              a[i,j]:=a[i,j]-a[k,j]*M;
            end;
          b[i]:=b[i]-b[k]*M;
        end;
    end;
  Writeln('Ступенчатый вид системы:');
  Writeln;
  for i:=1 to n do
    begin
      for j:=1 to n do
          Write(a[i,j]:5:1,' ');
          Write('|');
          Writeln(b[i]:5:1);
          Writeln;
    end;
  Writeln('Otvet:');
  Writeln;
  if a[n,n]=0 then
      if b[n]=0 then
        Writeln('Уравнение имеет бесконечное множество решений')
      else
        Writeln('Уравнение не имеет решения')
  else
    begin
      for i:=n downto 1 do
        begin
          s:=0;
          for j:=i+1 to n do
            begin
              s:=s+a[i,j]*x[j];
            end;
          x[i]:=(b[i]-s)/a[i,i];
        end;
      for i:=1 to n do
        Writeln('x[',i,']=',x[i]:5:1);
    end;
readln
end.

Если стереть

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
else
    begin
      for i:=n downto 1 do
        begin
          s:=0;
          for j:=i+1 to n do
            begin
              s:=s+a[i,j]*x[j];
            end;
          x[i]:=(b[i]-s)/a[i,i];
        end;
      for i:=1 to n do
        Writeln('x[',i,']=',x[i]:5:1);
    end;

Он мне находит ступенчатый вид, но ответ не выдает. Я наверно такую белеберду наделал?)

и + мне ошибку пишет когда было

Pascal
1
if IOResult <> 0 then

А так спасибо большое Puporev! Что хоть что-то есть))
и мне бы желательно разжевать что было в изначальном коде))) буду признателен очень.

@Puporev · 08.06.2011, 15:16

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

+ мне ошибку пишет когда было
Код Pascal
1
if IOResult <> 0 then

Так это для Турбо Паскаля, если в АВС пишешь, там по другому...

@Dc1 · 08.06.2011, 15:24 **[ТС]**

мне нужно для Turbo Pascal! только вот у меня Win 7 ... есть ли для win 7 Turbo Pascal? Щас поищу..

@Puporev · 08.06.2011, 15:26

Скачать Паскаль
ShoolPack

@Dc1 · 08.06.2011, 16:56 **[ТС]**

Puporev, ты не смотрел мой код? Не знаешь как мне помочь?

@Puporev · 08.06.2011, 16:59

Нет, не смотрел и не хочу... Я этого Гаусса уже не знаю сколько раз выкладывал в разном виде, аж тошнит.

@Dc1 · 16.06.2011, 12:00 **[ТС]**

Puporev, Не мог бы ты описать строки в коде? что для чего служит? или кто нибудь другой может знает?

Pascal
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
uses crt;
var f:text;
    a:array[1..20,1..20] of real;
    b:array[1..20] of real;
    n,i,j:byte;
    nf,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,n);
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
for i:=1 to n do
read(f,b[i]);
close(f);
writeln('Расширенная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln(b[i]:8:2);
 end;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Dc1 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 8

	Решение СЛАУ Методом Гаусса из файла. 07.06.2011, 22:34. Показов 3402. Ответов 8 Метки нет (Все метки) Доброго времени суток! Нужно написать программу решения СЛАУ Методом Гаусса, но только чтобы данные брались из текстового файла... Помогите кто сможет!) Я в интернете (в том числе и на этом сайте) видел код программы, но везде данные надо самому вписывать... а тут такая задача... Сам попробывал отредактировать... не получилось =( + как должен выглядеть вид матрицы в файле?! Думаю, найдется человек который сможет мне в этом помочь! 0

@Dc1 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 8
	08.06.2011, 15:24 [ТС]
	мне нужно для Turbo Pascal! только вот у меня Win 7 ... есть ли для win 7 Turbo Pascal? Щас поищу.. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.06.2011, 15:26
	Скачать Паскаль ShoolPack 1

@Dc1 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 8
	08.06.2011, 16:56 [ТС]
	Puporev, ты не смотрел мой код? Не знаешь как мне помочь? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.06.2011, 16:59
	Нет, не смотрел и не хочу... Я этого Гаусса уже не знаю сколько раз выкладывал в разном виде, аж тошнит. 0