Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Кенни1
1 / 1 / 2
Регистрация: 23.02.2014
Сообщений: 25
1

Нарисовать Слона

05.06.2014, 21:35. Просмотров 1208. Ответов 4
Метки нет (Все метки)

не получается сделать, помогите
0
Миниатюры
Нарисовать Слона  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2014, 21:35
Ответы с готовыми решениями:

Местоположение слона на шахматной доске
Задача: даны координаты n фигур на шахматной доске и координаты слона. Определить, сможет ли слон...

Можно ли с поля (k, l) одним ходом слона попасть на поле (m, n)?
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми:...

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

Нарисовать флаг, нарисовать график y=ctg x Нарисовать анимацию
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои задания... Большая...

Проверить, можно ли с первой заданной клетки попасть на вторую одним ходом черного слона
1. Шахматная доска содержит 8*8 клеток. Горизонтали и вертикали обозначаются цифрами 1-8. Написать...

4
Puporev
Модератор
56307 / 43100 / 29812
Регистрация: 18.05.2008
Сообщений: 102,416
06.06.2014, 10:47 2
Лучший ответ Сообщение было отмечено Кенни1 как решение

Решение

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
uses graph,crt;
procedure slon(x,y,h,c:integer);
begin
setcolor(c);
moveto(x+h,y+13*h);
linerel(2*h,-2*h);
linerel(h,-3*h);
linerel(3*h,-2*h);
linerel(4*h,-h);
linerel(4*h,-3*h);
linerel(2*h,h);
linerel(4*h,0);
linerel(2*h,-h);
linerel(2*h,2*h);
linerel(0,4*h);
linerel(-3*h,2*h);
linerel(-h,-2*h);
linerel(0,4*h);
linerel(-h,h);
linerel(-3*h,0);
linerel(0,-h);
linerel(2*h,0);
linerel(h,-h);
linerel(-2*h,-2*h);
linerel(-h,0);
linerel(-h,-h);
linerel(-h,2*h);
linerel(-3*h,-2*h);
linerel(-h,-3*h);
moveto(x+h,y+13*h);
linerel(3*h,-2*h);
linerel(h,3*h);
linerel(-h,4*h);
linerel(3*h,0);
linerel(0,-h);
linerel(h,0);
linerel(-h,-4*h);
linerel(5*h,0);
linerel(0,6*h);
linerel(3*h,0);
linerel(0,-5*h);
linerel(h,0);
linerel(0,h);
linerel(-h,2*h);
linerel(2*h,2*h);
linerel(1*h,-4*h);
linerel(0,-2*h);
setfillstyle(1,c);
fillellipse(x+17*h,y+6*h,h div 2,h div 2);
fillellipse(x+21*h,y+6*h,h div 2,h div 2);
end;
var x,y,d:integer;
    w:char;
begin
initgraph(x,y,'');
setbkcolor(15);
x:=0;
y:=0;
d:=10;
slon(x,y,d,8);
setcolor(8);
outtextXY(220,10,'+ uvelichenie - umenshenie Enter-exit');
repeat
if keypressed then
 begin
  w:=readkey;
  case w of
  '+':begin
      slon(x,y,d,15);
      if d<25 then d:=d+1;
      slon(x,y,d,8);
      end;
  '-':begin
      slon(x,y,d,15);
      if d>2 then d:=d-1;
      slon(x,y,d,8);
      end;
  #13:exit;
  end;
 end;
until w=#13;
end.
1
Кенни1
1 / 1 / 2
Регистрация: 23.02.2014
Сообщений: 25
06.06.2014, 15:46  [ТС] 3
Спасибо!!!
0
ildwine
Супер-модератор
3098 / 1976 / 1248
Регистрация: 04.03.2013
Сообщений: 4,835
Записей в блоге: 1
06.06.2014, 18:27 4
Кенни1, в чем сложность то была, уже ведь даже по клеточкам расчерчено?
0
Svager
397 / 376 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
06.06.2014, 18:36 5
Puporev, прикольно нарисовали )
0
06.06.2014, 18:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2014, 18:36

Нарисовать слона
нарисовать слона

Нарисовать слона
Помогите, если не сложно. Нужно составить программу в паскале, рисующую слона)

Нарисовать слона
Нужно нарисовать вот такую фигуру и при этом ещё реализовать алгоритм, позволяющий при нажатии...


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

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

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