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

Вывести на экран монитора шестиугольник светло-красного цвета

11.04.2013, 15:38. Просмотров 622. Ответов 2
Метки нет (Все метки)

Вывести на экран монитора шестиугольник светло-красного (LightRed) цвета таким образом, чтобы вначале отображалась одна сторона шестиугольника, потом две стороны шестиугольника и так до полного вывода шестиугольника, после чего процесс вывода шестиугольника должен повторяться.
Заранее спасибо большое.=)))
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2013, 15:38
Ответы с готовыми решениями:

Вывести на экран монитора пятиугольник желтогоцвета и шестиугольник светло-красного цвета
Вывести на экран монитора пятиугольник желтого (Yellow) цвета и шестиугольник...

Вывести на экран монитора пятиугольник желтого (Yellow) цвета и шестиугольник светло-красного (LightRed)...
Помогите пожалуйста написать такую программу: Вывести на экран монитора...

Вывести на экран монитора горизонтальную строку текста длиной не более двадцати символов светло-красного (LightRed) цвета
Вывести на экран монитора горизонтальную строку текста длиной не более...

Вывести на экран монитора круг светло-синего цвета и эллипс светло-фиолетового
Вывести на экран монитора круг светло-синего цвета и элипс светло-фиолетового...

Вывести на экран монитора прямоугольник красного цвета с постепенным увеличением
Вывести на экран монитора прямоугольник красного (Red) цвета таким образом,...

2
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
11.04.2013, 17:12 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
uses crt,graph;
var x,y,x1,y1,x2,y2,r,i:integer;
    u:real;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=y-50;
setcolor(LightRed);
repeat
cleardevice;
outtextXY(x-50,y,'Exit any key');
delay(1000);
u:=pi/2;
x1:=x+round(r*cos(u));
y1:=y-round(r*sin(u));
for i:=1 to 6 do
 begin
  u:=u+pi/3;
  x2:=x+round(r*cos(u));
  y2:=y-round(r*sin(u));
  line(x1,y1,x2,y2);
  delay(1000);
  x1:=x2;
  y1:=y2;
 end;
until keypressed
end.
1
Tlazkotl
0 / 0 / 0
Регистрация: 09.04.2013
Сообщений: 4
12.04.2013, 00:27  [ТС] 3
Спасибо большое.=)))

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2013, 00:27

Вывести на экран монитора круговой сектор, изменять его цвет со светло-синего на светло-красный
Вывести на экран монитора круговой сектор таким образом, чтобы он менял свой...

Вывести на экран монитора вертикальную строку текста длиной не более десяти символов светло-синего (LightBlue) цвета
Вывести на экран монитора вертикальную строку текста длиной не более десяти...

Вывести на экран монитора правильный шестиугольник голубого цвета таким образом, чтобы он плавно вращался вокруг своего центра
Вывести на экран монитора правильный шестиугольник голубого (Cyan) цвета таким...


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

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

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