Создать программу, в которой треугольник движется по периметру экрана - PascalABC.NET

Узнай цену своей работы

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

Создать программу, в которой треугольник движется по периметру экрана

Решение задачи: «Создать программу, в которой треугольник движется по периметру экрана»

textual
Листинг программы
uses graphABC;
const w=400;//размеры окна
      r=20;//радиус окружности, описанной около треугольника
      z=1;//задержка
      d=1;//шаг смещения треугольника
var f:boolean;//переменная для останова программы
procedure trg(x,y:integer);
var u:real;
   
begin
setpencolor(clRed);
setpenwidth(2);
u:=pi/2;
moveto(x+round(r*cos(u)),y-round(r*sin(u)));
u:=u+2*pi/3;
lineto(x+round(r*cos(u)),y-round(r*sin(u)));
u:=u+2*pi/3; 
lineto(x+round(r*cos(u)),y-round(r*sin(u)));
u:=u+2*pi/3; 
lineto(x+round(r*cos(u)),y-round(r*sin(u)));
end;    
procedure MouseDown(x,y,mousebutton: integer);
begin
if mousebutton=1 then f:=false;//если ЛКМ остановка
end;
var x,y:integer;
begin
setwindowsize(w,w);
centerwindow;
f:=true;
onmousedown:=MouseDown;
x:=r;
y:=r;
lockdrawing;
while f do
 begin
  clearwindow;
  trg(x,y);
  sleep(1);
  if (x<w-r)and(y<=r) then x:=x+1
  else if (y<w-r)and(x>=w-r) then y:=y+1
  else if(x>r)and(y>=w-r) then x:=x-d
  else if (y>r)and(x<=w-r) then y:=y-d;
  redraw;
 end;
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.333 из 5
Похожие ответы