begin hidecursor; repeat write('Сторона квадрата от 20 до 100 a='); read(a); until a in [20..100]; repeat writeln('Введите 2 числа для определения соотношени m<n:'); read(m,n); until m<n; clearwindow; k:=m/n;//отношение kg:=windowwidth div a+1; //кол. кв. по горизонтали kv:=windowheight div a+1; //по вертикали for j:=1 to kg do for p:=1 to kv do begin for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте begin kvadrat; x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k); x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k); x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k); x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k); end; x1:=a*(j-1); y1:=a*(p-1); //на новое место x2:=a*j; y2:=a*(p-1); x3:=a*j; y3:=a*p; x4:=a*(j-1); y4:=a*p; end;
• наименование – это название трехмерного объекта (эскиза, операции, вс плоскости, детали, сборки и пр.). Наименование, которое система присваивает автоматически (например, Эскиз:1, Операция вращения:2), пользователь может изменить, обозначив принадлежность или назначение трехмерного элемента в модели. Наименование отображается в дереве построения модели возле значка каждой операции или элемента;
• видимость – это свойство управляет отображением трехмерного объекта в документе (скрытый или видимый). Переключение с невидимого на видимый режим осуществляется с команд контекстного меню дерева построения: Показать и Скрыть соответственно;
• состояние – любой объект может быть включен или исключен из расчета. При исключенном из расчета элементе модель перестраивается так, как будто этого элемента вообще нет. Для управления состоянием также применяются команды контекстного меню дерева построения: Включить в расчет и Исключить из расчета;
• цвет – задает цвет объекта в модели. Это свойство недоступно только для значка начала системы координат, каждая стрелка которого имеет свой предустановленный цвет (ось X – красный, ось Y – зеленый, ось Z – синий). Цвет трехмерного объекта выбирается из раскрывающегося списка Цвет на вкладке Свойства панели свойств при создании каждого объекта. Если представленные в списке цвета вас не устраивают (в нем всего 40 цветов), вы можете воспользоваться стандартным диалоговым окном выбора цвета операционной системы Windows, в котором указать произвольный цвет. При задании цвета объекта вы также можете установить флажок Использовать цвет детали, в результате чего объект будет иметь тот же цвет, который задан для всей детали.
var a,m,n,j,i,x1,y1,x2,y2,x3,y3,x4,y4,kg,kv,p:integer;
k:real;
procedure kvadrat;//рисование 1 квадрата
begin
setpencolor(clBlue);
moveto(x1,y1);
lineto(x2,y2);
lineto(x3,y3);
lineto(x4,y4);
lineto(x1,y1);
end;
begin
hidecursor;
repeat
write('Сторона квадрата от 20 до 100 a=');
read(a);
until a in [20..100];
repeat
writeln('Введите 2 числа для определения соотношени m<n:');
read(m,n);
until m<n;
clearwindow;
k:=m/n;//отношение
kg:=windowwidth div a+1; //кол. кв. по горизонтали
kv:=windowheight div a+1; //по вертикали
for j:=1 to kg do
for p:=1 to kv do
begin
for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте
begin
kvadrat;
x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k);
x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k);
x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k);
x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k);
end;
x1:=a*(j-1); y1:=a*(p-1); //на новое место
x2:=a*j; y2:=a*(p-1);
x3:=a*j; y3:=a*p;
x4:=a*(j-1); y4:=a*p;
end;
end.
• наименование – это название трехмерного объекта (эскиза, операции, вс плоскости, детали, сборки и пр.). Наименование, которое система присваивает автоматически (например, Эскиз:1, Операция вращения:2), пользователь может изменить, обозначив принадлежность или назначение трехмерного элемента в модели. Наименование отображается в дереве построения модели возле значка каждой операции или элемента;
• видимость – это свойство управляет отображением трехмерного объекта в документе (скрытый или видимый). Переключение с невидимого на видимый режим осуществляется с команд контекстного меню дерева построения: Показать и Скрыть соответственно;
• состояние – любой объект может быть включен или исключен из расчета. При исключенном из расчета элементе модель перестраивается так, как будто этого элемента вообще нет. Для управления состоянием также применяются команды контекстного меню дерева построения: Включить в расчет и Исключить из расчета;
• цвет – задает цвет объекта в модели. Это свойство недоступно только для значка начала системы координат, каждая стрелка которого имеет свой предустановленный цвет (ось X – красный, ось Y – зеленый, ось Z – синий). Цвет трехмерного объекта выбирается из раскрывающегося списка Цвет на вкладке Свойства панели свойств при создании каждого объекта. Если представленные в списке цвета вас не устраивают (в нем всего 40 цветов), вы можете воспользоваться стандартным диалоговым окном выбора цвета операционной системы Windows, в котором указать произвольный цвет. При задании цвета объекта вы также можете установить флажок Использовать цвет детали, в результате чего объект будет иметь тот же цвет, который задан для всей детали.