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

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

03.04.2012, 20:18. Просмотров 778. Ответов 5
Метки нет (Все метки)

Помогите пожалуйста написать такую программу:

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

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

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

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

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

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

5
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
03.04.2012, 21:17 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
uses crt,graph;
procedure Mng(x,y,n,r,c:integer);
var i:integer;
    a,da:real;
    p:array[1..7]of Pointtype;
begin
da:=pi*2/n;
if n=5 then a:=da/4
else a:=0;
for i:=1 to n do
 begin
  p[i].x:=x+round(r*cos(a));
  p[i].y:=y-round(r*sin(a));
  a:=a+da;
  end;
p[n+1].x:=p[1].x;
p[n+1].y:=p[1].y;
SetColor(c);
drawpoly(n+1,p);
end;
var  x,x1,x2,y1,r:integer;
     c:char;
begin
initgraph(x1,y1,'');
y1:=getmaxY div 2;
x1:=getmaxX div 3;
x2:=2*x1;
r:=80;
outtextXY(getmaxX div 2-40,20,'Exit Esc');
outtextXY(getmaxX div 2-60,40,'Obmen any key');
Mng(x1,y1,5,r,14);
Mng(x2,y1,6,r,12);
repeat
if keypressed then
 begin
  c:=readkey;
  if c<>#27 then
   begin
    x:=x1;
    x1:=x2;
    x2:=x;
    Mng(x2,y1,5,r,0);
    Mng(x1,y1,6,r,0);
    Mng(x1,y1,5,r,14);
    Mng(x2,y1,6,r,12);
   end
  else exit
 end;
until c=#27;
readln
end.
2
xmeatles
0 / 0 / 0
Регистрация: 29.03.2012
Сообщений: 15
03.04.2012, 21:22  [ТС] 3
Спасибо Огромное
0
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
03.04.2012, 21:22 4
Программу-то хоть запускал? И все понял?
1
xmeatles
0 / 0 / 0
Регистрация: 29.03.2012
Сообщений: 15
03.04.2012, 21:26  [ТС] 5
да, все предельно понятно) еще раз спасибо
0
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
03.04.2012, 21:26 6
Ну и хорошо....
0
03.04.2012, 21:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2012, 21:26

Вывести на экран монитора пятиугольник таким образом, чтобы он изменял свой цвет с белого (White) на желтый (Yellow) и наоборот, после чего процесс см
Помогите пожалуйста написать такую программу: Вывести на экран монитора...

Вывести на экран монитора треугольник желтого цвета со сторонами в виде штриховых линий
Вывести на экран монитора треугольник желтого цвета со сторонами в виде...

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


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

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

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