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

[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;
{---}

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

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

procedure print;
var i : integer;
begin
while true do
 begin
 if keypressed then
  if readkey = #27 then break;
 cleardevice;
for i:=count downto 1 do
 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;

 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;

begin
clrscr;
initgraph(d,m,'');
init;
print;

closegraph;
end.

.Как он сказал должн быть ввод, вывод , обработка....

Какой ввод? Что там вводить? Впрочем, можете сделать a,b,count и shag переменными и вводить их в программе (через процедуру).

[tanek]

Ну можно и так!!!
procedure init-это обработка прямоугольников??? так??

[Sazary]

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

procedure init-это обработка прямоугольников??? так??

Это задание начальных координат. Сначала они все находятся за экраном.

[tanek]

а можно ли функции рисования разделить на рисование и стирание прямоугольничков?
или я что то не правильно понимаю....

[Sazary]

а можно ли функции рисования разделить на рисование и стирание прямоугольничков?
или я что то не правильно понимаю....

Как вы можете заметить, я закомментировал вот эти строчки:

 {SetColor(0);
 SetFillStyle(1,0);
 FillPoly(4,Z[i].mas); }

которые отвечают за стирание. Т.к. прямоугольников много, то можно просто очищать весь экран, что и делает процедура cleardevice. Поэтому разделять тут, собственно, нечего.

-------------
Но если вам так хочется еще что-нибудь разделить, то можете вынести в отдельную процедуру перерасчет координат.
Тогда появится такая процедура:

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;

а процедура print превратится в это:

procedure print;
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);
 {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;

[tanek]

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

program tat;

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;

var
d,m :  integer;
W : integer;
Z : array[1..count] of kvadr;

procedure init;
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;
var i : integer;
begin
while true do
 begin
 if keypressed then
  if readkey = #27 then break;
 cleardevice;
for i:=count downto 1 do
 setcoord(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;

begin
clrscr;
initgraph(d,m,'');
init;
print;

closegraph;
end.

[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;
{---}

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

procedure init;
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;
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);
 {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;

begin
clrscr;
initgraph(d,m,'');
init;
print;

closegraph;
end.

[tanek]

а еще одно но......переменные не должны быть глобальными....

[Sazary]

а еще одно но......переменные не должны быть глобальными....

Здесь единственная глобальная переменная - W. Если хотите, можете запихнуть ее объявление в каждую процедуру, где она используется (не забыв ее там вычислять).
Что еще глобальное? Массив Z. Смысла делать его локальным вообще не вижу.
d, m нужны для инициализации графического режима. Ну а константы делать локальными - бред.

Собственно, вот.

[tanek]

понимаете, надо сделать массив локальным, та как это будет счтаться ошибкой!
как список квадрат запихнуть в параметл процедуры setcoord???
и для чего вообще нужна W?