Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом R c центром с координатами X и Y. N, r, R, X, Y вводятся с клавиатуры. pascal abc
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
