Кто поможет с "пульсирующей" окружностью???

[Solny6ko YasnoE]

Приветик всем!!! У меня тут задачка на Паскале.... Может кто поможет..?? Суть вот в чем:

Необходимо написать программу с объектом "пульсирующая" окружность....

ПОЖАЛУЙСТА ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!

[bill]

1. А что значит "пульсирующая" окружность? (В чем свойства этого компонента?)
2. В смысле любая задача?
3. А это не из Mtxvec компонентов?

[Solny6ko YasnoE]

Пульсирующая окружность - это окружность, которая мигает!!!... ПОМоГитеееее.........!!!!!!!!!

[bill]

1 Так. А не могли бы вы выложить этот компонент. а то он не входит в станд. поставку делфи насколько я понял.
2. САМЫЙ ВАЖНЫЙ ВОПРОС: я просто не понял :задача должна быть на делфи? А то вы писали про Паскаль ведь в начале.

[Solny6ko YasnoE]

На Паскале программка должна быть.... С использованием графических методов..... Вы мне поможете??

[Virtson]

uses Graph
// а по нему есть справка
...
выводим окружность, delay(500) .. выводим другим цветом )

[Solny6ko YasnoE]

Вот так что ли???

uses crt, graph;
var
gd,gm: integer;
ch: char;
begin
gd:=VGA;
gm:=VGAhi;
InitGraph(Gd,Gm,'d:\tp.7_1\tp\bgi') ;
if GraphResult=GrOk then
begin
circle(320,240,50);
delay(500);
setColor(yellow);
circle(320,240,50);
readln;
closeGraph;
end;
end.

Только че-то не работает.....

[Virtson]

...
if GraphResult=GrOk then
for i:= 1 to 100 do // мигаем много раз
begin
setColor(i mod 3 + 9);
circle(320,240,50);
delay(500);
end;
..
// readln;
closeGraph;
..

[bill]

Я не очень силен в графике.
1. Насколько понял турбо паскаль?
2. Если не работает то выдается обычно ошибка или просто странно работает. Опишите подробнее.
3. Я не очень уверен в этом(сам прогр-ю в делфи, с турбой сталкивался 1 раз):
InitGraph(Gd,Gm,'d:\tp.7_1\tp\bgi') ;
if GraphResult=GrOk then

[Solny6ko YasnoE]

И все равно она не мигает!!!! ПОМОГИ ПОЖАЛУЙСТА!!!! мне это завтра сдать надо иначе к экзамену не допустят!!!!!!!!!!!!!!!!!!!!!!!!!!