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

@Expooo · Регистрация: 07.05.2014

Author24 — интернет-сервис помощи студентам

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

@Puporev · 14.05.2014, 15:57

Pascal

uses crt,graph;
procedure mng(x,y,r,n,c:integer);
var p:array[1..7]of pointtype;
    i:integer;
    u,du:real;
begin
du:=2*pi/n;
u:=pi/2;
du:=2*pi/n;
for i:=1 to n+1 do
 begin
  p[i].x:=x+round(r*cos(u));
  p[i].y:=y-round(r*sin(u));
  u:=u+du;
 end;
setcolor(c);
drawpoly(n+1,p)
end;
 
var x1,x2,y,r:integer;
begin
initgraph(x1,y,'');
x1:=getmaxX div 3;
x2:=2*x1;
y:=getmaxY div 2;
r:=100;
mng(x1,y,r,5,Yellow);
mng(x2,y,r,6,LightRed);
outtextXY(270,20,'Exit any key');
repeat
delay(500);
cleardevice;
outtextXY(270,20,'Exit any key');
mng(x2,y,r,5,Yellow);
mng(x1,y,r,6,LightRed);
delay(500);
cleardevice;
outtextXY(270,20,'Exit any key');
mng(x1,y,r,5,Yellow);
mng(x2,y,r,6,LightRed);
until keypressed
end.
readln
end.

@Expooo 0 / 0 / 0 Регистрация: 07.05.2014 Сообщений: 5
		1
	Вывести на экран монитора пятиугольник желтогоцвета и шестиугольник светло-красного цвета 14.05.2014, 13:18. Показов 1179. Ответов 1 Метки нет (Все метки) Вывести на экран монитора пятиугольник желтого (Yellow) цвета и шестиугольник светло-красного (LightRed) цвета таким образом, чтобы они поменялись своими местами, после чего процесс изменения положения пятиугольника и шестиугольника должен повторяться. 0

	14.05.2014, 15:57

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

Решение