Задать интервал лучей солнца

[gylayko]

Значит так, задание такое: нарисовать солнце с лучами, длины которых выбираются случайным образом из интервала (20, 80).
Начал писать, вот что уже говтово

uses crt,graph;
const CENTR_X=200; CENTR_Y=200; {центр окружности}
RADIUS = 50; LUCH_LEN = 90;   {радиус и длина луча }

var
d,m : smallint;
i : integer;
xx,yy : integer;

begin
clrscr;
d := detect;
initgraph(d,m,'');
setcolor(14);  { меняем цвет на желтый }
circle(CENTR_X,CENTR_Y,RADIUS); { рисуем окружность }
setfillstyle(1,14);      { устанавливаем стиль закрашивания }
floodfill(CENTR_X,CENTR_Y,14);   { закрашиваем окружность }

{ теперь рисуем лучи. Весго 8. Для каждого луча ищем приращение }
for i:=1 to 8 do
 begin
 case i of
 1 : begin
     xx := 0;
     yy := -LUCH_LEN;
     end;
 2 : begin
     xx := round(LUCH_LEN/sqrt(2));;
     yy := -round(LUCH_LEN/sqrt(2));;
     end;
 3 : begin
     xx := LUCH_LEN;
     yy := 0;
     end;
 4 : begin
     xx := round(LUCH_LEN/sqrt(2));;
     yy := round(LUCH_LEN/sqrt(2));;
     end;
 5 : begin
     xx := 0;
     yy := LUCH_LEN;
     end;
 6 : begin
     xx := -round(LUCH_LEN/sqrt(2));;
     yy := round(LUCH_LEN/sqrt(2));;
     end;
 7 : begin
     xx := -LUCH_LEN;
     yy := 0;
     end;
 8 : begin
     xx := -round(LUCH_LEN/sqrt(2));
     yy := -round(LUCH_LEN/sqrt(2));
     end;
 end; {case}
 moveto(CENTR_X,CENTR_Y);  { ставим указатель в центр окружности }
 linerel(xx,yy);      { рисуем луч }
 end;
 { вот и солнце )) }
readln;
closegraph;
end.

Так вот, главный вопрос, как сделать, чтобы длина луча была рандом(20,80)?? в константу я ж пихну рандомное значение! а как правильно сделать, чтобы выбиралось рандомное значение? я уже как не писал, солнышко выходит вообще без лучей!

[Leo08]

А зачем использовать константу? Используйте переменную.
Для установки рандомного значения:

...
var
x:integer;
...
x:=random(60)+20;
...

[gylayko]

я пробовал вот так:

uses crt,graph;
const CENTR_X=200; CENTR_Y=200; {центр окружности}
RADIUS = 50;    {радиус и длина луча }

var
d,m,LUCH_LEN : integer;
i : integer;
xx,yy : integer;

begin
clrscr;
LUCH_LEN:=random(60)+20;
d := detect;
initgraph(d,m,'');
setcolor(14);  { меняем цвет на желтый }
circle(CENTR_X,CENTR_Y,RADIUS); { рисуем окружность }
setfillstyle(1,14);      { устанавливаем стиль закрашивания }
floodfill(CENTR_X,CENTR_Y,14);   { закрашиваем окружность } и т.д.

но в таком случай солнце получается без лучей вообще!

[Leo08]

uses crt,graph;
const CENTR_X=200; CENTR_Y=200; {центр окружности}
RADIUS = 50;  {радиус и длина луча }

var
d,m : smallint;
i : integer;
xx,yy : integer;

begin
clrscr;
d := detect;
initgraph(d,m,'');
setcolor(14);  { меняем цвет на желтый }
circle(CENTR_X,CENTR_Y,RADIUS); { рисуем окружность }
setfillstyle(1,14);      { устанавливаем стиль закрашивания }
floodfill(CENTR_X,CENTR_Y,14);   { закрашиваем окружность }

{ теперь рисуем лучи. Весго 8. Для каждого луча ищем приращение }
for i:=1 to 8 do
 begin
 case i of
 1 : begin
     xx := 0;
     yy := -(random(60)+20);
     end;
 2 : begin
     xx := round((random(60)+20)/sqrt(2));;
     yy := -round((random(60)+20)/sqrt(2));;
     end;
 3 : begin
     xx := (random(60)+20);
     yy := 0;
     end;
 4 : begin
     xx := round((random(60)+20)/sqrt(2));;
     yy := round((random(60)+20)/sqrt(2));;
     end;
 5 : begin
     xx := 0;
     yy := (random(60)+20);
     end;
 6 : begin
     xx := -round((random(60)+20)/sqrt(2));;
     yy := round((random(60)+20)/sqrt(2));;
     end;
 7 : begin
     xx := -(random(60)+20);
     yy := 0;
     end;
 8 : begin
     xx := -round((random(60)+20)/sqrt(2));
     yy := -round((random(60)+20)/sqrt(2));
     end;
 end; {case}
 moveto(CENTR_X,CENTR_Y);  { ставим указатель в центр окружности }
 linerel(xx,yy);      { рисуем луч }
 end;
 { вот и солнце )) }
readln;
closegraph;
end.

[gylayko]

и снова солнце без лучей!!!!!

[gylayko]

в общем, я понял в чем ошибка, лучей невидно потому что радиус солнца 50, поэтому к длине луча нужно добавить 50, сделал я так! получилось солнце с лучами. теперь же проблема в том, что нужно чтобы все лучи были одинаковой длины, а не разных!