Сапер: теория и практика Опции

[Vinchkovsky]

Здравствуйте
В общем, пишу сапер на Паскале, исключительно сам (впрочем, до этого момента), "от нечего делать", с псевдографикой и без использования приемов ООП.
Возникли два вопроса совершенно разного рода.

1) На поле есть такая ситуация (создавал в Paint, правя другое расположение мин, так что если есть какие-то несоответствия - извиняйте. Отдельное извинение за качество, случайно сохранил в .джпг, что мог - то подправил. Ну и английский ):


Допустим, все клетки поля не раскрыты. После нажатия клетки, которая "в фокусе" (выделенная зеленым), как должны открыться клетки? У меня варианта три:

Склоняюсь в верхнему справа, а что думаете вы?

2) Как можно гибко менять размеры окна (не в полноэкранном режиме)? Как я понял, с помощью процедуры TextMode гибкости не получить, я прав?

Спасибо

Сообщение отредактировано: volvo - 18.02.2009 23:03

[Lapp]

как генерируется поле?

Спасибо за вопрос, Clerick! Я как-то раньше не задумывался - плевал, пока не заплюю, с проверкой на повторы.. Но это же жутко неэффективно! Вот, задумался - результат тут:

const
  n=10;

var
  a: array[1..n]of integer;
  i,k: integer;

begin
  WriteLn('Total cells:  n=',n);
  Write('Type in number of cells to fill in (k<=n):  k=');
  ReadLn(k);
  Randomize;
  for i:=1 to n do if Random <= k/(n-i+1) then begin
    a[i]:=1;
    Dec(k)
  end
  else a[i]:=0;
  for i:=1 to n do Write(a[i]);
  ReadLn
end.

Алгоритм совсем простой - все заполняется за один проход )). И его легко распространить на двумерные массивы. Если что неясно - всегда к вашим услугам, как грится