Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 27.07.2020
Сообщений: 2
1

Как сделать чтоб объект в Pascal ABC двигался по заданному курсу?

27.07.2020, 12:03. Просмотров 98. Ответов 1

Здравствуйте, у меня есть проблема я делаю небольшую игрушку на паскаль и мне нужно сделать так чтоб например круг двигался по нужному курсу вперёд до определённой точки а потом обратно
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.07.2020, 12:03
Ответы с готовыми решениями:

Как сделать чтоб текст двигался а фон стоял на месте
Я пишу сайты в блокноте и столкнулся с такой проблемой, что команда <body background="картинка">...

Как сделать чтоб UIView двигался вверх, когда клавиатура присутствует
пробувал, не получаеться(

Хочу чтоб объект из imagelist'a двигался по форме при нажатии клавишь
Подскажите новичку в VB, PliZZZ! Хочу чтоб объект из imagelist'a двигался по форме при нажатии...

Как сделать чтоб второй элемент двигался при изменении margin-left первого элемента?
Нужно прописать стили так чтоб при изменении margin-left блока BlockOne(зеленый) за ним...

1
Модератор
60618 / 45592 / 31471
Регистрация: 18.05.2008
Сообщений: 109,607
27.07.2020, 13:41 2
Цитата Сообщение от KiritoBeta Посмотреть сообщение
например круг двигался по нужному курсу вперёд до определённой точки а потом обратно
Наиболее просто когда dx, dy направления образуют обыкновенную дробь.
Пример для dx/dy=4/3.
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 graphABC;
var x1,y1,x2,y2:integer;
procedure fon;
begin
setbrushcolor(clBlack);
circle(x1,y1,3);
circle(x2,y2,3);
end;
var dx,dy,x,y:integer;
begin
x1:=500;
y1:=400;
x2:=100;
y2:=100;
dx:=(x2-x1)div 100;
dy:=(y2-y1)div 100;
lockdrawing;
x:=x1;
y:=y1;
repeat
  clearwindow;
  fon;
  x:=x+dx;
  y:=y+dy;
  if (x=x2) or (y=y2) then
   begin
    dx:=-dx;
    dy:=-dy;
   end;
  setbrushcolor(clRed);
  circle(x,y,5);
  sleep(50);
  redraw;
until (x=x1)or(y=y1)
end.
Если это не так то отрезок перемещения нужно делать по методу Брезенхема.

Добавлено через 9 минут
Вот пример в Делфи.
Анимация движения шарика по пятиконечной звезде
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.07.2020, 13:41

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как сделать чтобы корабль двигался по колу, и двигался в другую сторону нажатием стрелки
Как сделать чтобы корабль двигался по колу, и двигался в другую сторону нажатием стрелки.

Как сделать чтобы корабль двигался по колу, и двигался в другую сторону нажатием стрелки
Как сделать чтобы корабль двигался по колу, и двигался в другую сторону нажатием стрелки.

Нарисовать в TImage прямоугольный треугольник и сделать так чтоб он двигался
Не могу написать программу. Не могу правельно описать класс. Вообщем задача такая: Надо с помощью...

Сделать чтоб при нажатии на кнопку двигался какой-нибудь куб
у меня есть прога тест и в ней сбоку есть куб который должен был двигаться но он не двигаеться как...

pascal abc как сделать корону и раскрасить ее
pascal abc как сделать корону и раскарасить ее помогите пожалуста

Как в abc pascal сделать входной и выходной файл?
Например входной input.txt выходной output.txt program poizvedenie; var n,l,s:integer; begin...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.