Движение шарика по заданной траектории

@Cvetlana · Регистрация: 14.06.2011

Студворк — интернет-сервис помощи студентам

Помогите сделать программу
Нарисовать движение шарика по данной траектории.

@Zanexess · 14.06.2011, 23:29

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt,graphabc;
const r=10;
var x,y:integer;
begin
 Line (0,200,640,200);
 Line (320,0,320,400);
 y:=300;
For x:=0 to 220 do
  begin
   Setpencolor(clblack);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
For x:=220 to 420 do
  begin
   Setpencolor(clblack);
   Line (0,200,640,200);
   Line (320,0,320,400);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
   y:=y-1;
  end;
For x:=420 to 640 do
  begin
   Setpencolor(clblack);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
end.

@Cvetlana · 14.06.2011, 23:32 **[ТС]**

А можете сделать чтоб чисто по линиям шарик шел

go · 15.06.2011, 00:51

Cvetlana, а он как идет?

@Zanexess · 15.06.2011, 08:23

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt,graphabc;
const r=10;
var x,y:integer;
begin
 Line (0,200,640,200);
 Line (320,0,320,400);
 Line (0,300,220,300);
 Line (220,300,420,100);
 Line (420,100,640,100);
 y:=300;
For x:=0 to 220 do
  begin
   Setpencolor(clblack);
   Line (0,300,220,300);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
For x:=220 to 420 do
  begin
   Setpencolor(clblack);
   Line (220,300,420,100);
   Line (0,300,220,300);
   Line (0,200,640,200);
   Line (320,0,320,400);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
   y:=y-1;
  end;
For x:=420 to 640 do
  begin
   Setpencolor(clblack);
   Line (220,300,420,100);
   Line (420,100,640,100);
   Circle (x,y,r);
   sleep(4);
   Setpencolor(clwhite);
   Circle (x,y,r);
  end;
   Setpencolor(clblack); Line (420,100,640,100);
end.

@Cvetlana · 15.06.2011, 08:27 **[ТС]**

Спасибо))

@Puporev · 15.06.2011, 08:53

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses graphABC;
var xc,yc,d1,d2,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,xt,yt:integer;
    x,y,mx,my:real;
//рисование траектории
procedure Grafik(xc,yc,x1,y1,x2,y2,x3,y3,x4,y4:integer);
var x,y:real;
begin
setpencolor(clBlack);
line(x1,yc,x4,yc);
line(xc,y1,xc,y4);
line(x1,y3,x2,y3);
line(x2,y3,x3,y2);
line(x3,y2,x4,y2);
end;
//рисование шарика
procedure Sharik(x,y,c:integer);
begin
setpencolor(c);
circle(x,y,10);
floodfill(x,y,c);
end;
 
begin
setwindowsize(600,600);
xc:=windowwidth div 2;
yc:=windowheight div 2;
d1:=xc-20;
d2:=d1 div 2;
x1:=xc-d1;
x2:=xc-d2;
x3:=xc+d2;
x4:=xc+d1;
y1:=yc-d1;
y2:=yc-d2;
y3:=yc+d2;
y4:=yc+d1;
Grafik(xc,yc,x1,y1,x2,y2,x3,y3,x4,y4);//рисуем график
xt:=x1;//координаты шарика
yt:=y3;
repeat
 lockdrawing;
 ClearWindow;
 xt:=xt+5;//новые координаты шарика
 if(xt>=x2)and(xt<=x3) then yt:=yt-5;
 Grafik(xc,yc,x1,y1,x2,y2,x3,y3,x4,y4);//рисуем график
 Sharik(xt,yt,clRed); //и шарик
 redraw;
 sleep(30);
until xt>x4;//конец
end.

@Denchickk · 02.11.2014, 14:02

а с моим не поможете? буду благодарен.

@Puporev · 02.11.2014, 15:09

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
uses graphABC;
var x1,y1,x2,y2,x3,y3,r,x,y:integer;
//рисование траектории
procedure Grafik;
begin
setpencolor(clBlack);
moveto(x1,y1);
lineto(x2,y2);
lineto(x3,y2);
lineto(x3,y3);
lineto(x1,y3);
lineto(x1,y2);
end;
//рисование шарика
procedure Sharik(x,y,r:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
circle(x,y,r);
end;
 
begin
setwindowsize(500,500);
r:=10;
x1:=windowwidth-r;
x2:=x1 div 2;
x3:=r;
y3:=windowheight-r;
y2:=y3 div 2;
y1:=r;
x:=x1;
y:=y1;
Grafik;//рисуем график
Sharik(x,y,r);
lockdrawing;
while (x>x2)and(y<=y2) do
 begin
  clearwindow;
  x:=x-1;
  y:=y+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while x>=x3 do
 begin
  clearwindow;
  x:=x-1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while y<=y3 do
 begin
  clearwindow;
  y:=y+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while x<=x1 do
 begin
  clearwindow;
  x:=x+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while y>=y2 do
 begin
  clearwindow;
  y:=y-1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
end.

@Denchickk · 02.11.2014, 15:54

спасибо огромное.

@alekbar63 · 20.05.2020, 18:30

а с моим не поможете? буду благодарен.

@ZX Spectrum-128 · 20.05.2020, 18:37

Движение фигуры по траектории ромба

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Cvetlana 0 / 0 / 0 Регистрация: 14.06.2011 Сообщений: 3

	Движение шарика по заданной траектории 14.06.2011, 19:59. Показов 14388. Ответов 11 Метки нет (Все метки) Помогите сделать программу Нарисовать движение шарика по данной траектории. Изображения 0

@Cvetlana 0 / 0 / 0 Регистрация: 14.06.2011 Сообщений: 3
	14.06.2011, 23:32 [ТС]
	А можете сделать чтоб чисто по линиям шарик шел 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	15.06.2011, 00:51
	Cvetlana, а он как идет? 1

@Cvetlana 0 / 0 / 0 Регистрация: 14.06.2011 Сообщений: 3
	15.06.2011, 08:27 [ТС]
	Спасибо)) 0

@Denchickk 0 / 0 / 0 Регистрация: 28.10.2014 Сообщений: 10
	02.11.2014, 14:02
	а с моим не поможете? буду благодарен. Миниатюры 0

@Denchickk 0 / 0 / 0 Регистрация: 28.10.2014 Сообщений: 10
	02.11.2014, 15:54
	спасибо огромное. 0

@alekbar63 0 / 0 / 0 Регистрация: 21.03.2019 Сообщений: 5
	20.05.2020, 18:30
	а с моим не поможете? буду благодарен. Изображения 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	20.05.2020, 18:37
	Движение фигуры по траектории ромба 1