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, создать следующее изображение, состоящее
из красных оттенков разной интенсивности:

Program praktyka8;

uses graphABC;

begin

setwindowsize(640,480);

setwindowtitle('Відновіть малюнок');

setbrushcolor(clgreen);

rectangle(0,350,640,480);

setbrushcolor(clbrown);

rectangle(70,275,215,415);

line(150,180,70,275);

line(70,275,215,275);

line(215,275,150,180);

floodfill(150,250,clbrown);

circle(150,250,18);

setbrushcolor(clblue);

floodfill(150,250,clblue);

setbrushcolor(clblue);

rectangle(75,315,120,375);

setbrushcolor(clsilver);

rectangle(150,315,200,415);

setpencolor(clyellow);

setbrushcolor(clyellow);

line(25,25,150,75);

line(25,25,145,80);

line(25,25,140,85);

line(25,25,130,95);

line(25,25,125,100);

line(25,25,115,110);

line(25,25,110,115);

line(25,25,100,125);

line(25,25,95,130);

line(25,25,85,135);

line(25,25,80,140);

line(25,25,75,145);

setbrushstyle(bssolid);

circle(25,25,30);

setbrushcolor(clbrown);

setpencolor(clbrown);

rectangle(307,425,317,400);

setbrushcolor(cllime);

setpencolor(clblack);

ellipse(250,150,375,400);

setpencolor(clblack);

rectangle(450,400,465,375);

rectangle(500,400,515,375);

rectangle(425,375,540,365);

end.

Объяснение:

Во многих местах были орфографические ошибки, поэтому и не запускалось.

№1

pers1 = 'китенок'

print(pers1)

pers2 = 'динозавр Митя'

print(pers2)

pers3 = 'Леонид Васильевич'

print(pers3)

act1 = 'плыл по морю'

print(act1)

act2 = 'рыбачил'

print(act2)

act3 = 'решал задачу'

print(act3)

def1 = 'в кузове грузовика'

print(def1)

def2 = 'в красных башмаках'

print(def2)

def3 = 'в пурпурном пиджаке'

print(def3)

print(pers2, act1, def3)

print(pers1, act2, def2)

print(pers3, act2, def1)

print(pers2, act3, def2)

№2

print('|-|--|---||||||||||||||')

№3

print(2, 3, 5, 7)

print(11, 13, 17, 19)

print(23, 29, 31, 37)

print(41, 43, 47)

№4

print('print("Привет, мир!")')