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

Создать домик как на картинке

02.03.2017, 20:27. Просмотров 942. Ответов 3
Метки нет (Все метки)

Помогите.Просто домик получается делать,но не объемный. Нужно как на фото. Дом цветной (Там помечено где какой цвет + окошко синее и ручка двери белая). Надеюсь на вашу помощь
0
Миниатюры
Создать домик как на картинке  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.03.2017, 20:27
Ответы с готовыми решениями:

Заполнить массив как показано на картинке
Помогите заполнить массив как показано на картинке(11 вариант)

нарисовать домик
Нужно нарисовать прямоугольный дом с прямоугольными окнами и прямоугольной...

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

Домик графика
Люди выручите Нужно сделать 1 дом как на рисунке! И с помощью цыкла сделать ещё...

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

3
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27966 / 15692 / 960
Регистрация: 15.09.2009
Сообщений: 67,824
Записей в блоге: 78
02.03.2017, 20:29 2
Цитата Сообщение от StarkT Посмотреть сообщение
получается делать
ну вот и покажи хотя бы что получается.
0
Ivandur
446 / 825 / 177
Регистрация: 11.08.2016
Сообщений: 1,240
03.03.2017, 22:03 3
Что не получается? Задать координаты? Включить графический режим? Нарисовать примитивы?
0
MansMI
1450 / 1159 / 550
Регистрация: 08.01.2012
Сообщений: 4,509
04.03.2017, 07:31 4
Лучший ответ Сообщение было отмечено StarkT как решение

Решение

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 crt,graph;
const n=6;
a:array[1..n,1..8]of integer=
((5,0,10,5,0,5,5,0),(0,5,10,5,10,14,0,14),(3,9,7,9,7,14,3,14),
(4,6,6,6,6,8,4,8),(5,0,9,0,13,4,10,5),(10,5,13,4,13,11,10,14));
b:array[1..n]of integer=(4,14,6,1,4,14);
var gd,gm,l,x,y,i,j:integer;
    c:array[1..8]of integer;
begin
   gd:=DETECT;
   initgraph(gd,gm,'');
   x:=100;
   y:=100;
   l:=20;
   for i:=1 to n do
   begin
      for j:=1 to 4 do
      begin
         c[j*2-1]:=x+a[i,j*2-1]*l;
         c[j*2]:=y+a[i,j*2]*l;
      end;
      setfillstyle(1,b[i]);
      fillpoly(4,c);
   end;
   setfillstyle(1,15);
   fillellipse(x+5*l+l div 2,y+11*l+l div 2,l div 2,l div 2);
   readkey;
   closegraph;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.03.2017, 07:31

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

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

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


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

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

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