Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
kaazim
0 / 0 / 0
Регистрация: 07.05.2014
Сообщений: 5
1

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

07.05.2014, 16:54. Просмотров 2253. Ответов 5
Метки нет (Все метки)

Помогите, если не сложно. Нужно составить программу в паскале, рисующую слона)
0
Изображения
 
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2014, 16:54
Ответы с готовыми решениями:

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

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

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

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

Нарисовать лес на экране (нарисовать дерево, и размножить его на экране)
73. Нарисовать лес на экране (нарисовать дерево, и размножить его на экране)

5
kaazim
0 / 0 / 0
Регистрация: 07.05.2014
Сообщений: 5
11.05.2014, 15:05  [ТС] 2
пока сделал 'каркас' слона. Дальше завис.

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses graphABC;
begin
setwindowsize(800,500);
setpenwidth(4);
 
Rectangle(290,245,360,375);
Rectangle(390,265,460,375);
 
Circle(375,250,85);
Circle(455,150,70);
end.
Добавлено через 15 часов 9 минут
Сделал чуть дальше. Но вот с цветками, хоботом и хвостом не знаю что делать.
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
uses graphABC;
begin
setwindowsize(800,500);
setpenwidth(4);
 
Rectangle(290,245,360,375);
Rectangle(390,265,460,375);
 
Circle(375,250,85);
Circle(455,150,70);
 
setpenwidth(2);
Line(390,140,480,95);
Line(480,95,460,170);
Line(460,170,390,140);
 
Circle(495,170,15);
SetBrushColor(clBlack);
Circle(493,167,7);
SetBrushColor(clWhite);
Circle(491,165,4);
 
Circle(200,100,7);
Circle(208,108,7);
 
end.
0
kaazim
0 / 0 / 0
Регистрация: 07.05.2014
Сообщений: 5
11.05.2014, 15:28  [ТС] 3
Такой вопрос - можно ли в abc рисовать такие фигуры как, например бивень, ухо, хвост, нос?
Или возможно есть программа, позволяющая перевести внесенный рисунок в код паскаля(Надеюсь я хоть более-менее понятно написал)
0
ermolay
3435 / 2374 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
11.05.2014, 16:04 4
Лучший ответ Сообщение было отмечено kaazim как решение

Решение

Цитата Сообщение от kaazim Посмотреть сообщение
можно ли в abc рисовать такие фигуры как, например бивень, ухо, хвост, нос?
теоретически любую линию (фигуру) можно разбить на несколько примитивных. Хвост, например, можно нарисовать из 4-х дуг (arc()) окружности.
Есть еще вариант - с помощью кривых Безье Графика в Турбо Паскаль, но не уверен, что он вам подойдет.
Цитата Сообщение от kaazim Посмотреть сообщение
Или возможно есть программа, позволяющая перевести внесенный рисунок в код паскаля
Нет, таких программ нет.
0
kaazim
0 / 0 / 0
Регистрация: 07.05.2014
Сообщений: 5
11.05.2014, 16:33  [ТС] 5
Спасибо за совет с дугами. Интересный вариант

Добавлено через 11 минут
Хотя не могу понять, вариант с дугами довольно сложный и в школе такое не задают. Нет ли другого варианта?
0
Puporev
Модератор
56358 / 43130 / 29833
Регистрация: 18.05.2008
Сообщений: 102,497
11.05.2014, 18:49 6
Цитата Сообщение от kaazim Посмотреть сообщение
с дугами довольно сложный и в школе такое не задают.
Ну если дуги это слишком сложно, то тогда
Цитата Сообщение от ermolay Посмотреть сообщение
с помощью кривых Безье
0
11.05.2014, 18:49
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2014, 18:49

Нарисовать Слона
не получается сделать, помогите

Canvas. Нарисовать Слона .
нада нарисовать слона =) да такое задание . . .

Ну продайте им слона
Хоть Яша и не смог за десять лет приобрести себе слона Вечный лозунг "ПРОДАЙ СЛОНА" Поздравим...


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

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

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