нарисовать в Паскале Солнце.

[КаПрИзУлЬкА]

Всем ПрИвЕт! Кто подскажет есть ли сайт на котором понятно объясняеться как рисовать в Паскале - СОЛНЦЕ!? Было бы отлично если там еще и на картинках было все показанно

[Sasha_Smirnov]

Вот ТуТ пощёлкай.

Думаю, найдёшь. Ну там в 5-й ссылке, например, — глава 14. (Это если покупать книгу. Что неудобно.)

(А строить глазки ВоТ вОт ТаК... ну это не впечатляет: видишь, молчание!)

А тебе обязательно в Паскале?

[КаПрИзУлЬкА]

Почему же не действует...???) ТЫ же ответил Обязательно! а у меня с програмирование пилохо... Я всего пол года отучилась на программиста) и спасибо за сылку, я поищю

[DomiNick]

Воть...

[Sazary]

Вот, нарисовал. С комментами. Вроде, понятно.

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.

[КаПрИзУлЬкА]

Ой, спасибочки!!!))) я честно говоря когда писала не думала что кто-то ответит) а тут так... Спасибо Большое ВСЕМ!!!)

[DomiNick]

Sazary, быстро же ты, однако.....

Только чтоб в моём "Паскале" работала (может версия другая) нужно пару строк немного отредактировать:

Var
Driver, Mode, d, m: Integer;
i: Integer;
xx, yy: Integer;

Begin
Driver:=Detect;
InitGraph(Driver, Mode, ' <а вот тут нужно писать путь к папке "BGI", и у каждого он может своим> ');
ClrScr;

[Sazary]

DomiNick Так тут же немного рисовать )
У меня free pascal, поэтому, чтобы работала в TP, действительно нужно кое-что изменить.
А конкретно - тип переменных d и m (увы, FP не дает сделать их обычным integer'ом).

InitGraph(Driver, Mode, ' <а вот тут нужно писать путь к папке "BGI", и у каждого он может своим> ');

Если не указать пусть к BGI, то компилятор будет искать его в дефолтной папке. Насколько помню, у меня в TP такая запись проходила.

[КаПрИзУлЬкА]

С вами не пропадешь!!! что бы я без вас делала...

[КаПрИзУлЬкА]

Я еще немножко подкорректировала, только осталось веснушки дорисовать! Не поможите???