Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/16: Рейтинг темы: голосов - 16, средняя оценка - 4.69
Эдвин
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 5
1

Домик графика

30.01.2011, 21:15. Просмотров 2933. Ответов 4
Метки нет (Все метки)

Люди выручите Нужно сделать 1 дом как на рисунке! И с помощью цыкла сделать ещё 3 ему подобных между домами тоже должен быть одинаковый промежуток! Заранее спасибо
0
Миниатюры
Домик графика  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2011, 21:15
Ответы с готовыми решениями:

Графика. Построить домик.
Построить домик. Я знаю что это простая задача, просто мы еще не проходили...

Нарисовать домик
надо сделать домик как на рисунке в турбопаскаль.спасибо тому кто поможет

Нарисовать домик
ребят,помогите пожалуйста 1)создать модуль и откомпелировать его. 2)сделать...

Нарисовать домик
Нарисовать домик, чтобы при нажатии на «А» свет в окне загорался, а потом...

Нарисовать домик
Вобщем нужно нарисовать домик, чтобы было использовано по крайней мере 30-40...

4
Puporev
Модератор
56119 / 42980 / 29730
Регистрация: 18.05.2008
Сообщений: 102,009
31.01.2011, 08:39 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
uses graph;
procedure Dom(x,y:integer);
begin
rectangle(x,y,x+80,y+10);
rectangle(x+50,y-15,x+60,y);
rectangle(x+10,y+10,x+70,y+80);
ellipse(x+65,y-25,0,360,5,4);
ellipse(x+80,y-35,0,360,9,7);
rectangle(x+15,y+25,x+35,y+45);
rectangle(x+45,y+35,x+65,y+75);
end;
var x,y,i:integer;
begin
x:=0;
initgraph(x,y,'');
x:=40;
y:=getmaxY div 2-40;
setbkcolor(15);
setcolor(8);
for i:=1 to 4 do
Dom(x+(i-1)*160,y);
readln
end.
0
Puporev
Модератор
56119 / 42980 / 29730
Регистрация: 18.05.2008
Сообщений: 102,009
11.12.2013, 18:29 3
Pascal
1
2
3
setfillstyle(1,15);
fillellipse(x+65,y-25,5,4);
fillellipse(x+80,y-35,9,7);
1
Ержан94
0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 2
12.12.2013, 13:12 4
с этом кодом цвет еллипс не краситься
0
Puporev
Модератор
56119 / 42980 / 29730
Регистрация: 18.05.2008
Сообщений: 102,009
12.12.2013, 13:19 5
Так нужно знать в какой цвет красить, напиши так

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure Dom(x,y:integer);
begin
rectangle(x,y,x+80,y+10);
rectangle(x+50,y-15,x+60,y);
rectangle(x+10,y+10,x+70,y+80);
setfillstyle(1,8);
fillellipse(x+65,y-25,5,4);
fillellipse(x+80,y-35,9,7);
rectangle(x+15,y+25,x+35,y+45);
rectangle(x+45,y+35,x+65,y+75);
end;
0
12.12.2013, 13:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2013, 13:19

Нарисуйте домик, ёлочку и машину
Ничего,не получается(как и с Азбукой морзе(тема созданная раннее))

Создать домик как на картинке
Помогите.Просто домик получается делать,но не объемный. Нужно как на фото. Дом...

Изобразить домик в Турбо Паскале
На Турбо Паскале изобразить домик в котором в окне при нажатии 1 свет...


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

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

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