VPF::[Delphi] Заполнение StringGrid снизу вверх

Hely

Дата 30.4.2007, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 20.11.2006
Где: Россия

Репутация: нет
Всего: нет

Задание было таково:
"Квадратная матрица, симметричная относительно главной диагонали, задана верхним треугольником в виде одномерного массива. Восстановить исходную матрицу и вывести ее по строкам."

Я ее сделала, но вот в чем беда: не знаю, как вывести эту матрицу по строкам, т.е. этот заданный треугольник-то выводится, а как дальше заполнить снизу вверх (т.е. начиная с самого последнего элемента, чтобы было симметрично) не знаю...
Может быть надо не снизу вверх заполнять, а как-то по-другому? Подскажите, как мне ее доделать... smile

Код:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SG2: TStringGrid;
    Button1: TButton;
    edit1: TEdit;
    SG3: TStringGrid;
    Button2: TButton;
    procedure edit1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.edit1Click(Sender: TObject);
begin
edit1.text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  y: integer;
  a: real;
begin
  a:=strtofloat(edit1.Text);
  y:=strtoint(floattostr(((a*a)/2)+ (a/2)));
  SG2.ColCount:=y;
  end;

procedure TForm1.Button2Click(Sender: TObject);

var g,h,w,q,m,n: integer;

begin
  SG3.ColCount:=strtoint(edit1.text);
  SG3.RowCount:=strtoint(edit1.text);
  w:=strtoint(edit1.Text);
  q:=0;
  for g:=0 to SG3.RowCount-1 do
    begin
      w:=w-1;
      for h:=0 to w do
        begin
          sg3.Cells[h,g]:=sg2.Cells[q,0];
          q:=q+1;
        end;
    end;
  
end;

end.

comtat

Дата 30.4.2007, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71

Держи решение smile

Присоединённый файл ( Кол-во скачиваний: 11 )

qq.rar 7,18 Kb

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »