игра "Кости", Зацените Опции

[yazer]

Сделал свою первую игру на Паскале. Зацените.
 BONES.PAS ( 1.15 килобайт ) Кол-во скачиваний: 863

[volvo]

Я бы дальше вот такого, скажем, не пошел... Ухудшается читабельность, потом разбираться придется, КАК оно работало...

uses crt;

procedure Picture(n:integer);
var
  c: char;

  procedure Put(i,j:integer);
  var x, y: integer;
  begin
    X := whereX; Y := wherey;

    GotoXY(x+i,y+j);Write( c );

    GotoXY(X, Y);
  end;

var
  i: integer;
const
  coord: array[1 .. 3] of integer = (1, 5, 3);

begin
  c:='|';
  for i:=1 to 5 do begin
    Put(0,i);Put(8,i)
  end;
  c:='-';
  for i:=1 to 7 do begin
    Put(i,0);Put(i,6)
  end;
  c:='0';
  repeat

    if odd(n) then Put(4, 3)
    else begin
      Put(2, coord[n div 2]); Put(6, 6 - coord[n div 2]);
    end;
    n := 2 * (pred(n) div 2);

  until n=0
end;

var
  i:integer;

begin
  ClrScr;
  for i:=1 to 6 do begin
    GoToXY(i*12-10,i*3);
    Picture(i)
  end;
  readKey
end.

[Lapp]

Я бы дальше вот такого, скажем, не пошел... Ухудшается читабельность, потом разбираться придется, КАК оно работало...

Абсолютно согласен, и тут два вывода: либо снабдить подробнейшими комментариями, либо уже ничего не менять, а пользоваться так ))