IPB
ЛогинПароль:

> надо написать Идея описания решение, и я не очень понял саму задачку
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


Задачка
Дано 100 карточек выложенные в строку. На каждой карточке написано по одной цифре. Можно или нельзя выложить так карточки чтобы не одно число не было на том же самом месте? Надо найдите хотя бы один вариант расположения карточек.
Напишите решения идеи описание.
Объясните задачку и как пишется эта идея. Или тут надо алгоритм написать? И еще будит ли перестановка засчитана если поменяем два одинаковых числа местами?

Моя идея
Проверить на одинаковые цифры рядом и их переместить одну на -1 позицию и потом заного проверить если есть еще такие числа и потом все числа сдвинуть влево на одну позицию.


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Рекурсия? smile.gif
const
n=100; {number of cards}
m=9; {maximum digit used, starting with 0}

type
tLayout= array[1..n]of byte;

var
Ini,Res: tLayout;
Cards: array[0..m]of integer;

function Arrange(k: integer): boolean;
var
i: byte;
f: boolean;
begin
f:= false;
i:= 0;
repeat
if (i<>Ini[k])and(Cards[i]>0) then begin
Res[k]:=i;
Dec(Cards[i]);
f:=(k=n)or Arrange(k+1);
Inc(Cards[i]);
end;
Inc(i)
until f or(i>m);
Arrange:= f
end;

var
i: integer;

begin
for i:= 1 to n do Ini[i]:= Random(m+1);
for i:= 1 to n do Write(Ini[i],' ');
WriteLn;
for i:= 0 to m do Cards[i]:= 0;
for i:= 1 to n do Inc(Cards[Ini[i]]);
if Arrange(1) then for i:= 1 to n do Write(Res[i],' ') else Write('No way');
WriteLn;
ReadLn
end.

2 maksimla: спрашивай, что неясно.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 14.05.2024 13:11
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name