#4 20.03.07 23:15
Re: Вопрос по Paskal
под паскалем лучше не стирать, а рисовать черный объект вслед за нормально отрисованным.
потому что в случае с очисткой экрана - работа со всем буфером, а при рисовании черным объектом не со всем.
Собственно, если Вы знаете как отрисовывать круг/линию и циклы, то все ок.
IMHO.
с уважением.
Offline
#10 21.03.07 21:54
#11 21.03.07 22:11
#12 21.03.07 22:27
Re: Вопрос по Paskal
Duke, да ну! Там все что надо есть: как инициализировать Graph режим, какие константы заводить под это дело, процедуры постоение прямоугольников (каркас и залитых), линий, окружностей, других фигур! Что еще надо? Ты хочешь чтобы за тебя еще и цикл написали?! Ты что? там же обычно наращивание +- координат углов фигуры (закон сам уж выберешь... хоть по окружности пусть он у тебя движется). и еще: на лекциях по инженерки аглоритмы движения рассказывали, надо было ходить!
Исправлено Ram3ec (21.03.07 22:28)
Offline
#13 22.03.07 00:02
Re: Вопрос по Paskal
{если ещё надо}
{летает шарик по экрану}
uses crt,graph;
var x,y,g,kx,ky:integer;
begin
x:=100;
y:=100;
initgraph(g,g,'bgi');
kx:=1;
ky:=2;
repeat
setcolor(0);
circle(x,y,10);
if (x>=625)or(x<=15) then kx:=-kx;
if (y>=465)or(y<=15) then ky:=-ky;
x:=x+kx;
y:=y+ky;
setcolor(10);
circle(x,y,10);
delay(100);
until keypressed;
closegraph;
end.
Offline
