VPF::Игра "пятнадцать" - Форум программистов

Чуччи

Дата 5.11.2010, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

“Игра пятнадцать”. На квадратном поле размерностью 4 х 4 с помощью датчика случайных чисел расставлены 15 фишек с номерами от 1 до 15. Имеется одна свободная позиция. Расставить фишки по возрастанию их номеров. Передвигать фишки можно только на соседнюю свободную позицию. В паскале

прошу помочь((( smile

Чуччи

Дата 7.11.2010, 18:14 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

нуууууу людиииииии

Это сообщение отредактировал(а) Чуччи - 7.11.2010, 18:15

Данкинг

Дата 7.11.2010, 18:24 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Что не получается?

--------------------

There's nothing left but silent epitaphs.

Чуччи

Дата 8.11.2010, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

всеееее, генератор беру рандамайз, а он повторяет числа а надо строго от 1 до 15 не повторяясь

~FoX~

Дата 8.11.2010, 19:48 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

randomize воткни где нибудеь перед вызовом Random(16)-1
А вообще ты бы хоть код показал...

--------------------

…множественность никогда не следует полагать без необходимости…

Чуччи

Дата 9.11.2010, 20:08 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

нету кода, не могу думать

Добавлено через 53 секунды
smile

Добавлено через 4 минуты и 2 секунды
program щщщщ;
const n=4;
var a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
randomize;
for i:=1 to n do
begin
      for j:=1 to n do
        begin

             a[i,j]:=random(16)-1;
             write(a[i,j]);
        end;
     writeln;

end;

begin
for i:=1 to n do
for j:=1 to n do
if a[i,j]<a[i,j+1] then
k:=a[i,j];
a[i,j+1]:=k;

end;
end.

volvo877

Дата 13.11.2010, 17:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(~FoX~ @ 8.11.2010, 18:48

)

randomize воткни где нибудеь перед вызовом Random(16)-1

Это не запретит Random-у сгенерировать несколько раз одно и то же число.

Чуччи, заполнение можешь сделать так:

Код


const
  n = 4;
var
  a: array[1..n, 1..n] of integer;

  i, j: integer;
  X: byte;
  s: set of byte;

begin
  randomize;
  s := [1 .. 15];
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      repeat
        X := random(15) + 1;
      until (X in s);
      exclude(S, X);
      a[i,j] := X;

      write(a[i,j]:5);
      if s = [] then break;
    end;
    writeln;
  end;
end.

Дальше будешь начинать думать, или перенести в Центр помощи ?

Чуччи

Дата 14.11.2010, 00:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 5.11.2010

Репутация: нет
Всего: нет

volvo877, спасибо, буду щас над программой думать

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »