Помогите решить ПОЖАЛУЙСТА
Задавая с клавиатуры начальные координаты, начальный, конечный радиус и цвет, нарисовать окружность начального радиуса, символами “$” и увеличивать ее до конечного радиуса. Рисование окружности (с заданными параметрами) выполнить в процедуре. Для установки курсора в заданные координаты, использовать GotoXY(Y,X) из модуля Crt.
Геометрия в школе была?
Sqr(x-x0)+Sqr(y-y0)=Sqr® - уравнение окружности.
Можно попробывать что-то типа рисования окружностей с радиусами от начаьного до конечного воспользовавшись тем, что
y1 = y0 + Sqrt(Sqr®-Sqr(x-x0))
y2 = y0 - Sqrt(Sqr®-Sqr(x-x0))
можно по подробнее а то я не догоняю
В цикле перебираешь радиусы от минимального до максимального. Для каждого радиуса двигаясь от точки x0-r до x0+r вычисляешь y1 и y2. Делаешь GoToXY(x,y1), малюешь там $, затем в (,y2) тоже самое. Двойной цикл получится.
Попробовал чё то не получается