Сформировать матрицу 7х7 элементов. Вывести ее на экран, развернув на 90 градусов по часовой стрелке (Delphi)

[Kolya23]

Сформировать матрицу 7х7 элементов, заполненную согласно схеме. Вывести ее на экран, развернув на 90 градусов по часовой стрелке.

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  m,m1:array of integer;
  n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
I,J:integer;
 // Çàïîëíåíèå 
ìàññèâà è âàâîä â 1-ûé
 ñòîëáåö StringGrid'a
begin
 if Edit1.text<>'' then
   begin
    N:=StrToint(Edit1.text);
    StringGrid1.RowCount:=N;
 end
 else
 begin
   begin
    ShowMessage('Ââåäèòå  "N"  ');
    Edit1.SetFocus;
    Exit;
   end;
 end;
  SetLength(M,N);
  for i := 0 to N-1 do
  for j :=0 to 7 do
  begin
   M[i]:=RandomRange(-50,100);
   StringGrid1.cells[j,i]:=INtTostr(M[i]);
  end;
Button2.Enabled:=true;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin

end.

я рандомно заполнил таблицу 7 на 7, но как ее перевернуть на кнопку 2 понятия не имею

[Serge_Bliznykov]

А поиском по форуму почему не пользуетесь?

Повернуть массив на 90 градусов


КАК повернуть матрицу на 90 градусов вправо (или влево).


Кстати, в вашем задании написано "не повернуть матрицу", а "вывести матрицу, повернутую на ..."
это ещё проще!

[Kolya23]

Сообщение от Serge_Bliznykov

А поиском по форуму почему не пользуетесь?

Повернуть массив на 90 градусов


КАК повернуть матрицу на 90 градусов вправо (или влево).


Кстати, в вашем задании написано "не повернуть матрицу", а "вывести матрицу, повернутую на ..."
это ещё проще!

Искал я на форуме ну в основном нашел только для консолей ,а для StringGrida не нашел .

[Serge_Bliznykov]

разберите этот пример кода:

const n = 7;
var a : array[1..n, 1..n] of integer;
  i,j : integer;
begin
  for i:=1 to n do
    for j:=1 to n do a[i,j] := (i-1)*n+j;
    
  {прямой вывод матрицы}
  Writeln('Array: ');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
  end;
  
  WriteLn;
  WriteLn('Rotate array');
  {вывод матрицы, повернутой на 90 градусов по часовой стрелке}
  for i:=n downto 1 do begin
    for j:=n downto 1 do Write(a[j, n-i+1]:4);
    Writeln
  end;

end.

Сообщение от Kolya23

Искал я на форуме ну в основном нашел только для консолей ,а для StringGrida не нашел .

а чем вывод на консольно ПРИНЦИПИАЛЬНО отличается от вывода в стрингрид?!
Только тем, что у этого подвывернутого стринггрида индексы местами переставлены - в cells() сначала идёт индекс столбца, потом индекст строки. ну и нумерация от нуля. вот и всё.

[Kolya23]

Сообщение от Serge_Bliznykov

разберите этот пример кода:

const n = 7;
var a : array[1..n, 1..n] of integer;
  i,j : integer;
begin
  for i:=1 to n do
    for j:=1 to n do a[i,j] := (i-1)*n+j;
    
  {прямой вывод матрицы}
  Writeln('Array: ');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
  end;
  
  WriteLn;
  WriteLn('Rotate array');
  {вывод матрицы, повернутой на 90 градусов по часовой стрелке}
  for i:=n downto 1 do begin
    for j:=n downto 1 do Write(a[j, n-i+1]:4);
    Writeln
  end;

end.

а чем вывод на консольно ПРИНЦИПИАЛЬНО отличается от вывода в стрингрид?!
Только тем, что у этого подвывернутого стринггрида индексы местами переставлены - в cells() сначала идёт индекс столбца, потом индекст строки. ну и нумерация от нуля. вот и всё.

Что значат вот эти две ошибки Array type required
ии Could not compile used unit1.pas

[Kolya23]

Спасибо, спустя 4 часа меня озарило и я все понял и сделал!!!

[Stilet]

Что значат вот эти две ошибки Array type required
ии Could not compile used unit1.pas

"Ожидается переменная типа Массив" и "Не могу скомпилировать из-за какой-то ошибки".
Ты на какой строчке эту ошибку-то получил?

я все понял и сделал!

... и осознал вину. Чисто сердечно