Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом...

Question

Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом R c центром с координатами X и Y. N, r, R, X, Y вводятся с клавиатуры. pascal abc

Answer 1

Program Krugi; 

Uses Crt,GraphABC;
var i,X,Y,RMax,RMin,N:integer;
begin
clrscr;
write('Количество окружностей:');
readln(N);
write('Введите X:');
readln(X);
write('Введите Y:');
readln(Y);
write('Введите Максимальный радиус:');
readln(RMax);
write('Введите Минимальный радиус:');
readln(RMin);

SetWindowSize(800,600);
for i:=RMax downto RMin do
   begin
       if n=0 then break;
       if (n=1) then circle(X,Y,RMin) else
           circle(X,Y,i);
           i:=i-5;
          n:=n-1;
       end;
end.