2017-12-17 14:40:06 +03:00
|
|
|
|
uses GraphWPF;
|
2017-08-26 00:30:33 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2017-12-17 14:40:06 +03:00
|
|
|
|
Window.Title := 'Отражение шарика. Вещественное направление движения';
|
2017-08-26 00:30:33 +03:00
|
|
|
|
Brush.Color := Colors.Beige;
|
|
|
|
|
|
var x := 400.0;
|
|
|
|
|
|
var y := 300.0;
|
|
|
|
|
|
var dx := 2.1;
|
|
|
|
|
|
var dy := -1.2;
|
|
|
|
|
|
Circle(x,y,20);
|
|
|
|
|
|
while True do
|
|
|
|
|
|
begin
|
|
|
|
|
|
Sleep(10);
|
|
|
|
|
|
Window.Clear;
|
|
|
|
|
|
x += dx;
|
|
|
|
|
|
y += dy;
|
|
|
|
|
|
if not x.Between(0,Window.Width) then
|
|
|
|
|
|
dx := -dx;
|
|
|
|
|
|
if not y.Between(0,Window.Height) then
|
|
|
|
|
|
dy := -dy;
|
|
|
|
|
|
Circle(x,y,20);
|
|
|
|
|
|
if Milliseconds>2000 then
|
2017-12-17 14:40:06 +03:00
|
|
|
|
Window.Title := 'Секунды: ' + (Milliseconds div 100)/10;
|
2017-08-26 00:30:33 +03:00
|
|
|
|
end;
|
|
|
|
|
|
end.
|
