Задать вопрос
7 декабря, 22:29

В чём ошибка программы? Если не сложно объясните.

код программы -

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) : Нельзя изменять значение переменной цикла внутри этого цикла

+4
Ответы (1)
  1. 8 декабря, 01:57
    0
    Ошибка, которую "заметил" компилятор, состоит в нарушении запрета на модификацию параметра цикла For в теле цикла. Для Ваших целей надо было использовать цикл с итерацией, например такой:

    r : = 460;

    while r > = 100 do

    begin

    circle (620, 480, r) ;

    r : = r - 35

    end;

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

    Попробуйте выполнить эту программу ...
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «В чём ошибка программы? Если не сложно объясните. код программы - Program cikl; Uses GraphABC; Var r:Integer; begin for r:=460 downto 100 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике