есть текст как солнце заходит:
program fgh;
uses crt,graph;
var GrDr,GrMd,i,g,j:integer; f:word;
const
cga=1;
begin
grdr:=detect;
initgraph(grdr,grmd,'c:\pascal\bgi');
setcolor(2);
line(0,400,getmaxX ,400);
g:=getbkcolor;
i:=50;j:=50;
while i<700 do
begin
setcolor(yellow);
setfillstyle(1,yellow);
fillellipse(i,j,40,40);
delay(2000);
setcolor(g);
setfillstyle(1,g);
fillellipse(i,j,40,40);
i:=i+random(3);
j:=j+random(2);
end;
closegraph;
end.
readln;
а вот с фоном проблемы((
Тегами пользуйся в следующий раз (выделяешь код, и выбираешь в листбоксе CODE нужный язык программирования)
Сообщение отредактировано: volvo -