Построить движущиеся изображения НЛО на фоне звездного неба - Turbo Pascal

Формулировка задачи:

Графика в паскале Добавлено через 2 минуты 1. Построить движущиеся изображения НЛО на фоне звездного неба. 2.Получить мультфильм "Круги на воде", используя семь концентрических окружностей. Центры окружностей должны быть совмещены с центром экрана, а радиусы изменяться от 40 до 82 пиксел, увеличиваясь на 7 пиксел с каждой следующей окружностью. Иллюзия движения должна создаваться последовательной сменой цветов всех окружностей, начиная с внутренней и кончая внешней. Процесс смены цветов следует повторить не менее 10 раз. Помогите пожалуйста ребята!!! Заранее БЛАГОДАРЮ!!!

Код к задаче: «Построить движущиеся изображения НЛО на фоне звездного неба - Turbo Pascal»

textual
uses crt,graphABC;
const n=7;
type mas=array[1..n] of integer;
const cl:mas=(clRed,clBlue,clGreen,clPurple,clFuchsia ,
                                clNavy ,clLime);
var x,y,r1,r2,i,r,dr,b,k:integer;
    c:mas;
begin
hidecursor;
c:=cl;
r1:=40;
r2:=82;
dr:=7;
x:=windowwidth div 2;
y:=windowheight div 2;
dr:=round((r2-r1)/(n-1));
r:=r1;
k:=0;
repeat
setbrushstyle(bsClear);
for i:=0 to n-1 do
 begin
  setpencolor(c[i+1]);
  setbrushstyle(bsClear);
  circle(x,y,r);
  r:=r+dr;
 end;
delay(1000);
k:=k+1;
b:=c[n];
for i:=n downto 2 do
c[i]:=c[i-1];
c[1]:=b;
r:=r1;
until (k>10)and keypressed;{ГЄГ®Г*ГҐГ¶ åñëè áîëüøå 10 Г°Г*Г§ ГЁ Г*Г*Г¦Г*ГІГ* ГЄГ«Г*ГўГЁГёГ*}
end.

10   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ