Question

Вчём ошибка программы? если не сложно объясните . код программы - program cikl; uses graphabc; var r: integer; begin for r: =460 downto 100 do begin circle(620,480,r); r: =r-35; end; floodfill(170,480,clpurple); floodfill(205,480,clblue); floodfill(240,480,clskyblue); floodfill(275,480,clgreen); floodfill(310,480,clyellow); floodfill(345,480,cllime); floodfill(380,480,clmoneygreen); floodfill(415,480,clred); floodfill(450,480,clmaroon); floodfill(485,480,clbrown); floodfill(620,480,clnavy); end. ошибка которую выдаёт программа - program1.pas(9) : нельзя изменять значение переменной цикла внутри этого цикла

Answer 1

Ошибка, которую "заметил" компилятор, состоит в нарушении запрета на модификацию параметра цикла For в теле цикла. Для Ваших целей надо было использовать цикл с итерацией, например такой:

  r := 460;
  while r >= 100 do
  begin
    circle(620, 480, r);
    r := r - 35
  end;

В соответствии с алгоритмом, программа должна нарисовать концентрические окружности, центр которых имеет координаты 620;480, а радиус уменьшается от 460 до 100 с шагом 35. После окончания рисования производится заливка различными цветами областей, начальные точки которых указаны своими координатами, а границей области является какая-либо ранее нарисованная линия.
Попробуйте выполнить эту программу...