unit1.pas

用于开发税务票据管理的软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  matrx2=array of array of real;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
//PROGRAM D6R5
//Driver for routine BALANC
uses
  unit2;
  {$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
    A:matrx2;      R,C:Array[0..5] of real;
    I,J:Integer;   F:TextFile;
const
    s1='%10.2f';   NP = 5;
begin
  setlength(A ,6,6);
  //输入已知的矩阵
  A[1, 1]:=1; A[1, 2]:=100; A[1, 3]:=1; A[1, 4]:=100; A[1, 5]:=1;
  A[2, 1]:=1; A[2, 2]:=1;   A[2, 3]:=1; A[2, 4]:=1;   A[2, 5]:=1;
  A[3, 1]:=1; A[3, 2]:=100; A[3, 3]:=1; A[3, 4]:=100; A[3, 5]:=1;
  A[4, 1]:=1; A[4, 2]:=1;   A[4, 3]:=1; A[4, 4]:=1;   A[4, 5]:=1;
  A[5, 1]:=1; A[5, 2]:=100; A[5, 3]:=1; A[5, 4]:=100; A[5, 5]:=1;
  //输出计算结果到文件
  AssignFile(F, 'd:\delphi_shu\p6\d6r5.dat');
  Rewrite(F);
  //Print norms
    For I:= 1 To NP do
    begin
      R[I]:=0;
      C[I]:=0;
      For J:=1 To NP do
      begin
        R[I]:=R[I] + Abs(A[I, J]);
        C[I]:=C[I] + Abs(A[J, I]);
      end;
    end;
    Writeln(F);
    Writeln(F, ' Rows:');
    Writeln(F);
    Writeln(F, Format(s1,[R[1]]), Format(s1,[R[2]]), Format(s1,[R[3]]),
                                 Format(s1,[R[4]]), Format(s1,[R[5]]));
    Writeln(F);
    Writeln(F, ' Columns: ');
    Writeln(F);
    Writeln(F, Format(s1,[C[1]]), Format(s1,[C[2]]), Format(s1,[C[3]]),
                                 Format(s1,[C[4]]), Format(s1,[C[5]]));
    Writeln(F);
    Writeln(F, '  ********** Balancing Matrix **********');
    BALANC(A, NP);
    //Print norms
    For I:=1 To NP DO
    begin
        R[I]:=0;
        C[I]:=0;
        For J:=1 To NP do
        begin
            R[I]:=R[I] + Abs(A[I, J]);
            C[I]:=C[I] + Abs(A[J, I]);
        end;
    end;
    Writeln(F);
    Writeln(F, ' Rows:');
    Writeln(F);
    Writeln(F, Format(s1,[R[1]]), Format(s1,[R[2]]), Format(s1,[R[3]]),
                                 Format(s1,[R[4]]), Format(s1,[R[5]]));
    Writeln(F);
    Writeln(F, ' Columns: ');
    Writeln(F);
    Writeln(F, Format(s1,[C[1]]), Format(s1,[C[2]]), Format(s1,[C[3]]),
                                 Format(s1,[C[4]]), Format(s1,[C[5]]));
    Writeln(F);
    CloseFile(F);
    //屏幕显示计算结果
    memo1.Lines.LoadFromFile('d:\delphi_shu\p6\d6r5.dat');
end;

end.