DrakonDi.pas

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

program Drakonas;

uses
  graph;

Const
  cx = 400;                                 { centro koordinatÓ }
  cy = 350;                                 { centro koordinatÓ }
  ln = 1;                                   { linijos ilgis }
  l = 18;                                   { laipsnis, max 31 }
  kryptys : array [0 .. 3, 0 .. 1] of shortint = { judÓjimo kryptys }
          ((0, -ln), (-ln, 0), (0, ln), (ln, 0));

var
  x, y,                                 { linijos pabaigos koordinatÓs }
  gm, gd : integer;
  ck,                                   { pagalbinis ciklo kintamasis }
  sk,                                   { nagrinÓjamas skaiÑius }
  n : longint;                          { kuria kryptimi brÓÕim linijÐ }

{ Funcija randa laipsnÔ, kuriuo pakÓlus 2, rezultatas butu kiek galima
  maØiau didesnis arba lygus pradiniui duomeniui }
function didz (sk : longint) : longint;
var
  pg : longint;
begin
  pg := 1;
  while sk div pg > 0 do
  if sk = pg then break
             else pg := pg shl 1;
  didz := pg;
end;

begin
  initgraph (gd, gm, '');
  setcolor (7);
  x := cx;
  y := cy;
  moveto (x, y);

  sk := 1 shl (l - 1);        { kiek viso skaiÑiu sudarys l laipsnio kreivÒ }
  for ck := 1 to sk do
  begin
    sk := ck;
    n := 1;
    { skaiÑiavimas ck elemento krypties }
    while sk <> 1 do
    begin
      sk := didz (sk) - sk + 1;
      inc (n)
    end;
    n := (n - 1) mod 4;
    { pieÕimas }
    x := x + kryptys [n, 0];
    y := y + kryptys [n, 1];
    lineto (x, y);
  end;

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