Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10, 20, 30, 40, 50 (примените команду For)
Составьте программу рисования окружностей с центром в точке (200,200) и радиусами 10, 20, 30, 40, 50 (примените команду For)
Гость
Ответ(ы) на вопрос:
Гостьпредлагаю решение на Бейсикеfor r=10 to 50 step 10circle (200,200),r,5next r
Гость//PascalABC.NET 3.2 сборка 1318
uses
GraphABC;
Var
i:integer;
begin
for i:=5 downto 1 do
circle(60,60,i*10);
end.
Не нашли ответ?
Похожие вопросы