Вопрос по информатике:
Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом R c центром с координатами X и Y. N, r, R, X, Y вводятся с клавиатуры. pascal abc
- 12.08.2015 18:00
- Информатика
- remove_red_eye 17295
- thumb_up 49
Ответы и объяснения 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.
- 12.08.2015 23:38
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.