Диманические массивы в Паскале

[Sazary]

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

А можно ли другой сдесь способ подобрать! например побайтовое считывание?

Способ для чего конкретно?

[OCTAGRAM]

Можно и побайтово.

[world12_tk]

чтобы еще раз не считывать размерность матрицы.... И как это реализовать?

[Sazary]

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

чтобы еще раз не считывать размерность матрицы.

Ну можно сразу прочитать элементы в массив (те, что есть). Потом проверить количество. Если все как надо, то продолжаем работать с массивом, если нет, то ругаемся и выходим.

[world12_tk]

спасибо

[tanek]

Вот у меня еще вопросик

type
  MyType=integer;
  PMyMatrix=^MyMatrix;
  MyMatrix=array[1..1] of MyType;

  MyArrayPtr=^MyArray;
  MyArray=array[1..1] of PMyMatrix;

как можно описать это норальными имменами, а не так как у меня?

[Sazary]

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

как можно описать это норальными имменами, а не так как у меня?

А чем вам не нравятся ваши имена? Вполне подходят.
Только вот исправить бы:

type
  MyType=integer;  // тип элементов. Все нормально
  PMyMatrix=^MyMatrix;
  MyMatrix=array[1..1] of MyType;   // здесь не матрица, а вектор (одномерный массив)

  MyArrayPtr=^MyArray;
  MyArray=array[1..1] of PMyMatrix; // А вот тут как раз матрица.

[tanek]

Дело в том что мой преподаватель сказал, что это типо моя наколенная поделка и сказал исправить их. А что такое

PMyMatrix=^MyMatrix и MyArrayPtr=^MyArray;

[Sazary]

Дело в том что мой преподаватель сказал, что это типо моя наколенная поделка и сказал исправить их.

Мне кажется, что он как раз имел в виду то, что я написал (матрицу называете массивом, а одномерный массив - матрицей).

А что такое

Соответственно, указатели на эти типы.

[tanek]

Уважаемый, Sazary!!!
Можно ли записать процедуру ChangeCoordinates???
а именно

  i
nc(Z[i].x);
  if Z[i].x>W then Z[i].x := -a;

можно туда поставить?

Program task4;

uses Crt,Graph;
const
  a = 20;
  b = 35;
  y = 300;
  count = 15;
  step = 70;

type
  rectangle = record
    x : integer;
    mas : array[1..4] of PointType;
  end;
  RectArray = array[1..count] of rectangle;

procedure InitializationGraphicMode;
var
  driver,mode:integer;
begin
  driver:=Detect;
  InitGraph(driver,mode, 'g:\pp\bin\win32 ');
end;

procedure InitialCoordinates(var Z : RectArray);
var
  i : integer;
  W:integer;
begin
  W := GetmaxX;
  for i:=1 to count do
    Z[i].x := -a-step*(i-1);
end;

procedure ChangeCoordinates( i:integer; var Z : RectArray);
var
  W:integer;
begin
  Z[i].mas[1].x := Z[i].x;
  Z[i].mas[1].y := y;
  Z[i].mas[2].x := Z[i].x+b;
  Z[i].mas[2].y := y;
  Z[i].mas[3].x := Z[i].x+b;
  Z[i].mas[3].y := y+a;
  Z[i].mas[4].x := Z[i].x;
  Z[i].mas[4].y := y+a;
  inc(Z[i].x);
  if Z[i].x>W then Z[i].x := -a;
end;

procedure PrintRectangles(var Z:RectArray);
var
  i:integer;
begin
  for i:=count downto 1 do
  begin
    ChangeCoordinates(i,Z);
    SetColor(15);
    SetFillStyle(8,15);
    FillPoly(4,Z[i].mas);
   ChangeCoordinates(i,Z);
  end;
end;

procedure ProcessingMessages;
var
  Z: RectArray;
begin
  InitialCoordinates(Z);
  repeat
    ClearDevice;
    PrintRectangles(Z);
    Delay(3);
  until keypressed;
end;

begin
  InitializationGraphicMode;
   ProcessingMessages;
  CloseGraph;
end.