Работа с графическим режимом Опции

[JoB]

Народ помогите пожалуйсто решить задачку, я из графики знаю только как подключить графический режим и вывести сообщение об ошибки =)
Нарисовать на экране мишень подписать количество очков, каждую секцию закрасить своим цветом.
Рисукнок который должен получиться представляет сабой три окружности с одним центром, маленькая окружность 10 очков, средняя 9, большая 8.

[klem4]

Вот набросал быстренько, я думаю тебе поможет.

uses crt, graph;
var
   gd, gm : integer;
   mx, my, r : word;
   s : string;
begin
   gd := Detect;
   InitGraph(gd, gm, '');
   mx := GetMaxX div 2;
   my := GetMaxY div 2;
   r := 30;
   gd := 0;
   while (r <= 300) do begin
      SetColor(r div 30);
      Circle(mx, my, r);
      inc(r, 30);
      str(10 - gd,s);
      OutTextXY(mx, my - gd * 30 - 15, s );
      inc(gd);
   end;
   readln;
   CloseGraph;
end.

Сообщение отредактировано: volvo - 6.11.2006 23:28