Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/48: Рейтинг темы: голосов - 48, средняя оценка - 4.85
Наташок
0 / 0 / 1
Регистрация: 05.10.2010
Сообщений: 32
#1

Изобразить движение нарисованной фигуры

03.01.2011, 15:00. Просмотров 9590. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста написать код рисования вот этой штуки
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program kkk;
uses crt,graphABC;
type ColorType=integer;
var x,y,r:integer;
 
begin
ClearWindow;
SetPenWidth(4);
circle(160,150,50);
SetBrushColor(4);
circle(145,140,5);
circle(175,140,5);
SetPenWidth(4);
Arc(160,185,30,20,160);
end.
только чтобы после того как мы ее нарисовали, она исчезла, потом появилась и начала передвигаться по полю в любом направлении.Пожалуйста, очень срочно,помогите!Заранее благодарна)

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.01.2011, 15:00
Ответы с готовыми решениями:

Изобразить движение автомобиля
Нужно нарисвать такую машинку как на картинке, чтобы она ехала...

Изобразить движение автомобиля
Помогите нарисовать мышку в Паскале, чтобы анимационная была, т.е передвигалась...

Изобразить движение линии
Буду очень благодарен . Нужно что б было Движение линии

Изобразить движение автомобиля
Помогите зделать анимацию машины которая движеться.

Изобразить перемещение и поворот фигуры
1 - подобная фигура смещается вверх на 90 и влево на 120 пикселей с поворотом...

2
Zero-cool
5 / 5 / 2
Регистрация: 05.01.2011
Сообщений: 30
06.01.2011, 09:57 #2
вот такое движение нужно было?
Delphi
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
program kkk;
uses graphABC;
type ColorType=integer;
var x,y,r:integer;
 
begin
ClearWindow;
SetPenWidth(4);
circle(160,150,50);
Brush.Color:=clred;
circle(145,140,5);
circle(175,140,5);
SetPenWidth(4);
Arc(160,185,30,20,160);
sleep(700);
window.clear(clwhite);//стираем рисунок
sleep(500);
lockdrawing;//блокируем рисование(всё рисуется в буфере)
for var c:=150 to 400 do//движени рисунка паралельно оси Y
  begin
    brush.color:=clwhite;//чтобы рисунок внутри не покраснел
    window.clear(clwhite);
    SetPenWidth(4);
    circle(160,c,50); 
    Brush.Color:=clred;
    circle(145,c-10,5);
    circle(175,c-10,5);
    SetPenWidth(4);
    Arc(160,c+35,30,20,160); 
    redraw;//сама перерисовка
  end;
end.
0
Puporev
Модератор
54215 / 41848 / 28920
Регистрация: 18.05.2008
Сообщений: 98,508
06.01.2011, 10:45 #3
Zero-cool, Это хорошо что вы написали код, еще бы все ошибки в нем исправить...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.01.2011, 10:45

Изобразить движение транспорта на перекрестке
Нужно сделать движение как на этой картинке все картинки в архиве и залил на...

Изобразить движение машины к светофору

Изобразить движение мяча, отскакивающего от земли
Привет, помогите пожалуйста нарисовать две задачки)) 1) Изобразить движение...


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

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

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