Разреженные матрицы. Способы хранения.

[slavarus]

Разряженные матрицы. Способы хранения. Надо написать программу которая бы показывала, как работает этот метод(на pascal, delphi или с++). Заранее спасибо!

[phomm]

Если правильно понимаю понятие "разряженные матрицы" то делать примерно так :

type
item = record
  x, y, v : byte;  
  end;
...
procedure TForm1.bSaveClick(Sender: TObject);
var
  f : TFileStream;
  i,j : byte;
  it: item;
begin
  f := TFileStream.Create('1.dat', fmCreate);
  for i := 0 to SG.ColCount-1
    do for j := 0 to SG.RowCount-1
      do if sg.cells[i,j] <> ''
        then begin
          it.x := i;
          it.y := j;
          it.v := StrToInt(SG.Cells[i,j]);
          f.Write(it, SizeOf(it));
        end;
  FreeAndNil(f);
end;

procedure TForm1.bLoadClick(Sender: TObject);
var
  f : TFileStream;
  it: item;
begin
  f := TFileStream.Create('1.dat', fmOpenRead);
while f.Position < f.size
  do begin
    f.Read(it, SizeOf(it));
    SG.Cells[it.x, it.y] := IntToStr(it.v);
  end;
  FreeAndNil(f);
end;

во вложении проект