Движение по галочке.

pascal
  1. program anime;
  2.  uses crt;
  3.  const center=2; //­ исходная точка
  4.        diapazone=11; //кол-во клетор
  5.        robotcursor='0'; //курсор
  6.        timer=100; // таймер ммлск
  7.  type rd=1..diapazone;
  8.  var x,y:rd;
  9.  
  10. procedure drawcrt; //отрисовка фона
  11. begin textbackground(white);
  12.  textcolor(black);
  13.  clrscr end;
  14.  
  15. procedure drawtext(str:string; //вывод по координатам
  16. x,y:rd);
  17. begin gotoxy(x,y);
  18.  writeln(str) end;
  19.  
  20. procedure logic(x,y:rd);
  21.  forward;
  22.  
  23. procedure xwidth(x:rd); //движение по абсцисс
  24. begin repeat drawtext(robotcursor,x,y);
  25.   delay(timer);
  26.   x:=x+1;
  27.   logic(x,y) until false end;
  28.  
  29. procedure yheight(y:rd); //движение по ординат
  30. begin repeat drawtext(robotcursor,x,y);
  31.   delay(timer);
  32.   y:=y+1;
  33.   logic(x,y) until false end;
  34.  
  35. procedure logic(x,y:rd); //мозги
  36. begin if (x=diapazone) and (y=center) then begin x:=center;
  37.   clrscr;
  38.   yheight(y) end;
  39.  if (x=center) and (y=diapazone) then begin y:=center;
  40.   clrscr;
  41.   xwidth(x) end;
  42.  if (x=center) and (y=center) then xwidth(x) end;
  43.  
  44. procedure load;
  45. begin x:=center;
  46.  y:=center;
  47.  drawcrt;
  48.  logic(x,y) end;
  49.  
  50. begin load end.
Назад

Реклама

Мы в соцсетях

tw tg yt gt