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

[Цифровой_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]

Значит, контроль границ отключен... Не надо этого делать. В настройках компилятора (Options -> Compiler) отметь все, что находится в группе Runtime Errors, нажми Ok, перекомпилируй и запусти программу.

Не отключай никогда контроль. Лучше чуть больше времени уделить отладке, чем думать, что у тебя все в порядке, а потом попробовать запустить программу на другом компьютере, где другие настройки, и она начнет вылетать.

Добавлено через 4 мин.
А вот тебе и доказательство того, что не надо закрывать глаза на ошибку, а надо ее исправлять. Берем компилятор FPC, отключаем контроль границ и контроль переполнения Integer-а, компилируем и запускаем программу. Думаешь, я вижу окружности? Ни разу. Вот, что я вижу (хотя, если закомментировать SetAspectRatio - то все в порядке, появляются окружности):