С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/48: Рейтинг темы: голосов - 48, средняя оценка - 4.58
Алиса2000
0 / 0 / 1
Регистрация: 10.03.2010
Сообщений: 8
1

Анимация в паскале

21.03.2010, 12:16. Просмотров 8672. Ответов 1
Метки нет (Все метки)

Смоделировать построение башни из 5 кубиков(квадратов)

Цитата Сообщение от Mawrat
Алиса2000, переношу вашу тему в раздел Pascal.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2010, 12:16
Ответы с готовыми решениями:

Анимация на паскале.
Помогите, пожалуйста. Ниже код программы. Тут тележка движется влево и...

Анимация в паскале. модуль graph.
Здравствуйте. Дали задание сделать анимацию в Паскале с использованием...

Анимация
Можна маленький пример анимации? типа: Line(100,100,200,200); и чтобы...

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

Анимация
Движение закрашенного правильного шестиугольника с заданной с клавиатуры...

1
Алиса2000
0 / 0 / 1
Регистрация: 10.03.2010
Сообщений: 8
18.04.2010, 12:09  [ТС] 2
Лучший ответ Сообщение было отмечено Алиса2000 как решение

Решение

вот программа,на основе которой мне нужно сделать мой вариант с башенкой
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
program Mayatnik;
uses graph, crt;
var
  driver, regim, m : integer;
  a, b : real;
  p : boolean;
procedure Kadr(u : real; cvet : word);  {ПП формирования одного кадра}
var
  x, y, z, w : integer;
begin
     {Координаты точки подвеса маятника: z, w }
  z := GetMaxX div 2;    {Середина экрана по горизонтали}
  w := GetMaxY div 10;   {Отступ сверху на десятую часть экрана по высоте}
     {Координаты центра диска маятника}
  x := round(z + 8*w*sin(u));  y := round(w + 8*w*cos(u));
  setcolor(cvet);       {Цвет линий}
  setFillStyle(1, cvet);     {Вид и цвет закраски фигур}
  line(z, w, x, y);     {Линия между точкой подвеса и центром маятника}
  pieslice(z, w, 0, 360, 5);     {Шляпка “гвоздя”}
  pieslice(x,y,0,360,w)       {Диск маятника}
  {FillEllipse(x,y,w,round(w/1.4))} {Так будет круглый диск маятника}
end;   {Kadr}
begin    {Основная программа}
  driver := vga;   {Адаптер соответствующий}
  regim := 1;      {В этом режиме две страницы видеопамяти}
  InitGraph(driver, regim, 'c:\bp\bgi');
  a := 0;    b := 0;     {a – текущий угол, b – предыдущий угол}
  m := 1;           {Маятник идет вправо}
  p := true;        {Активность страницы}
  SetBkColor(blue);   {Голубой фон экрана}
  SetActivePage(ord(p));   {Активна вторая страница}
  repeat         {По умолчанию видима первая страница}
    Kadr(b, GetBkColor);    {Стирание предыдущего кадра изображения}
    b := a;      {Запоминается предыдущий угол отклонения маятника}
    a := a + m*0.01;    {Приращение угла}
    if abs(a) > 0.5 then m := -m;
    Kadr(a, yellow);   {Рисует маятник в новом положении}
    SetVisualPage(ord(p));   {Страницы меняются ролями}
    SetActivePage(ord(not p));
    delay(2000);        {Подбери задержку, чтоб не дергалась картинка!!!}
    p := not p;
    OutTextXY(20, 40, 'Press any key');
  until keypressed   {Выход из цикла при нажатии любой клавиши}
end.
Добавлено через 1 минуту
помогите плиз.не знаю как изменять координаты прямоугольничков.в цикле или как.и параметры анимации

Добавлено через 8 минут
а вот алгоритм

-начало
-выбор драйвера и режима его работы
-инициализация графического режима
-задание исходных параметров анимации
-цвет фона и активность страницы
-(начало цикла repeat) Kadr(<параметры движения>, <цвет фона>)
-сохранение параметров движения
-вычисление текущих параметров движения
-Kadr(<параметры движения>,<цвет>)
-изменение активности и видимости страниц
-задержка времени между кадрами
-(until) условие выхода из цикла
-конец(если да,если нет в начало цикла)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2010, 12:09

Анимация
http://s46.***********/i113/0906/e3/3b608545e8ef.jpg

анимация
народ помогите мне доделать ! не пойму вроде все координаты правиль норащивал а...

лёгкая анимация
помогите плиз можете написать код в котором просто по центру крутится белый...


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

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

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