Экономика
помогите анимировать солнце
program qq; uses GraphABC; var x,h:real;
i,N,r,k,c:integer;
begin
N:=10;
c:=8;
begin
k:=1;
r:=100;
i:=1;
repeat
SetBrushColor(rgb(230-k,230-k,0));
circle(200,200,r);
k:=k+20;
i:=i+1;
r:=r-20;
until i=c;
end;
Rectangle (0,580,1920,1018);
FlooDfill (1,581,cllime);
FlooDfill (10,4,clblue);
Rectangle (800,380,1100,680);
h:=(1100-800)/(N+1);
x:=800+h;
for i:=1 to N do
begin
Line (round(x),380,round(x),680);
x:=x+h;
end;
FlooDfill (801,381,clbrown);
FlooDfill (829,381,clbrown);
FlooDfill (857,381,clbrown);
FlooDfill (885,381,clbrown);
FlooDfill (910,381,clbrown);
FlooDfill (938,381,clbrown);
FlooDfill (966,381,clbrown);
FlooDfill (994,381,clbrown);
FlooDfill (1022,381,clbrown);
FlooDfill (1050,381,clbrown);
FlooDfill (1078,381,clbrown);
Rectangle (900,480,1000,590);
FlooDfill (901,481,clgray);
Rectangle (904,484,996,530);
FlooDfill (905,485,clyellow);
Rectangle (904,534,950,586);
FlooDfill (905,535,clred);
Rectangle (954,534,996,586);
FlooDfill (955,535,clblue);
Line (950,300,1100,380);
Line (800,380,950,300);
Line (800,380,1100,380);
FlooDfill (1036,379,clgray);
FlooDfill (950,350,clsilver);
Circle (950,340,30);
FlooDfill (950,340,clred);
Rectangle (305,615,280,624);
FlooDfill (291,616,clgreen);
Rectangle (350,600,330,670);
FlooDfill (340,650,clgreen);
Rectangle (400,600,420,670);
FlooDfill (410,650,clgreen);
Circle (470,600,30);
FlooDfill (470,600,clgreen);
Circle (480,580,10);
FlooDfill (480,580,clwhite);
Circle (482,582,2);
FlooDfill (482,582,clblack);
Rectangle (480,600,500,604);
FlooDfill (484,602,clred);
Ellipse (300,590,450,650);
FlooDfill (350,600,clbrown);
end.
