Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 04.02.2013
Сообщений: 6
1

Движение в паскале

25.02.2013, 11:37. Показов 1113. Ответов 1
Метки нет (Все метки)

Если какая нибудь процедурка, которая будет передвигать мой шарик по елипсу?
P.S.Просто у меня задание нарисовать Строение атома (ядро и вокруг него что бы атомы вертелись). Если кому не тяжело и знает как сделать, сделайте пожалуйста. Буду благодарен.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2013, 11:37
Ответы с готовыми решениями:

Графика в паскале. Движение фигур.
В разделе графика увидел только рекомендации, поэтому решил выложить в общей куче задание. При...

Движение объектов в паскале
Помогите пожалуйста написать самый простой код движения(или управления с клавиатуры) объекта.....

Возможно ли сделать движение зрачков, реагирующее на движение какого-либо объекта
Вообщем благодаря модеру удалось разукрасить картинку,за что ему спасибо. Нужна анимация для нее....

Движение картинки в паскале
Как сделать, чтобы вставленная картинка(jpg) начала двигаться по оси y? ( даже не вижу картинку...

1
Модератор
63394 / 47082 / 32451
Регистрация: 18.05.2008
Сообщений: 114,122
25.02.2013, 11:45 2
Лучший ответ Сообщение было отмечено TXmoorganTX как решение

Решение

Ну вот пример, разбирайся, переделывай...
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
program Model_At;
  uses Crt, Graph;
  const Ra=100; {радиус атома}
            Rc=10; {радиус ядра}
            Re=4; {радиус электрона}
            k=0.5; {коэффициент сжатия орбит электронов}
            Dr=30; {параметр изменения координат электрона}
            Step1=0.2; {шаг изменения положения электрона}
            Step=100; {время задержки - скорость движения электронов}
   var cx, cy, y, y1, y2, x, x1, x2, x3,y3:integer;
          I, I1, I2, I3: real; gd, gm: integer;
begin
  clrscr;
  gd:=detect;
   initgraph(gd, gm, 'путь к драйверу');
   SetTextStyle(2,0, 5);
   OutTextXY(270, 40, 'Мод');
   OutTextXY(293, 40,'ель атома');
   cx:=GetMaxX div 2; {определить центр экрана- положение ядра}
   cy:=GetMaxY div 2;
   PieSlice(cx, cy, 0, 360, Rc);{нарисовать ядро атома}
   SetColor(Red);
   SetLineStyle(0, 0, 3);
   Line(cx-7, cy, cx+7, cy);
   Line(cx, cy-5, cx, cy+5);
   SetLineStyle(0,0,1);
   SetFillStyle(1,1);
   I:=Pi/4; {задать начальное положение 4 электронов}
   I1:= - Pi/4;
   I2:= - Pi/2;
   I3:= Pi/2;
   SetTextStyle(2, 0, 5);
   SetColor(yellow);
   OutTextXY (180, 420,'Для отмены нажмите любую клавишу');
   While not KeyPressed do {повторять, пока не нажата любая клавиша }
      begin {определить координаты электронов}
         x:=Round (Ra*cos(I)) +cx; Y:= Round(k+Ra*sin(I)) +cy;
         x1:= Round((Ra+Dr)*cos(I1)) +cx; y1:= Round (k*(Ra+Dr)*sin(I1)) +cy;
         x2:= Round((Ra-Dr)*cos(I2)) +cx; y2:= Round (k*(Ra-Dr)*sin(I2)) +cy;
         x3:= Round((Ra-Dr)*cos(I3)*2.3) +cx; y3:= Round (k*(Ra-Dr)*sin(I3)*2.3) +cy;
         {установить синий цвет и нарисовать электроны}
         SetColor(9);
         Circle(x, y, Re);
        PutPixel(x, y, 2);
        Circle(x1, y1, Re);
        PutPixel(x1, y1, 2);
        Circle(x2, y2, Re);
        PutPixel(x2, y2, 2);
        Circle(x3, y3, Re);
        PutPixel(x3, y3, 2);
        Delay(Step); {нарисовать электроны цветом фона}
        SetColor(0);
        Circle(x, y, Re);
        PutPixel(x, y, 2);
        Circle(x1, y1, Re);
        PutPixel(x1, y1, 2);
        Circle(x2, y2, Re);
        PutPixel(x2, y2, 2);
        Circle(x3, y3, Re);
        PutPixel(x3, y3, 2); {задать изменение положения электронов}
        I:=I + Step1; 
        I1:=I1 - Step1;
        I2:=I2 + Step1;
        I3:=I3 + Step1;
      end; {конец цикла}
   CloseGraph;
end.
Добавлено через 1 минуту
Цитата Сообщение от TXmoorganTX Посмотреть сообщение
Если какая нибудь процедурка, которая будет передвигать мой шарик по елипсу?
Как видишь такой процедуры нет, просто стирается изображение в одном месте, вычисляются новые координаты и снова рисуется.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2013, 11:45

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

Движение планеты в системе двойной звезды или движение трех тел
программа должна выводить координаты движения звезд и планеты в файл (рисую в gnuplot). ...

Вращательное движение (движение бусины по спице перпендикулярно оси вращения)
В учебниках хорошо рассмотренно движение материальной точки при круговом вращении, однако не...

Сформировать меню: 1) свободное движение объекта 2)движение с клавиатуры
Сформировать на экране меню, состоящее из следующих пунктов: 1. Движение вдоль периметра экрана....

Как работает join и split в Паскале? И есть ли такие аналоги Питону в Паскале?
a=input() #из ' Hello world ' делаю 'Hello, world' a.strip(' ') a=', '.join(a.split(' ')) В...


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

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

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