Построить n концентрических окружностей с общим центром в точке (х, у)

@Nasy · Регистрация: 13.06.2014

Студворк — интернет-сервис помощи студентам

Помоги пожалуйста!

Даны натуральные числа n, x, y, r₁, c₁, r₂, c₂, ..., r_n,c_n. Построить n концентрических окружностей с общим центром в точке (х, у), имеющих радиусы r₁, ..., r_n и окрашенных в цвета c₁, c₂, ..., c_n.

Заранее всем огромное спасибо!!!

@Puporev · 13.06.2014, 16:17

Pascal

uses graph;
const nmax=50;
var g,d,n,i:integer;
    x,y,r,c:array[1..nmax] of integer;
begin
repeat
write('1<n<=',nmax,' n=');
readln(n);
until n in [2..nmax];
randomize;
initgraph(g,d,'');
for i:=1 to n do
 begin
  r[i]:=5+random(50);
  x[i]:=r[i]+random(640-2*r[i]);
  y[i]:=r[i]+random(480-2*r[i]);
  c[i]:=1+random(15);
  setcolor(c[i]);
  circle(x[i],y[i],r[i]);
 end;
readln
end.

@Nasy 0 / 0 / 0 Регистрация: 13.06.2014 Сообщений: 12
		1
	Построить n концентрических окружностей с общим центром в точке (х, у) 13.06.2014, 16:04. Показов 2939. Ответов 1 Метки нет (Все метки) Помоги пожалуйста! Даны натуральные числа n, x, y, r₁, c₁, r₂, c₂, ..., r_n,c_n. Построить n концентрических окружностей с общим центром в точке (х, у), имеющих радиусы r₁, ..., r_n и окрашенных в цвета c₁, c₂, ..., c_n. Заранее всем огромное спасибо!!! 0

Опции темы

Построить n концентрических окружностей с общим центром в точке (х, у)

Решение