Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
TYMOS
33 / 31 / 4
Регистрация: 24.04.2012
Сообщений: 106
1

Графика. Нарисовать кубик

14.06.2012, 14:46. Просмотров 1985. Ответов 1
Метки нет (Все метки)

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

Графика. Нарисовать телевизор
Нужно нарисовать телевизор,спасибо заранее!!!такой с антеннкой))!!!:)

Графика. Нарисовать машинку
Не получается покрасить шины в чёрный цвет и эллипсы (ручки шкафчика и фонарь). Program Car; Uses...

Графика. Нарисовать человека
Графика. Нарисовать человека: круглая голова, треугольное туловище, ноги и руки тоже треугольные но...

Графика. Нарисовать картинку
помогите нарисовать 2 картинки)) желательно и в паскале и в С++ 1)муравей 2)снеговик

Графика. Нарисовать елочку
Надо нарисовать елочку в любом паскале с помощью программы для треугольника и лижбо это все...

1
Puporev
Модератор
56598 / 43285 / 29928
Регистрация: 18.05.2008
Сообщений: 102,970
14.06.2012, 16:21 2
Лучший ответ Сообщение было отмечено TYMOS как решение

Решение

Текст модуля.
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
unit kubiki;
interface
uses graphABC;
procedure Kubik(x,y:integer);
implementation
procedure Kubik(x,y:integer);
begin
setpenwidth(2);
line(x,y+10,x+10,y);
line(x+10,y,x+70,y);
line(x+70,y,x+80,y+10);
line(x+80,y+10,x+80,y+70);
line(x+80,y+70,x+70,y+80);
line(x+70,y+80,x+10,y+80);
line(x+10,y+80,x,y+70);
line(x,y+70,x,y+10);
line(x+10,y,x+20,y-10);
line(x+20,y-10,x+80,y-10);
line(x+80,y-10,x+70,y);
line(x+80,y-10,x+88,y);
line(x+88,y,x+80,y+10);
line(x+88,y,x+88,y+60);
line(x+88,y+60,x+80,y+70);
setbrushcolor(clBlack);
ellipse(x+23,y-8,x+37,y-2);
ellipse(x+53,y-8,x+67,y-2);
ellipse(x+82,y+28,x+87,y+42);
ellipse(x+33,y+33,x+47,y+47);
ellipse(x+13,y+13,x+27,y+27);
ellipse(x+53,y+13,x+67,y+27);
ellipse(x+13,y+53,x+27,y+67);
ellipse(x+53,y+53,x+67,y+67)
end;
end.
Текст программы.

Pascal
1
2
3
4
5
6
7
8
uses graphABC,kubiki;
begin
Kubik(10,20);
kubik(windowwidth-100,20);
kubik(windowwidth-100,windowheight-100);
kubik(10,windowheight-100);
kubik(windowwidth div 2-45,windowheight div 2-45);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2012, 16:21

Графика. Нарисовать кошку
нарисовать кошку (маленькую)либо что-то другое! мне нужны разные рисунки! пожалуйста!))))))

Модули и Графика: нарисовать Чебурашку
Создайте модуль, в котором будет храниться процедура создания следующей картинки. Используя модуль,...

Графика: нарисовать идущего человека
Вот еще одно задание... Даже не знаю с чего начать... Помогите советом или делом...


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

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

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