БЖБ ИНФОРМАТИКА ОНЛАЙН МЕКТЕП КОМЕКТЕСИНДЕРШ​

Главная Буфер обмена, Слайды,шрифт,Абзац,Рисование,редактирование Вставка Таблицы, Иллюстрации, Связи, Текст, Клипы и мультимедиа Дизайн Параметры страницы, Темы, Фон Анимация Просмотр, Переход к этому слайду. Показ слайдов Начать показ слайдов, Настройка, Мониторы Рецензирование Правописание, Примечания, Защитить Вид Режимы просмотра презентации, Показать или скрыть, Маштаб, Цвет или оттенки серого, Окно, Макросы Конструктор Параметры стилей таблицы, Стили таблиц, Стили WordArt, Нариоовать границы Макет Таблица, Строки и столбцы, Объединить, размер ячейки, Выравнивание, Размер таблицы, Упорядочить

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

uses GraphABC;

type point=record

          x,y:integer;

          end;

procedure plitk(x,y,r:integer);

var p:array[1..9]of point;

   a,da:real;

   i:byte;

begin

a:=pi/2;

da:=pi/4;

for i:=1 to 9 do

begin

 p[i].x:=x+round(r*cos(a));

 p[i].y:=y-round(r*sin(a));

 a:=a+da;

end;

polygon(p,9);

end;

var r,i,j,x,y,d:integer;

begin

r:=20;

y:=r;

while y<=windowheight do

begin

 x:=r;

 while x<=windowwidth do

  begin

   plitk(x,y,r);

   x:=x+2*r;

  end;

 y:=y+2*r

end;

end