Цитата:
Сообщение от iks2
Требуется написать программу, которая рисует узор, представленный на картинке. Собственно не требуется делать точную копию, но так, чтобы было похоже.
|
Да легко (Паскаль; GrfStart - самописный модуль инициализации графики):
Код:
Uses CRT, Graph, GrfStart;
Var
i,j,k,m:Word;
Procedure RCT(Xc,Yc,A:Word);
begin
Bar(Xc-A,Yc-A,Xc+A,Yc+A);
Rectangle(Xc-A,Yc-A,Xc+A,Yc+A);
end;
Begin
INITIALIZE;
ClearDevice;
SetFillStyle(SolidFill,GetBkColor);
SetLineStyle(SolidLn,0,ThickWidth);
RCT((GetMaxX div 2),(GetMaxY div 2), 140);
for i:=0 to 2 do
for j:=0 to 2 do
begin
RCT((GetMaxX div 2)-140+j*140,(GetMaxY div 2)-140+i*140, 40);
for k:=0 to 2 do
for m:=0 to 2 do
RCT((GetMaxX div 2)-180+j*140+m*40,(GetMaxY div 2)-180+i*140+k*40, 10);
end;
ReadKey
End.