Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Mrkanhard
0 / 0 / 0
Регистрация: 27.11.2016
Сообщений: 15
1

Организовать движение слона ( программа уже готовая)

13.12.2016, 19:33. Просмотров 293. Ответов 8
Метки нет (Все метки)

Нужно чтобы он передвигался по горизонтали
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
uses graphabc;
var i:integer;
 
begin
  setWindowWidth(1500);
  setWindowHeight(480);
  setbrushcolor(clblue);
  circle(186,214,144);  // тело
  floodfill(186,214,clblue);
  circle(443,178,105);  // голова
  floodfill(443,178,clskyblue);
  circle(348,188,105);  // ухо
  floodfill(348,188,clskyblue);
  circle(131,382,66);  // нога
  floodfill(131,382,clgray);
  circle(282,382,66); // вторая
  floodfill(282,382,clgray);
  pie(131,460,66,0,180); // копыто
  floodfill(131,450,clblack);
  pie(282,460,66,0,180); // второе
  floodfill(282,450,clblack);
  pie(481,287,66,270,90); // хобот
  floodfill(490,287,clwhite);
  pie(481,343,66,90,270); // нижний
  floodfill(470,343,clblack);
  
  circle(505,163,24); // глаз
  floodfill(505,163,clblack);
  circle(515,160,8);
Добавлено через 1 час 20 минут
помогите плиз
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2016, 19:33
Ответы с готовыми решениями:

Уже готовая игра на PASCAL ABC.NET
Всем привет! Однажды, я встретил в интернете простенькую игрушку написанную на BASIC'e, называлась...

По заданным координатам слона и пешки определить, находится ли пешка под боем слона
По заданным координатам слона и пешки определить, находится ли пешка под боем слона. Входные...

Готовая программа
Может кому нужна прога Program Zavdanya_3; Uses crt; Type masiv=arrayof Integer; Var F,f1:file...

Готовая программа
Здравствуйте!Как в ms visual studio 2010 сделать свой проект (написан на winforms) окончательной...

Массивы ГОТОВАЯ программа
Помогите пожалуйста, неправильно отрабатывает программа Лаб.роб №3 Посмотрите пожалуйста,...

8
JuriiMW
2212 / 1217 / 1666
Регистрация: 10.12.2014
Сообщений: 4,758
14.12.2016, 07:09 2
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
uses graphabc;
var i:integer;
 
begin
  Window.Left := 10;
  Window.Top := 10;
  setWindowWidth(1500);
  setWindowHeight(480);
  var x := 0; LockDrawing;
  repeat
    setbrushcolor(clblue);
    circle(x+186,214,144);  // тело
    floodfill(x+186,214,clblue);
    circle(x+443,178,105);  // голова
    floodfill(x+443,178,clskyblue);
    circle(x+348,188,105);  // ухо
    floodfill(x+348,188,clskyblue);
    circle(x+131,382,66);  // нога
    floodfill(x+131,382,clgray);
    circle(x+282,382,66); // вторая
    floodfill(x+282,382,clgray);
    pie(x+131,460,66,0,180); // копыто
    floodfill(x+131,450,clblack);
    pie(x+282,460,66,0,180); // второе
    floodfill(x+282,450,clblack);
    pie(x+481,287,66,270,90); // хобот
    floodfill(x+490,287,clwhite);
    pie(x+481,343,66,90,270); // нижний
    floodfill(x+470,343,clblack);
    
    circle(x+505,163,24); // глаз
    floodfill(x+505,163,clblack);
    circle(x+515,160,8);
    
    Redraw;
    Window.Clear;
    x += 5;
  until x > 1400;
end.
0
Mrkanhard
0 / 0 / 0
Регистрация: 27.11.2016
Сообщений: 15
14.12.2016, 12:33  [ТС] 3
JuriiMW, а на паскаль абс можешь написать? Случайно ошибся разделом
0
Puporev
Модератор
56311 / 43102 / 29814
Регистрация: 18.05.2008
Сообщений: 102,418
14.12.2016, 13:52 4
Слона бы поменьше сделать, не так мерцать будет.
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
uses graphabc;
var i,x:integer;
begin
setwindowsize(1500,480);
centerwindow;
x:=0;
lockdrawing;
repeat
setbrushcolor(clblue);
circle(x+186,214,144);  // тело
setbrushcolor(clSkyBlue);
circle(x+443,178,105);  // голова
circle(x+348,188,105);  // ухо
setbrushcolor(clGray);
circle(x+131,382,66);  // нога
circle(x+282,382,66); // вторая
setbrushcolor(clBlack);
pie(x+131,460,66,0,180); // копыто
pie(x+282,460,66,0,180); // второе
setbrushcolor(clWhite);
pie(x+481,287,66,270,90); // хобот
setbrushcolor(clBlack);
pie(x+481,343,66,90,270); // нижний
setbrushcolor(clBlack);
circle(x+505,163,24); // глаз
circle(x+515,160,8);
sleep(50);
redraw;
clearwindow;
x:=x+5;
until x>1000;
end.
0
Mrkanhard
0 / 0 / 0
Регистрация: 27.11.2016
Сообщений: 15
14.12.2016, 13:59  [ТС] 5
Puporev, поможешь уменьшить? В паскале анимацию не шарю прост. Заранее спасибл
0
Puporev
Модератор
56311 / 43102 / 29814
Регистрация: 18.05.2008
Сообщений: 102,418
14.12.2016, 14:05 6
Цитата Сообщение от Mrkanhard Посмотреть сообщение
В паскале анимацию не шарю прост
А при чем здесь анимация? Нужно просто пропорционально уменьшить все детали слона.
0
Mrkanhard
0 / 0 / 0
Регистрация: 27.11.2016
Сообщений: 15
14.12.2016, 15:06  [ТС] 7
Puporev, тоесть мне нужно уменьшить x и y? ну и радиус
0
Puporev
Модератор
56311 / 43102 / 29814
Регистрация: 18.05.2008
Сообщений: 102,418
14.12.2016, 15:10 8
Да просто нарисовать такого же слона, но меньше. Но все так же должно быть привязано к Х. Уменьшатся все линейные размеры, радиусы и расстояния.
0
Mrkanhard
0 / 0 / 0
Регистрация: 27.11.2016
Сообщений: 15
14.12.2016, 15:11  [ТС] 9
Puporev, спасибо, спас)
0
14.12.2016, 15:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2016, 15:11

Дерево. Готовая программа на 95%
Вот само дерево. #include <iostream> #include <conio.h> using namespace std; int todor=0;...

Готовая программа, но не работает сортировка
Прошу помочь с программой, в строках 17-36 заключается ошибка, необходимо чтобы сортировало методом...

Готовая программа переделайте на Указатели
Помогите пожалуйста!!! Через указатели #include <stdio.h> #include <conio.h> int main( ) { int...


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

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

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