Графика на Паскле

[tanek]

uses crt,graph;
const a = 15;
b = 25;
y = 300;
count = 15;
shag = 70;

type
kvadr = record
x : integer;
mas : array[1..4] of PointType;
end;
{---}

var
Z : array[1..count] of kvadr;

procedure init(var W:integer);
var i : integer;
begin
W := getmaxx;
for i:=1 to count do
 begin
 Z[i].x := -a-shag*(i-1);
 end;
end;

procedure setcoord(i : 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;
end;

procedure print(W:integer);
var i : integer;
begin
while true do
 begin
 if keypressed then
  if readkey = #27 then break;
 cleardevice;
for i:=count downto 1 do
 begin
 setcoord(i);
 SetColor(15);
 SetFillStyle(1,15);
 FillPoly(4,Z[i].mas);
 delay(3);
 inc(Z[i].x);
 if Z[i].x>W then Z[i].x := -a;
 end;
 end;
end;

var
d,m: integer;
W:integer;
begin
clrscr;
initgraph(d,m,'');
init(W);
print(W);

closegraph;
end.

вот а как массив передавать?

[Sazary]

и для чего вообще нужна W?

Это правая граница экрана.

как список квадрат запихнуть в параметл процедуры setcoord???

Ну объявите массив Z в какой-нибудь процедуре. А потом посылайте его куда нужно. Ведь тип kvadr уже объявлен.

Если вы хотите сделать массив Z локальным, то определитесь, где он будет создаваться.

[tanek]

а можно ли сделать это как нибудь без списка?

[Sazary]

а можно ли сделать это как нибудь без списка?

Как? Отдельно создать несколько экземпляров прямоугольников? Вот это будет настоящий бред.

Вот. Уж не знаю, что вам не нравится. Вы тогда скажите сразу, что должно быть. Сколько ж можно переделывать?

uses crt,graph;
const a = 15;
b = 25;
y = 40;
count = 10;
shag = 70;

type
kvadr = record
x : integer;
mas : array[1..4] of PointType;
end;
{---}
massiv = array[1..count] of kvadr;

var
d,m : smallint; // для TP 7 изменить тип на integer
{Z : array[1..count] of kvadr;   }

procedure init(var Z : massiv; var W : integer);
var i : integer;
begin
W := getmaxx;
for i:=1 to count do
 begin
 Z[i].x := -a-shag*(i-1);
 end;

end;

procedure setcoord(var Z : massiv; i : 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;
end;

procedure print(Z : massiv; W : integer);
var i : integer;
begin
while true do
 begin
 if keypressed then
  if readkey = #27 then break;
 cleardevice;
for i:=count downto 1 do
 begin
 setcoord(Z,i);

 SetColor(15);
 SetFillStyle(1,15);
 FillPoly(4,Z[i].mas);

 delay(3);
 {SetColor(0);
 SetFillStyle(1,0);
 FillPoly(4,Z[i].mas); }
 inc(Z[i].x);
 if Z[i].x>W then Z[i].x := -a;
 end;
 end;
end;

procedure start;
var
Z : massiv;
W : integer;
begin
init(Z,W);
print(Z,W);

end;

begin
clrscr;
initgraph(d,m,'');
start;

closegraph;
end.

[tanek]

Огромнейщее спасибо!!!!!!!!!!!Вы мне очень очень сильно помогли!!!!!!!!Я у вас завтра еще спрошу пару вопросиков по поводу реализации....

Sazary, не подскажите за что отвечают данные строки программы:

while true do
 begin
 if keypressed then
  if readkey = #27 then break;
 cleardevice;

и

begin
W := getmaxx;
for i:=1 to count do
 begin
 Z[i].x := -a-shag*(i-1);
 end;

и

FillPoly(4,Z[i].mas);

?????????

[Sazary]

while true do // бесконечный цикл
 begin
 if keypressed then   // если нажата клавиша
  if readkey = #27 then break;  // если нажатая клавиша - Esc, то выходим из цикла
 cleardevice; // очищаем экран

begin
W := getmaxx;  // получаем правую границу экрана
for i:=1 to count do   // перебираем прямоугольники
 begin
 Z[i].x := -a-shag*(i-1);   // каждому задаем начальное смещение
 end;

FillPoly(4,Z[i].mas); // рисует и закрашивает многоугольник из 4-х вершин
// координаты вершин заданы в массиве Z[i]

[tanek]

а почему мы прописываем именно
Z[i].mas[1].x := Z[i].x;???

[Sazary]

а почему мы прописываем именно
Z[i].mas[1].x := Z[i].x;???

В mas хранятся координаты прямоугольника.
В x хранится координата по иксу.
То есть x задает смещение относительно левой границы.

[tanek]

а почему если я нажимаю Esc или любую другую клавижу, программа продолжает работать?

[Sazary]

а почему если я нажимаю Esc или любую другую клавижу, программа продолжает работать?

Не знаю. Я пишу под Free Pascal. Там все работает.
Вроде, должно и тут. Но не уверен.