VPF::помогите решить задачу - Форум программистов

_snikers_

Дата 20.8.2004, 15:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Здраствуйте. Нужен ваш совет.
Вот задача: Вычислить кол-во счастливых билетов состоящих их 2*н цифр, у которых сумма первых н цифр равна сумме последних н цифр.
Посоветуйте что-то

gemoglobin

Дата 20.8.2004, 15:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

совет почитай комбинаторику
там это решается запросто
щас уже не помню давно не практиковался

если в лоб то простым перебором

_snikers_

Дата 20.8.2004, 15:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Ну какие же программисты если нету другого срособа. Я этим делал. Попробуйте сами на компе посчитать от1 до100000000

[3Df]Grey DeMonstr

Дата 21.8.2004, 23:29 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 21.8.2004
Где: Москва

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

Берешь массив длиной в максимальную сумму цифр+1 (На примере автобусных билетов - 28). Затем пробегаешь все числа от 1 до N и элемент массива под номером "сумма цифр" увеличиваешь на единицу. Потом каждый элемент возводишь в квадрат и все складываешь.
Если нигде не напутал, то должно работать.

pc_cpu

Дата 21.8.2004, 23:56 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 11.7.2004
Где: г. Фурманов Ивано вской обл.

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

Код

program summa;
   var n:byte;
     n1,i,sum:longint;
     a:array[0..90] of integer;
function sm(k:longint):byte;
   var s:byte;
begin
   s:=0;
   repeat
    s:=s+(k mod 10);
    k:=k div 10;
   until k=0;
   sm:=s;
end;
begin
   readln(n);
   n1:=1;
   for i:=1 to n do n1:=n1*10;
   for i:=0 to n1-1 do
    inc(a[sm(i)]);
   sum:=0;
   for i:=0 to n*9 do inc(sum,a[i]*a[i]);
   writeln(sum);
   readln;
end.

Должно работать. Алгоритм только что описал [3Df]Grey DeMonstr, с чьего позволения я и оставляю сдесь код.

Валентин

Дата 21.10.2004, 21:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всезнающий ALL, помогите решить задачу в Delphi
Задан ориент граф произвольного размера с начальным и конечным узлом. Найти все возможные пути от начального узла к конечному.

Alex

Дата 21.10.2004, 21:19 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Валентин 1 тема, 1 вопрос Правила форума :angry:

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

~FoX~

Дата 22.10.2004, 08:23 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

2Валентин
В алгоритмы залезь, там и про графы и прозадачу коммивояжера куча всего понаписанно

Это сообщение отредактировал(а) ~FoX~ - 22.10.2004, 08:25

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

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

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