1-Попытка сделать звезды мерцающими
Код
j:=1;{[size=1][b]Неправильно[/b][/size]}{Ошибка heap overflow}
while j<=600 do begin
Randomize;
For i:=1 to 70 do
begin
PutPixel(Random(700),Random (400),White);end;
rectangle(0,0,640,480);
sz:=imagesize(0,0,640,480);
getmem(p,sz);
getimage(0,0,640,480,p^);
putimage(0,0,p^,xorput);
putimage(0,0,p^,xorput);
j:=j+1; end;
Скорее всего для сдачи мне подойдет и то, что я уже нарисовала. Но мне самой уже интересно как можно сделать по-другому.
2-движение НЛО- Наверное нужно задавать сложные формулы движения типа Лиссажу и т.п. Я такое
сама не придумаю , да и хочется чтобы попроще было.
Вот . 2-й вариант этой же моей задачи только без putimage:
Код
program ddd;
uses crt,graph;
var d,m,x,y:integer;
p:pointer;sz,x1,y1:word;i,j:integer;
begin
d:=detect;
initgraph( d,m,'d:\bp70\bgi' );
setviewport(0,0,640,80,true);
clearviewport;
setbkcolor(0);
Randomize;
For i:=1 to 70 do
begin
PutPixel(Random(700),Random (480),White);end;
x:=0;y:=0;
while x<=640 do
begin
while y<=480 do
begin
setcolor(15);
setfillstyle(1,1);
fillellipse(45+x,25+y,70,30);
fillellipse(45+x,15+y,70,30);
setfillstyle(1,14);
fillellipse(40+x,40+y,20,20);
fillellipse(85+x,40+y,20,20);
fillellipse(95+x,25+y,20,20);
fillellipse(25+x,25+y,20,20);
setfillstyle(1,1);
floodfill(15+x,2+y,15);
delay(60000);
setfillstyle(1,0);
bar(-50+x,-70+y,150+x,100+y);
For i:=1 to 70 do
begin
PutPixel(Random(700),Random (400),White);end;
delay(6000);
x:=random(600);
y:=random(300);end;end;
readln;
closegraph;
end.
Звезд стало больше и они меньше просвечиваются через обьект. Но может тогда на этой задаче можете подсказать, как задать движение рандомайзом, а то тут у меня тоже прыганье получается.