Написать программу, которая демонстрирует использование стиля программиста.
Program laba14;
uses graphABC;
procedure Square(x,y,d,c:integer);
begin
setpencolor(c);
setpenwidth(1);
rectangle(x,y,x+d,y+d);
floodfill(x+2,y+2,c);
end;
procedure Cyrcle(x,y,r,c:integer);
begin
setpencolor(c);
setpenwidth(1);
circle(x+r,y+r,r);
floodfill(x+r,y+r,c);
end;
procedure Triangle(x,y,d,c:integer);
begin
setpencolor(c);
setpenwidth(1);
line(x,y+d,x+d,y+d);
line(x,y+d,x+d div 2,y);
line(x+d div 2,y,x+d,y+d);
floodfill(x+d div 2,y+2,c);
end;
procedure Rhomb(x,y,d,c:integer);
begin
setpencolor(c);
setpenwidth(1);
line(x,y+d div 2,x+d div 2,y);
line(x+d div 2,y,x+d,y+d div 2);
line(x+d,y+d div 2,x+d div 2,y+d);
line(x+d div 2,y+d,x,y+d div 2);
floodfill(x+d div 2,y+d div 2,c);
end;
procedure Cross(x,y,d,c:integer);
begin
setpencolor(c);
setpenwidth(10);
line(x+d div 2,y,x+d div 2,y+d);
line(x,y+d div 2,x+d,y+d div 2);
end;
procedure Z(x,y,d,c:integer);
begin
setpencolor(c);
setpenwidth(5);
line(x,y,x+d,y);
line(x+d,y,x,y+d);
line(x,y+d,x+d,y+d);
end;
var x,y,i,j,d,c:integer;
begin
d:=30;
x:=(windowwidth-8*d)div 2;
y:=(windowheight-8*d)div 2;
setpencolor(clAqua);
rectangle(x,y,x+8*d,y+8*d);
floodfill(x+5,y+5,clAqua);
for i:=0 to 5 do
for j:=0 to 5 do
case (i+j) mod 6 of
0:Square(x+d+i*d,y+d+j*d,d,clRed);
1:Cyrcle(x+d+i*d,y+d+j*d,d div 2,clBlue);
2:Triangle(x+d+i*d,y+d+j*d,d,clGreen);
3:Rhomb(x+d+i*d,y+d+j*d,d,clBrown);
4:Cross(x+d+i*d,y+d+j*d,d,clBlack);
5:Z(x+d+i*d,y+d+j*d,d,clFuchsia );
end;
end.
Переглядів: 257 |