целочисельная матрица

@Mischanja · Регистрация: 15.10.2009

Author24 — интернет-сервис помощи студентам

Задана целочисельная матрица A(n,n), n=<20 . Разработать программу, которая исчет и печатает номера тех рядков, елементы которых создают симетрические последовательности 1, 2, 3, 3, 2, 1 или 1, 2, 3, 5,3, 2, 1.

Просьба реализировать программку через параметр Delphi7 - "StrinGrid".

Помогите плизз

@conn · 22.10.2009, 01:34

Delphi

procedure TForm1.Button1Click(Sender: TObject);//заполнение рандомно нулями и ед-ми, можно вручную
var
  i,j : integer;
begin
  Randomize;
  for i:=0 to StringGrid1.ColCount-1 do
    for j:=0 to StringGrid1.RowCount-1 do
      StringGrid1.Cells[i,j]:=IntToStr(random(2));
end;
 
procedure TForm1.FormCreate(Sender: TObject);//тут как вам надо сделаете
begin
  form1.StringGrid1.RowCount:=5;
  form1.StringGrid1.ColCount:=5;
  form1.StringGrid1.FixedCols:=0;
  form1.StringGrid1.FixedRows:=0;
end;
 
procedure TForm1.Button2Click(Sender: TObject);//проверка на симетричность
var
  i,j : integer;
  sim_row, sim_col : boolean;
begin
  for i:=0 to StringGrid1.RowCount-1 do
  begin
    sim_row:=true;
    for j:=0 to StringGrid1.ColCount-1 do
    begin
      if StringGrid1.Cells[j,i]<>StringGrid1.Cells[StringGrid1.ColCount-j-1,i]
      then sim_row:=false;
    end;
    if sim_row then Memo1.Lines.Add('Row #'+IntToStr(i+1)+' is simetric');
  end
end;

это для рядов (Rows), для колонок (Cols) по аналогии можно сделать.

@Mischanja Всегда не хватает времени 119 / 119 / 20 Регистрация: 15.10.2009 Сообщений: 493
		1
	целочисельная матрица 21.10.2009, 19:21. Показов 1224. Ответов 1 Метки нет (Все метки) Задана целочисельная матрица A(n,n), n=<20 . Разработать программу, которая исчет и печатает номера тех рядков, елементы которых создают симетрические последовательности 1, 2, 3, 3, 2, 1 или 1, 2, 3, 5,3, 2, 1. Просьба реализировать программку через параметр Delphi7 - "StrinGrid". Помогите плизз 0

	22.10.2009, 01:34

целочисельная матрица

Решение