треугольный вид матрицы

[nexzis]

мм а что не так с массивом из файла?
обнулять как в Гауссе а не просто 0 поставить

[cybermetal]

в каком гауссе?)

вот дана матрица
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4
нарисуй мне, что с ней должно произойти, пожалуйста, и я все пойму

[nexzis]

1 х х х х
0 1 х х х
0 0 1 х х
0 0 0 1 х
0 0 0 0 1
иксы это числа которые получатся

это часть от решения СЛАУ из алгебры

[cybermetal]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; f:textfile;  a:array[1..5,1..5] of real;
   s:string;  r :real ;

implementation

{$R *.dfm}
 const n=5;
procedure TForm1.Button1Click(Sender: TObject);
 var i,j:integer;
begin
assignfile( f,'äîê.txt');
reset(f);
for i:=1 to 5 do begin
for j:=1 to 5 do begin
read(f,a[i,j]);
s:=s+floattostr(a[i,j])+#9;
end;
s:=s+#13;

end;
 label1.Caption:=s;
 end;
procedure TForm1.Button2Click(Sender: TObject);
var k:integer ;  i,j:integer;
begin
      for i:=1 to n do    //âûâîä ïî ñòðîêàì è ñòîëáöàì
      begin form1.Label2.Caption:=form1.Label2.Caption+#10+#13;
      for j:=1 to n do
      begin label2.caption:=label2.caption+floattostr(a[i,j])+' ';
      end;
      end;
end;







end.

Теперь, ты хочеш вставить некий код, который приведет матрицу к виду
1 х х х х
0 1 х х х
0 0 1 х х
0 0 0 1 х
0 0 0 0 1
и может быть ты напишеш формулу, по которой это делается?

[nexzis]

а стоп перепутал надо наоборот
1 0 0 0 0
х 1 0 0 0
х х 1 0 0
х х х 1 0
х х х х 1,
вот так

сейчас отсканирую скину...может быть то как ты делал то что мне и нужно
что - то вроде этого

[cybermetal]

http://www.mathelp.net/MA5.htm

[nexzis]

это и нужно сделать вот я только вспомнить не могу обязательно что б главная диагональ 1 были или нет

[cybermetal]

type TMas = array [1..2,1..2] of real;
var Mas: TMas;
    i,j : byte;
    temp,b1,b2,x,y: real;
begin
      for i:=1 to 2 do
         begin write('x',i,'=');
               readln(Mas[i,1]);
               write('y',i,'=');
               readln(Mas[i,2]);
         end;

         write('b1=');
         readln(b1);
         write('b2=');
         readln(b2);
         
      temp:=Mas[1,1] / Mas[2,1];
      b2:=b2*temp-b1;
      for j:=1 to 2 do
         begin Mas[2,j]:=Mas[2,j]*temp-Mas[1,j];
         end;

      y:=b2/Mas[2,2];
      x:=(b1-y*Mas[1,2])/Mas[1,1];
      writeln('x=',x);
      writeln('y=',y);
      readln;
end.

Писал давно, кому то нужно было только для двух уравнений... Поэтому она не универсальная.

нет, там единиц не будет. Там будут просто значения

[nexzis]

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

[cybermetal]

http://programmersforum.ru/showthread.php?t=49467