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

Модуль GRAPH: нарисовать шестиугольник

09.04.2012, 19:01. Просмотров 1096. Ответов 1
Метки нет (Все метки)

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

Модуль Graph. Нарисовать цветок
Написать программу, которая рисовала бы цветок Написати програму яка малювала б квітку.

Модуль Graph: нарисовать улитку
http://img138.imageshack.us/i/ulitka.jpg/ подскажите как эту хрень дорисовать. я замучался. вот...

Нарисовать рисунок используя модуль graph
Изобразить рисунок со скриншота используя геометрические фигуры и раскрасить рисунок в любые цвета.

Модуль graph. Нарисовать флаг Чехии
помогите пожалуйста нарисовать флаг Чехии в Модуле граф,паскаль...........ооочень нужно(((

Модуль Graph: Нарисовать граненый стакан
Необходимо пр помощи процедур и функций модуля Graph нарисовать граненый стакан.

1
Puporev
Модератор
55433 / 42554 / 29407
Регистрация: 18.05.2008
Сообщений: 100,671
09.04.2012, 21:37 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
uses crt,graph;
procedure Hex(x,y,r,c:integer);
var p:array[1..7]of pointtype;
    a,i:integer;
begin
a:=0;
for i:=1 to 7 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].x:=p[1].x;
p[7].y:=p[1].y;
setcolor(c);
drawpoly(7,p);
setfillstyle(1,c);
floodfill(x,y,c);
end;
var x,y,r,d:integer;
begin
x:=0;
InitGraph(x,y,'');
outtextXY(getmaxX div 2-40,10,'Vyhod - any key...');
x:=r-1;y:=getmaxY div 2;
r:=20;
repeat
if x<=r then d:=5;
x:=x+d;
Hex(x,y,r,12);
delay(500);
Hex(x,y,r,0);
if x>=getmaxX-r then d:=-5;
until keypressed;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2012, 21:37

Нарисовать СИНУСОИДУ через модуль Graph
Здравствуйте!! Помогите пожалуйста... Надо в паскале нарисовать синусоиду или волнистую линию при...

Модуль GRAPH: нарисовать флаг Олимпийских игр
Написать программу, которая выводит на экран флаг Олимпийских игр. Изображение флага приведено ниже...

Нарисовать что-то интересное и не сложное, используя модуль Graph
Нарисовать в Паскаль что либо, используя модуль Graph, что нибудь интересное и не очень сложное


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

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

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