заливка области Опции

[Цифровой_Aнгел]

Залить каждый из внутренних кругов любыми стилем и цветом.помогите пожалуста=((

Program Circle3;
Uses CRT, Graph;

const
R=185;

var
x0,y0,n,i,k,Color:integer;
driver,regim,error: integer;
a,b:word;
Info:FillSettingsType;
Begin
clrscr;
  Detectgraph(driver,regim);
Initgraph(driver,regim,'G:\TP7\BGI');
Error:=GraphResult;
if Error <> grOK then
begin
writeln(GraphErrorMsg(Error));
Halt(Error)
end;

GetAspectRatio(a,b);
x0:=GetMaxX div 2;
y0:=GetMaxY div 2;
SetAspectRatio(GetMaxX-a*x0 div 2,GetMaxY-b*y0);
SetLineStyle(0,0,3);
SetColor(LightGreen);
Circle(x0,y0,R);


Circle(420,225,190 div 2-9);

Circle(260,142,190 div 2-9);

Circle(280,353,190 div 2-9);


readln;
CloseGraph;
end. 

[volvo]

а контроль я не отключала.

А он по умолчанию отключен (без него программы меньше по размеру и более быстрые получаются). Так вот включи контроль, и никогда, пока программа не станет полностью работоспособной, не отключай Максимум, что можно делать - это выключать проверки для того, чтобы скомпилировать релиз-версию (в смысле, окончательную и уже полностью отлаженную).

что с этим делать?

Обходиться без SetAcpectRatio:

Program Circle3;
Uses Graph;

const
  R = 185;
  R2 = 190 div 2 - 9;

var
  x0,y0: integer;
  driver, regim, error: integer;
  a, b: Word;
Begin
  Detectgraph(driver,regim);
  Initgraph(driver,regim,'');
  Error:=GraphResult;
  if Error <> grOK then
  begin
    writeln(GraphErrorMsg(Error));
    Halt(Error)
  end;

  GetAspectRatio(a,b);
  SetLineStyle(SolidLn, 0, ThickWidth);
  SetColor(LightGreen);

  x0 := GetMaxX div 2;
  y0 := GetMaxY div 2;

  SetfillStyle(LineFill, Red);
  FillEllipse(x0, y0, R, Trunc((a / b) * R));

  SetfillStyle(HatchFill, Yellow);
  FillEllipse(420, 225, R2, Trunc((a / b) * R2));
  FillEllipse(260, 142, R2, Trunc((a / b) * R2));
  FillEllipse(280, 353, R2, Trunc((a / b) * R2));

  readln;
  CloseGraph;
end.

Никаких ошибок, никаких эллипсов... Странно, правда? Рисуешь Circle (окружность) - получаешь эллипс. Рисуешь FillEllipse (заполненный эллипс) - получаешь окружность ...