3. Дополнительно добавьте следующие элементы.

П

y

y2

y1

x

Формальные параметры:

x,y – координаты центра основания

h – высота

cs – цвет шляпки

cn – цвет ножки

Прочие сведения:

y1=y-h/2 y2=y-h

r=h/2

x1=x-r x2=x+r

ширину ножки принять за одну четверть от высоты

Подпрограмма «Пень».

Формальные параметры:

x,y – координаты центра среза

w – ширина

h – высота

cs –цвет среза

ck – цвет коры

Прочие сведения:

Для корней используйте треугольники

Для эллипса возьмите Rx=w/2 Ry=h/10

Подпрограмма «Месяц».

x,y

Остальные параметры придумайте сами.

Подпрограмма «Человек»

Остальные параметры придумайте сами.

Для изображения звезды

выберем следующие формальные параметры:

x, y – координаты центра

rb – радиус описанной окружности

rm – радиус вписанной окружности

n – число зубцов

cl – цвет линий

cf – цвет заливки

Procedure star(x,y,rb,rm,n,cl,cf:Integer);

var ua,ub,uc: real;

k,xa,ya,xb,yb,xc,yc:Integer;

begin

setcolor(cl);

for k:=0 to n do begin

ua:=2*pi*k/n;

ub:=ua+pi/n;

uc:=ua-pi/n;

xa:=x+round(rb*sin(ua));

ya:=y-round(rb*cos(ua));

xb:=x+round(rm*sin(ub));

yb:=y-round(rm*cos(ub));

xc:=x+round(rm*sin(uc));

yc:=y-round(rm*cos(uc));

line(xa,ya,xb,yb);

line(xa,ya,xc,yc);

end;

setfillstyle(1,cf);

floodfill(x,y,cl);

end;

А

- имя

массива

1

2

3

4

5

Индекс (номер элемента)

34.4

-23.2

3.89

4.45

-2.22

Элементы массива

X - имя

1

2

3

4

Индекс1 (номер столбца)

Индекс2

(номер строки)

1

4

7

12

3

Элементы массива

2

8

12

-1

0

3

23

5

2

1

FIO

- имя массива

Индекс

(номер)

Элементы массива

1

Петров Иван

2

Зайцев Петр

3

Волков Игорь

4

Семенов Илья

5

Лосев Игорь