Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 04.12.2012
Сообщений: 48
1

Нарисовать диагональ экрана, состоящую из 15 разноцветных шестигранников

25.02.2013, 07:46. Показов 821. Ответов 1
Метки нет (Все метки)

Нарисовать диагональ экрана, состоящую из 15 разноцветных шестигранников
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2013, 07:46
Ответы с готовыми решениями:

Нарисовать диагональ экрана, состоящую из 15 разноцветных треугольников
нарисовать диагональ экрана состоящую из 15 разноцветных треугольников

Нарисуйте на экране диагональ экрана, состоящую из 15 разноцветных правильных заполненных восьмиугольников
Нарисуйте на экране диагональ экрана, состоящую из 15 разноцветных правильных заполненных...

Нарисовать диагональ экрана, состоящую из 15 шестигранников (Pascal ABC)
Нужно нарисовать диагональ экрана, состоящую из 15 шестигранников Pascal ABC(Только паскаль абс,...

Нарисовать «диагональ» экрана, состоящую из 50 разноцветных эллисов.
Нарисовать «диагональ» экрана, состоящую из 50 разноцветных эллисов. Помогите пожалуйста с...

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,134
25.02.2013, 09:33 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
24
25
26
27
28
29
30
31
32
33
34
35
36
uses graph;
procedure hex(r,x,y,c:integer);
var p:array[1..7]of Pointtype;
    i,a:integer;
begin
a:=0;
for i:=1 to 6 do
 begin
  p[i].x:=x+round(r*cos(a*pi/180));
  p[i].y:=y-round(r*sin(a*pi/180));
  a:=a+60;
  end;
p[7]:=p[1];
setcolor(c);
drawpoly(7,p);
end;
 
var  i,x,y,r:integer;
     w,h:longint;
begin
initgraph(x,y,'');
w:=getmaxX;
h:=getmaxY;
r:=round(sqrt(w*w+h*h))div 30+3;
w:=3*r div 2;
h:=round(r*sin(pi/3));
x:=r;
y:=h;
for i:=1 to 15 do
 begin
  hex(r,x,y,i);
  x:=x+w-1;
  y:=y+h+5;
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2013, 09:33

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей
1.Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей.

Нарисовать "окружность", состоящую из 36 разноцветных квадратов
Нарисовать "окружность", состоящую из 36 разноцветных квадратов. И составить блок-схему. Turbo...

Нарисуйте окружность состоящую из 36 разноцветных пятиугольных звёзд
Нарисуйте окружность состоящую из 36 разноцветных пятиугольных звёзд, цвет которых непрерывно...

Нарисуйте сетку 20х20, состоящую из разноцветных прямоугольных треугольников четырех видов, различающихся расп
нарисуйте сетку 20х20, состоящую из разноцветных прямоугольных треугольников четырех видов,...


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

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

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