home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / lgs_inv.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1979-12-31  |  1006 b   |  38 lines
  1. (* ------------------------------------------------------------------------ *)
  2. (*                   Demonstration von MATRIX.INC                           *)
  3. (*                        Loesung eines LGS                                 *)
  4. (* ------------------------------------------------------------------------ *)
  5.  
  6. PROGRAM Solving_LGS_by_Inverse;
  7.  
  8. CONST MaxIndex = 5;
  9.  
  10. {$I MATRIX.INC}
  11.  
  12. VAR A,B: Matrix;
  13.     i,j: Range;
  14.     Key: CHAR;
  15.  
  16. BEGIN
  17.   ClrScr;
  18.   WriteLn('Eingabe der Koeffizientenmatrix:'); WriteLn;
  19.   ReadMat('CON:',A);
  20.   Inverse(A);
  21.   B.Rows := A.Rows;
  22.   B.Columns := 1;
  23.   REPEAT
  24.     WriteLn;
  25.     WriteLn('Eingabe der rechten Seite:'); WriteLn;
  26.     FOR i := 1 TO A.Rows DO
  27.     BEGIN
  28.       Write('b[', i, '] = ');
  29.       ReadLn(B.Coeff[i,1]);
  30.     END;
  31.     MultMat(A, B, B);
  32.     WriteLn('Loesung des Systems:');
  33.     WriteMat('CON:', B, 10, 4); WriteLn;
  34.     Write('Abbruch mit <E>, sonst weitere Berechnung...');
  35.     ReadLn(Key);
  36.   UNTIL Key IN ['E','e'];
  37. END.
  38.