Интересная задача! -

[DannerDOS.kz]

Написать программу: Обнуления значений матрицы метадом Гаусса, обнуление происходит по диогонали ниже стоящих значений, мнимая диогональ проходит от значения "А11" до "Аnn", при этом первая строка остается первоначальной и все значения матрицы зануляются по отношению с этой строкой... Метод Гаусса вы сможете рассмотреть здесь: http://matclub.ru/lec1/lec111.htm Примечание: Придерживайтесь метода Гаусса! Все могут решить данную задачу но вот в чем делемма: неукого (из мойх согрупников) конечная матрица является неверной!
И так... Я тоже приступлю к решению данной задачи! Всем уважающем себя программистам желаю удачи! Let's GO!

[DannerDOS.kz]

А вот и сам КОД :::

Program Zadacha_DannerDOS;
Uses crt;
Var matrix_B:array[1..10] of real;
    matrix_A:array[1..10,1..10] of real;
    i,j,m,k : integer; kf:Real;

{ Процедура занулевывание значений матрицы }
  Procedure MtToNull (Var i,j : integer);
  Var kf,k: real; h:Integer;
  Begin

    kf:=matrix_a[2,j+1]/matrix_a[1,j+1];
    k:=kf*matrix_a[1,j+1];
    matrix_a[i,j]:=matrix_a[2,j+1]-k;
    
    For h := 1 to m do begin
    matrix_a[i,h] := matrix_a[i,h] * kf;
    matrix_b[j+1] := matrix_b[j+1] * kf;

  end;
  
  End;

{ Процедура вывода матрицы на экран }
  Procedure WriteMatrix;
  Var i,j: integer;
  Begin
    For i := 1 to m do begin
      For j := 1 to m do Write(matrix_a[i,j]:8:2);
      Writeln('      | ', matrix_b[i]:8:2);
    end;
  End;

Begin
ClrScr;
Writeln('':15,'Решение матриц метадом Гауса');
Writeln('Задайте длины строк матрицы и столбцов:');
Write('m = '); Readln(m);
WriteLn('Задайте значения данной матрицы');
For i := 1 to m do
For j := 1 to m do begin
  Write('Элемент А[',i,':',j,']=');
  Readln(matrix_a[i,j]);
End;
WriteLn('Задайте числовое значение равенств строк = ');
For i := 1 to m do begin
  Write('Элемент B[',i,']=');
  Readln(matrix_b[i]);
End;
ClrScr;
Writeln('Исходная матрица:');
WriteMatrix;
Writeln('------------------------------------------');

k := 1;

For i := 2 to m do begin
  k := i - 1;
  For j:= 1 to k do begin
    if matrix_a[i,j] <> 0 then MtToNull(i,j);
  end;
End;

Writeln('Конечный результат:');
WriteMatrix;

Readln;
Readln;
END.

У кого есть еще варианты? - сМеЛеЙ!!!

[DannerDOS.kz]

- Алоуха!