Динамика движение шара по верхней части трапеции

@Алисенка · Регистрация: 05.06.2011

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

написать программу,чтобы шарик двигался вот по такой траектории

Динамика движение шара по верхней части трапеции

@Puporev · 05.06.2011, 11:41

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
uses crt,graph;
procedure Shar(x,y,r,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
circle(x,y,r);
floodfill(x,y,c);
end;
var x,y,x1,y1,x2,x3,r,dx,dy:integer;
begin
x:=0;
initgraph(x,y,'');
r:=10;
x:=3*r;y:=getmaxY div 2+100;
x1:=x+150;
x2:=getmaxX-2*x-150;
x3:=x2+150;
dx:=5;
dy:=8;
repeat
 Shar(x,y,r,13);
 delay(100);
 Shar(x,y,r,0);
 x:=x+dx;y:=y-dy;
 if (x>=x1)and(x<=x2) then dy:=0
 else if (x>x2) then dy:=-8;
until x>x3;
Shar(x,y,r,13);
readkey
end.

@Алисенка · 05.06.2011, 11:45 **[ТС]**

Спасибо большое!А можно сделать так,чтобы рисовалась еще траектория по которой он движется?

@Puporev · 05.06.2011, 13:01

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
uses crt,graph;
procedure Shar(x,y,r,c:integer);
begin
setcolor(c);
setfillstyle(1,c);
circle(x,y,r);
floodfill(x,y,c);
end;
var r,h,x,y,x1,y1,x2,y2,x3,y3,x4,y4,xt,yt,dx,dy:integer;
begin
x:=0;
initgraph(x,y,'');
r:=10;{радиус шарика}
dx:=5;{приращение по Х}
dy:=8;{по У}
h:=dy*30;{высота трапеции}
x1:=3*r;y1:=(getmaxY+h) div 2;{левый нижний угол}
x2:=x1+dx*30;y2:=y1-h;{левый верхний}
x4:=getmaxX-2*x1;y4:=y1;{правый нижний}
x3:=x4-dx*30;y3:=y2;{правый верхний}
xt:=x1;yt:=y1;{точка начала линии траектории}
x:=x1;y:=y1;{начало движения}
repeat
 Shar(x,y,r,13);{рисуем шарик}
 delay(100);{задержка}
 Shar(x,y,r,0);{стираем=рисуем цветом фона}
 x:=x+dx;y:=y-dy;{новые координаты}
 setcolor(12);{цвет линии траектории}
 line(xt,yt,x,y);{рисуем от точки на трапеции до шарика}
 if x>=x2 then{первый поворот}
  begin
   xt:=x2;{новая точка для начала линии}
   yt:=y2;
   dy:=0; {приращения по У нет}
   if x>x2+r then line(x2,y2,x2-r*dx,y2+r*8);{отойдем от угла и дорисуем,
   а то шарик после поворота стер уголок}
  end;
 if x>=x3 then{так же после второго поворота}
   begin
    dy:=-8;
    xt:=x3;
    yt:=y3;
    if y>y3+r then line(x3,y3,x3-r*dx,y3);
   end;
until x>x4;
Shar(x4,y4,r,13);
readkey
end.

@Алисенка · 05.06.2011, 13:32 **[ТС]**

А нельзя эту же программу написать,только без процедуры?
Думаю так ее у меня не примут(((

@Puporev · 05.06.2011, 13:52

Совсем безрукий народ пошел.....

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 crt,graph;
var r,h,x,y,x1,y1,x2,y2,x3,y3,x4,y4,xt,yt,dx,dy:integer;
begin
x:=0;
initgraph(x,y,'');
r:=10;{радиус шарика}
dx:=5;{приращение по Х}
dy:=8;{по У}
h:=dy*30;{высота трапеции}
x1:=3*r;y1:=(getmaxY+h) div 2;{левый нижний угол}
x2:=x1+dx*30;y2:=y1-h;{левый верхний}
x4:=getmaxX-2*x1;y4:=y1;{правый нижний}
x3:=x4-dx*30;y3:=y2;{правый верхний}
xt:=x1;yt:=y1;{точка начала линии траектории}
x:=x1;y:=y1;{начало движения}
repeat
 setcolor(13);
 setfillstyle(1,13);
 circle(x,y,r);
 floodfill(x,y,13);{рисуем шарик}
 delay(100);{задержка}
 setcolor(0);
 setfillstyle(1,0);
 circle(x,y,r);
 floodfill(x,y,0);{стираем=рисуем цветом фона}
 x:=x+dx;y:=y-dy;{новые координаты}
 setcolor(12);{цвет линии траектории}
 line(xt,yt,x,y);{рисуем от точки на трапеции до шарика}
 if x>=x2 then{первый поворот}
  begin
   xt:=x2;{новая точка для начала линии}
   yt:=y2;
   dy:=0; {приращения по У нет}
   if x>x2+r then line(x2,y2,x2-r*dx,y2+r*8);{отойдем от угла и дорисуем,
   а то шарик после поворота стер уголок}
  end;
 if x>=x3 then{так же после второго поворота}
   begin
    dy:=-8;
    xt:=x3;
    yt:=y3;
    if y>y3+r then line(x3,y3,x3-r*dx,y3);
   end;
until x>x4;
setcolor(13);
setfillstyle(1,13);
circle(x,y,r);
floodfill(x,y,13);{рисуем шарик}
readkey
end.

Новые блоги и статьи Все статьи Все блоги /
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 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Алисенка 1 / 1 / 0 Регистрация: 05.06.2011 Сообщений: 5

	Динамика движение шара по верхней части трапеции 05.06.2011, 11:11. Показов 1253. Ответов 5 Метки нет (Все метки) написать программу,чтобы шарик двигался вот по такой траектории 0

@Алисенка 1 / 1 / 0 Регистрация: 05.06.2011 Сообщений: 5
	05.06.2011, 11:45 [ТС]
	Спасибо большое!А можно сделать так,чтобы рисовалась еще траектория по которой он движется? 0

@Алисенка 1 / 1 / 0 Регистрация: 05.06.2011 Сообщений: 5
	05.06.2011, 13:32 [ТС]
	А нельзя эту же программу написать,только без процедуры? Думаю так ее у меня не примут((( 0