Вас жет быть небезопасен. Щелкните для получения дополнительных сведений. Разрешить редактирование
ТЕСТСТВИЯ.
А) Масштаб
Инструмент для изменения размера и
растягивания частей фигуры относительно других объектов
модели.
B) Повернуть инструмент для поворота, растяжения,
искажения или копирования объектов вдоль закругленной
ЛИНИИ,
са паниа копий линий, которые
function ris(x,y,r,n:integer):integer;
begin
if n=0 then ris:=0
else
begin
circle(x,y,r);
dec(n);
ris:=ris(x+round((r-r/3)*cos(pi/3)),y-round((r-r/3)*sin(pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(2*pi/3)),y-round((r-r/3)*sin(2*pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(pi)),y-round((r-r/3)*sin(pi)),r div 3,n)
ris:=ris(x+round((r-r/3)*cos(4*pi/3)),y-round((r-r/3)*sin(4*pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(5*pi/3)),y-round((r-r/3)*sin(5*pi/3)),r div 3,n); ris:=ris(x+round((r-r/3)*cos(2*pi)),y-round((r-r/3)*sin(2*pi)),r div 3,n);
end
end;
var x,y:integer;
begin
x:=windowwidth div 2;
y:=windowheight div 2;
ris(x,y,200,5);
end.
uses Graph;
var gd, gm: Integer;
begin
gd:=Detect;
InitGraph(gd, gm, ' ');
SetFillStyle(1, Green);
Bar(0, 350, 639, 479);
SetFillStyle(1, LightBlue);
FloodFill(0, 0, Green);
SetColor(Red);
Circle(320, 200, 19);
SetLineStyle(0, 0, 3);
Rectangle(390, 220, 340, 300);
Line(320, 300, 300, 350);
Line(320, 300, 340, 350);
Line(300, 240, 250, 250);
Line(340, 240, 390, 250);
SetFillStyle(1, Red);
FloodFill(320, 200, Red);
FloodFill(320, 230, Red);
SetColor(Yellow);
Circle(315, 190, 2);
Circle(325, 190, 2);
Line(315, 210, 325, 210);
Readln;
CloseGraph;
end.