Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.09.2020, 08:55   #11
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

чего мелочиться-то: давайте уж поле не 9x9, а полноэкранный режим, чтоб залипнуть на часик...
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 11.12.2020, 21:38   #12
canadamoscow
Пользователь
 
Аватар для canadamoscow
 
Регистрация: 16.05.2020
Сообщений: 57
По умолчанию

Оптимизация процедуры генерации нового поля
Код:
//генерируем поле с минами и цифрами; (n1, m1) первая открытая клетка "без мины"
procedure GenPole(n1, m1, nbomb: integer);
begin
 SetLength(Pole, n, m);
 Pole.Fill((i,j) -> 0);
//расставляем цифры по полю
 repeat
  var (i,j) := (Random(n), Random(m));
  if (Pole[i,j] = 9) or ((i,j) = (n1,m1)) then continue else Pole[i,j] := 9;
  for var ii := (i-1).ClampBottom(0) to (i+1).ClampTop(n-1) do
   for var jj := (j-1).ClampBottom(0) to (j+1).ClampTop(m-1) do
    if Pole[ii, jj] <> 9 then Pole[ii, jj] += 1; //вокруг мины каждой клетке +1
  nbomb -= 1; 
 until nbomb = 0;      
 t.Start;
end;
canadamoscow вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработать библиотечный модуль, содержащий следующие подпрограммы(PascalABC.NET) Moroshka21 Помощь студентам 0 10.12.2016 17:43
модуль GRAPH: Написать программу построения сегмента и заполнения его некоторым цветом (PascalABC.NET) veronika55214 Паскаль, Turbo Pascal, PascalABC.NET 7 27.02.2014 16:38
Объединить две графические программы в одну. Модуль GraphABC. PascalABC Blatota Помощь студентам 1 19.07.2012 00:50
Поведение System.Timers.Timer Феска C# (си шарп) 3 08.06.2011 18:43
Можно ли к среде PascalABC.NET прикрутить модуль “graph» WitaliG Помощь студентам 0 18.09.2010 08:24