Матан Ребята наш любимый:)

@Sergei-kras · Регистрация: 15.12.2010

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

Привет. Не могу понять метод Гаусса Зегеля Он очень лёгкий но непонятный для меня.
Сессия жмёт.

Выручайте колегу.

Задача: Написать программу: Итерационный метод Гаусса Зегеля.
Для трёхдиагональной матрицы (Любого порядка. Ну не больше 6.)

Пример 3-х диагональной матрицы (вместо чисел напишу "0" и "1"):
( 1 1 0 0 0)
( 1 1 1 0 0)
( 0 1 1 1 0)
( 0 0 1 1 1)
( 0 0 0 1 1)
Трёхдиоганальная матрица 5-того порядка.

Очень надо знать решение по этому методу.

В программе должен быть реализован ввод размерности матрицы.
Ввод даных
Вывод данных.

@Vangok · 18.12.2010, 00:01

Во-первых не Зегеля, а Зейделя (Бедный Гаусс наверное в гробу перевернулся).
Вот держи на первом курсе писал алгоритм, только он на паскале, но думаю тяму хватит перегнать на Делфи:

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
type ar2d=array[1..50,1..50] of double;
     ar1d=array[1..50] of double;
 
procedure zeidel(n:byte;e:extended;a:ar2d;b:ar1d;x:ar1d);
var i,j:longint;
    s,v,m:double;
begin
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to n do
  if j<>i then s:=s+abs(a[i,j]);
 if s>=abs(a[i,i]) then
  begin
  writeln('SLAE is uncompactible');
  exit
  end;
end;
 
 
repeat
m:=0;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to n do
   if i<>j then 
     s:=s+a[i,j]*x[j];
 v:=x[i];
 x[i]:=(b[i]-s)/a[i,i];
 if abs(v-x[i])>m then m:=abs(v-x[i]);
 end;
until m<e;
writeln('roots: ');
for i:=1 to n do writeln('x[',i,']= ',x[i]:0:4);
end;

Добавлено через 3 минуты
Переменные a,b - соответсвтенно матрицы которые вводит пользователь.
x-матрица получившаяся, в результате решения.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Sergei-kras 0 / 0 / 0 Регистрация: 15.12.2010 Сообщений: 16

	Матан Ребята наш любимый:) 17.12.2010, 21:42. Показов 988. Ответов 1 Метки нет (Все метки) Привет. Не могу понять метод Гаусса Зегеля Он очень лёгкий но непонятный для меня. Сессия жмёт. Выручайте колегу. Задача: Написать программу: Итерационный метод Гаусса Зегеля. Для трёхдиагональной матрицы (Любого порядка. Ну не больше 6.) Пример 3-х диагональной матрицы (вместо чисел напишу "0" и "1"): ( 1 1 0 0 0) ( 1 1 1 0 0) ( 0 1 1 1 0) ( 0 0 1 1 1) ( 0 0 0 1 1) Трёхдиоганальная матрица 5-того порядка. Очень надо знать решение по этому методу. В программе должен быть реализован ввод размерности матрицы. Ввод даных Вывод данных. 0