Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом)

@AlenaPark · Регистрация: 21.02.2016

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

Помогите с контрольной: Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом). (Free Pascal)

@Joy · 10.03.2016, 13:19

Pascal

uses Graph;
const N=15;
var
  gd,gm,i,r,c:integer;
begin
   randomize;
   gd:=detect; 
   gm:=0; 
   InitGraph(gd,gm,'');
   if GraphResult<>grok then
     halt;
   for i:=1 to N do begin
     c:=random(16);
     r:=random(GetMaxY div 10)+5;
     SetColor(c);
     SetFillStyle(SolidFill,c);
     FillEllipse(Random(GetMaxX),Random(GetMaxY),r,r);
   end;
   readln;
   CloseGraph;
end.

@volvo · 10.03.2016, 15:36

Окружности - это Circle, через FillEllipse рисуются круги.

@Puporev · 10.03.2016, 16:19

Pascal

uses graph,wincrt;
var n,i,x,y,r,c:integer;
begin
randomize;
write('n=');
readln(n);
x:=0;
initgraph(x,y,'');
for i:=1 to n do
 begin
  r:=random(100)+20;
  x:=random(getmaxX-2*r)+r;
  y:=random(getmaxY-2*r)+r;
  c:=random(15)+1;
  setcolor(c);
  Circle(x,y,r);
 end;
readkey
end.

@Joy · 10.03.2016, 18:19

точно, окружность с кругом перепутал! спасибо, что на путь истинный направили

@AlenaPark 1 / 1 / 0 Регистрация: 21.02.2016 Сообщений: 43
		1
	Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом) 10.03.2016, 12:01. Показов 2879. Ответов 4 Метки нет (Все метки) Помогите с контрольной: Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом). (Free Pascal) 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	10.03.2016, 15:36	3
	Окружности - это Circle, через FillEllipse рисуются круги. 1

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	10.03.2016, 18:19	5
	точно, окружность с кругом перепутал! спасибо, что на путь истинный направили 0

Вывести на экран N окружностей (координаты центра, цвет, радиус окружности генерируются случайным образом)

Решение