Графика Паскаля

[netbioz]

Помогите решить эту задачку :

Построить группу кол заданного радиуса, центра которых равномерно смещении от общего центра по N направлениях. Количество по всем направлениям одинакова и равняется K.

Вот что должно выйти

[Stilet]

Паскаля под рукой нет, но механизм вычислений вот покажу:

const rad=50;
var b,a:Double;k,x,y,cx,cy,i:integer;
begin
 i:=5;b:=2*pi/i;
 a:=0;
 with Canvas do begin
 Brush.Style:=bsClear;
  while a<(2*pi) do begin
  cx:=400;
  cy:=400;
   for k:=1 to 5 do begin
    x:=Round(20*k*COS(a));
    y:=Round(20*k*SIN(a));
    Ellipse(cx+x-rad,cy+y-rad,cx+x+rad,cy+y+rad);
   end;
     a:=b+a;
  end;
 end;
end;

[netbioz]

Сообщение от Stilet

Паскаля под рукой нет, но механизм вычислений вот покажу:

const rad=50;
var b,a:Double;k,x,y,cx,cy,i:integer;
begin
 i:=5;b:=2*pi/i;
 a:=0;
 with Canvas do begin
 Brush.Style:=bsClear;
  while a<(2*pi) do begin
  cx:=400;
  cy:=400;
   for k:=1 to 5 do begin
    x:=Round(20*k*COS(a));
    y:=Round(20*k*SIN(a));
    Ellipse(cx+x-rad,cy+y-rad,cx+x+rad,cy+y+rad);
   end;
     a:=b+a;
  end;
 end;
end;

а как это подогнать под Паскаль ? а то я в этом не бум бум

что делать с этим кодом ? помогите ...

uses crt,graph;
const rad=10;
var b,a:Double;k,x,y,cx,cy,i,driver,mode:integer;
begin
 driver:=detect;
 initgraph(driver,mode,'e:\pascal\bp-2\bgi');
 i:=5;b:=2*pi/i;
 a:=0;


  while a<(2*pi) do
  begin
  cx:=100;
  cy:=100;
   for k:=1 to 5 do begin
    x:=Round(10*k*COS(a));
    y:=Round(10*k*SIN(a));
    Ellipse(cx+x-rad,cy+y-rad,0,360,cx+x+rad,cy+y+rad);
   end;
     a:=b+a;
     end;
readln;
  closegraph;
 end.

вот изменил , а оно рисует не то что надо ... помогите

[Kravec]

так не правильный код , тут правь не правь , а новый писать надо

[netbioz]

Сообщение от Kravec

так не правильный код , тут правь не правь , а новый писать надо

ну помогите сделать правильно ....будьте добры

[Kravec]

вот прога , думаю что так должно быть

uses crt,graph;
const
  rad = 50;
  b   = 2*pi/5;
var
  a: Double;
  k,x,y,cx,cy,
  driver,mode:integer;
begin
  driver:=detect;
  initgraph(driver,mode,'e:\pascal\bp-2\bgi');
  a := 0;
  while a<(2*pi) do begin
    cx:=getmaxx div 2;
    cy:=getmaxy div 2;
    for k:=1 to 10 do begin
      x:= Round(10*k*COS(a));
      y:= Round(10*k*SIN(a));
      Ellipse(cx+x-rad,cy+y-rad,0,360, rad, rad);
   end;
   a:=b+a;
  end;
  readln;
  closegraph;
end.

[Stilet]

Вот паскаль достал )

uses graph;
const rad=50;
var b,a:Double;k,x,y,cx,cy,i:integer;
begin
 i:=detect;
 initgraph(i,x,'');
 i:=5;b:=2*pi/i;
 a:=0;
  while a<(2*pi) do begin
  cx:=400;
  cy:=400;
   for k:=1 to 5 do begin
    x:=Round(20*k*COS(a));
    y:=Round(20*k*SIN(a));
    Circle(cx+x,cy+y,rad);
   end;
     a:=b+a;
  end;
  readln;
  closegraph;
end.