помогите с программированием [Pascal ]

[Lelik6761]

я написала рограмму но не могу выполнить поворот...
помогите пожалуйста...
смысол программы в том чтобы 4-е окружности расположенные по углам квадрата двигались по часовой стрелке с одинаковой скоростью...

Используется синтаксис Pascal

program Jyk;
uses Graph,crt;
var
 Dr,M,Error:integer;
 b,c:integer;  {первый жук}
 b1,c1:integer; {второй жук}
 b2,c2:integer; {третий жук}
 b3,c3:integer; {четвертый жук}
 r:integer; {радиус жуков}
begin
 Dr:=detect;
 InitGraph (Dr,M,'');
 if GraphResult <> 0 then
  begin
   writeln ('Ошибка');
   halt
  end
 else
 begin
  outtextxy (245,40,'Траектория движения жуков');
  {создаем окно в центре экрана для вывода "жуков"}
  rectangle (170,80,500,410);
  SetViewPort (171,81,499,409,ClipOn); {Все жуки нах-ся в квадрате со стороной А}
  SetColor (red);              {цвет}
  SetLineStyle (0,0,2*Random (2)+1);  {стиль линий}
  b:=30;
  c:=40;
  b1:=280;
  c1:=40;
  b2:=30;
  c2:=300;
  b3:=280;
  c3:=300;
  SetFillStyle (6, red);
  Circle (b,c,25);
  FloodFill (b+1,c+1, red);
  Circle (b1,c1,25);
  FloodFill (b1+1,c1+1, Red);
  Circle (b2,c2,25);
  FloodFill (b2+1,c2+1, Red);
  Circle (b3,c3,25);
  FloodFill (b3+1,c3+1, Red);
  repeat
   delay (1000);
   ClearViewPort;
   delay (100);
   b:=b+30;
   c:=40;
   b1:=280;
   c1:=c1+30;
   b2:=30;
   c2:=c2-30;
   b3:=b3-30;
   c3:=300;
   SetFillStyle (6, red);
   Circle (b,c,25);
   FloodFill (b+1,c+1, red);
   Circle (b1,c1,25);
   FloodFill (b1+1,c1+1, Red);
   Circle (b2,c2,25);
   FloodFill (b2+1,c2+1, Red);
   Circle (b3,c3,25);
   FloodFill (b3+1,c3+1, Red);
   delay (100);
Вот тут нужен поворот, а я не знаю какое условие надо
   if (b<30) or (c<40) and (b+r+1>280) or (c+r+1>300) then 
    begin
     b:=b+30;
     c:=40;
     b1:=280;
     c1:=c1+30;
     b2:=30;
     c2:=c2-30;
     b3:=b3-30;
     c3:=300;
     SetFillStyle (6, red);
     Circle (b,c,25);
     FloodFill (b+1,c+1, red);
     Circle (b1,c1,25);
     FloodFill (b1+1,c1+1, Red);
     Circle (b2,c2,25);
     FloodFill (b2+1,c2+1, Red);
     Circle (b3,c3,25);
     FloodFill (b3+1,c3+1, Red);
     delay (100);
     end
  until KeyPressed;
 { if ReadKey=#0 then
   b:=ord (ReadKey); }
 CloseGraph;
 end;
end.
 

[arseniiv]

Проставьте отступы побольше ( ).

[Toucan]

Переехали в Программирование

[v0lkan0]

вообще если все "жуки" одного цвета, то можно схитрить и не делать поворота ;), а просто сделать так, чтобы каждый "жук" доходил до конца - 1 шаг стороны А и цикл тупо начинался сначала )

Если жуки все же разных цветов и необходимо сделать движение по кругу, то нужно следующее:
1. точно определиться с шагом "жуков", чтобы сделать движение равномерным и с одинаковым отступом у краев квадрата. Либо рассчитывать шаг автоматически если сторона квадрата произвольная. пример для "жука" сверху: А=310, r=30, shag=30, отступ от края=по 5 с двух сторон, шагов нужно пройти 10, x(начальное)=20, x(конечное)=290 (x - твое b; y - твое c)
2. условие для поворота можно использовать такое: if (x + shag = A) то делаем поворот
3. реализация поворота у тебя неправильная (если ты ее описал так, как у тебя в коде). общий случай движения по кругу для каждого из жуков при его нахождении в определенной позиции (сверху, справа, снизу, слева) будет выглядеть так: "жук" сверху - x = x + shag, "жук" справа - y = y - shag, "жук" снизу - x = x - shag, "жук" слева - y = y - shag.
поворотом же будет просто смена знака у shag'a при определенной позиции
4. через if делать геморно, в данной ситуации лучше воспользоваться циклом while. Все это будет выглядеть так:

//начальные координаты
//рисуем круги
  
repeat
   
   while (x + shag <> A)
      begin
         x = x + shag;
         y1 = y1 + shag;
         x2 = x2 + shag;
         y3 = y3 - shag;
         
         //рисуем круги
      end
      
   while (x3 + shag <> A)
      begin
         y = y + shag;
         x1 = x1 - shag;
         y2 = y2 - shag;
         x3 = x3 + shag;
         
         //рисуем круги
      end
      
   while (x2 + shag <> A)
      begin
         x = x - shag;
         y1 = y1 - shag;
         x2 = x2 + shag;
         y3 = y3 + shag;
         
         //рисуем круги
         end
      
   while (x1 + shag <> A)
      begin
         y = y - shag;
         x1 = x1 + shag;
         y2 = y2 + shag;
         x3 = x3 - shag;
         
         //рисуем круги
      end
  
until KeyPressed;

циклы while пишутся именно в такой последовательности

-- Вс ноя 28, 2010 13:20:42 --

[Lelik6761]

[quote="v0lkan0 в сообщении #381382"]вообще если все "жуки" одного цвета, то можно схитрить и не делать поворота ;), а просто сделать так, чтобы каждый "жук" доходил до конца - 1 шаг стороны А и цикл тупо начинался сначала )

да все "жуки" одного цвета вот именно этот цикл я не могу написать...

а цикл который предложили вы он не работает и зацикливается

[v0lkan0]

точно ) совсем забыл еще определять другие координаты ) сорри

ну а для одноцветных жуков цикл без поворота таков:

repeat
//определяем начальные координаты всех "жуков"
while (x + shag < A)
      begin
         x = x + shag;
         y1 = y1 + shag;
         x2 = x2 - shag;
         y3 = y3 - shag;
         
         //рисуем круги
      end
until KeyPressed

должно работать

[Lelik6761]

спасибо спасибо спасибо...прога заработала...)))))