KANAP074.PAS

{ MK 2001                    }
{ Mantas Kanaporis           }
{ Vilniaus Ïemynos gimnazija }
{ -------------------------- }
{ VII skyrius                }
{ 4 uØdavinys                }

program kanap074;

uses
  graph;

const
  cx = 319;        { rago centro koordinatÓ }
  cy = 239;        { rago centro koordinatÓ }

var
  gm, gd : integer;

{ Proced×ra pieÕia raga.
  Parametrai:
  | Rratas - apskritimo, kuriuo iÕsidÓstÒ kiti apskritimai, spindulys
  | Rdidz - didØiausio (pradinio) apskritimo spindulys }
Procedure Ragas (Rratas, Rdidz : integer);
var
  x, y,                        { kiekvieno apskritimo centro koordinatÓs }
  ck : integer;                { pagalbinis ciklo kintamasis }
  r,                           { pieÕiamo apskritimo spindulys }
  maz : real;                  { spindulio maØinimo Øingsnis }
begin
  maz := Rdidz / 60;           { kas kiek maØÓs spindulio ilgis }
  r := Rdidz;                  { pieÕim didziausia apskritima }
  for ck := 0 to 59 do         { pieÕime apskritimus kas 6 laipsnius }
  begin                        { skaiÑiuojamos kito apskr. koordinatÓs }
    x := cx + round (Rratas * cos (ck * 6 * pi / 180));
    y := cy + round (Rratas * sin (ck * 6 * pi / 180));
    circle (x, y, trunc (R));
    R := r - maz;              { kito apskr. spindulys }
  end;
end;

begin
  initgraph (gm, gd, '');

  ragas (100, 100);

  repeat until port [$60] = 1;     { laukiam Esc paspaudimo }
  closegraph;
end.