1. Модифицировать пример 4 («Калейдоскоп»), покрыв симметричным узором все графическое окно. (менной.
Пример 4. Калейдоскоп.
Если случайным образом расположить на рисунке достаточно большое количество разноцветных кругов, а затем зеркально отразить его по вертикали, по горизонтали и одновременно по вертикали и горизонтали, то получится симметричная
картинка, подобная тем, которые мы видим в калейдоскопе. Приведем программу,
генерирующую такие изображения:
uses GraphABC;
begin
var p: Picture;
CreatePicture(p,50,50);
for var i:=1 to 100 do
begin
Brush.Color := clRandom;
p.Circle(Random(50),Random(50),Random(10)+5);
end;
p.Draw(0,0);
p.FlipVertical;
p.Draw(0,50);
p.FlipHorizontal;
p.Draw(50,50);
p.FlipVertical;
p.Draw(50,0);
end.
Итоговое изображение состоит из четырех квадратных частей размера 50 на 50
пикселов — исходного рисунка и трех его отражений. Приведем два образца полученных изображений)
2. Используя прием программы «Калейдоскоп» и заполняя рисунок-образец с
метода p.SetPixel, создать следующее изображение, состоящее
из красных оттенков разной интенсивности:

adamannik    2   14.02.2022 04:52    0