Вывести на экран монитора геометрические фигуры - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Вывести на экран монитора геометрические фигуры - Pascal ABC»

textual
uses crt,graph;
procedure trg(xc,yc:integer);
var a:real;
    i,x,y,y1:integer;
begin
setcolor(lightgray);
a:=pi/2;
y1:=yc+5;
moveto(xc+round(30*cos(a)),y1-round(30*sin(a)));
for i:=1 to 3 do
 begin
  a:=a+2*pi/3;
  x:=xc+round(30*cos(a));
  y:=y1-round(30*sin(a));
  lineto(x,y);
 end;
end;
procedure rect(x,y:integer);
begin
setcolor(lightgreen);
rectangle(x-30,y-20,x+30,y+20);
end;
var x1,x2,y:integer;
begin
initgraph(x1,x2,'');
x1:=getmaxX div 2-150;
x2:=getmaxX div 2+90;
y:=getmaxY div 2;
repeat
cleardevice;
setcolor(14);
outtextXY(getmaxX div 2-50,20,'Exit any key');
trg(x1,y);
rect(x2,y);
delay(1000);
cleardevice;
setcolor(14);
outtextXY(getmaxX div 2-50,20,'Exit any key');
trg(x2,y);
rect(x1,y);
delay(1000);
until keypressed;
end.

13   голосов, оценка 4.077 из 5


СОХРАНИТЬ ССЫЛКУ