Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 76, средняя оценка - 4.70
Наташок
0 / 0 / 0
Регистрация: 05.10.2010
Сообщений: 32
#1

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

03.01.2011, 15:00. Просмотров 9559. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Изобразить движение нарисованной фигуры (Pascal ABC):

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

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

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

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

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

Изобразить движение транспорта на перекрестке - Pascal ABC
Нужно сделать движение как на этой картинке все картинки в архиве и залил на хостинк картинок первой должна проехать красная машина ссылки...

2
Zero-cool
5 / 5 / 1
Регистрация: 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
Модератор
53860 / 41493 / 14597
Регистрация: 18.05.2008
Сообщений: 97,289
06.01.2011, 10:45 #3
Zero-cool, Это хорошо что вы написали код, еще бы все ошибки в нем исправить...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.01.2011, 10:45
Привет! Вот еще темы с ответами:

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

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

Изобразить движение шарика в области квадрата - Pascal ABC
Дан квадрат, разделенный на две части линией. В нижней части бегает шарик. Нужно сделать так, чтобы наверху бегал второй. Но что бы не...

Изобразить движение Солнца над землей - Pascal ABC
Изобразить движение Солнца над землей, начиная с востока и заканчивая западом, меняя при этом яркость фонового окраску.


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

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

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