Стр. 237 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
237
Рис. 21.2
Рис. 21.3
4. Перед разделом объявления глобальных переменных Var добавьте
объявление процедуры starline.
//объявление процедуры starline
//рисует звезду
procedure starline(x0,y0,r:integer);
5. В разделе Implementation напишите процедуру starline.
//рисует звезду с центром в точке
//x0,y0 и радиусом r
procedure starline(x0,y0,r:integer);
var
//массив координат лучей и впадин звезды
p:array[1..11] of TPoint;
//угол между осью OX и прямой, соединяющей
//центр звезды и конец луча или впадину
a:integer;
//счетчик
i:integer;