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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.04.2013, 07:48   #21
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Как-то Вы очень быстро перешли от задачи к "загвоздке" и от "загвозди" к новой задаче (координально отличающейся от первоначальной!)
Poma][a вне форума Ответить с цитированием
Старый 24.04.2013, 08:55   #22
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Poma
[a] от "загвозди" к новой задаче (координально отличающейся от первоначальной!)
Poma][a,согласен!

MagAragorn, Вам не кажется, что новая задача не вписывается в старую тему и, следовательно, нужно создать новую тему под неё?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 24.04.2013, 10:14   #23
MagAragorn
Пользователь
 
Регистрация: 22.04.2013
Сообщений: 25
По умолчанию

Да,конечно,простите.
MagAragorn вне форума Ответить с цитированием
Старый 24.04.2013, 13:09   #24
1mutant1
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 18
По умолчанию

Даже для старой задачи, программа работает не корректно при выводе результатов решений.
При: 3 3
1 2 0
будет вывод
1+2=3
1+2=3
1+2=3
1+2=3
а имхо должно
1+2=3
2+1=3
а если бы она работала корректно то туда можно было вписать цвета..... хотя конечно ТС перемудрил
возможно я и не прав

Последний раз редактировалось 1mutant1; 24.04.2013 в 13:43.
1mutant1 вне форума Ответить с цитированием
Старый 24.04.2013, 14:57   #25
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Даже для старой задачи, программа работает не корректно при выводе результатов решений.
Да. Т.к. ноль нам не интересен, то и продумывать случаи с ним я не стал Конечно можно удалять его из массива, но ИМХО игра не стоит свеч..
Poma][a вне форума Ответить с цитированием
Старый 24.04.2013, 15:24   #26
1mutant1
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
ноль нам не интересен
и без ноля она работает не корректно.
при 3 2
1 2
будет
1+2=3
1+2=3
......
а вроде надо
1+2=3
2+1=3
1mutant1 вне форума Ответить с цитированием
Старый 24.04.2013, 16:17   #27
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Спасибо! Признаю, мой косяк
Исправил :
Код:
type
        TSol = array [1..100] of Integer;

var
        n, m : Integer;
        a : array [1..100] of Integer;

procedure Solution (cnt, sum : Integer; b : TSol);
var
        i, j : Integer;
        flag : Boolean;

begin
        if sum = n then  begin
                for i := 1 to cnt-1 do
                       Write (b[i], '+');
                WriteLn(#8, ' = ', n);
                Exit
        end;


        if cnt > m then
                Exit;

        for i := 1 to m do begin
                flag := FALSE;
                for j := 1 to m do
                        if b[j] = a[i] then
                                flag := TRUE;
                if flag then
                        Continue;

                b[cnt] := a[i];
                Solution (cnt+1, sum + a[i], b);
                b[cnt] := 0
        end;

end;

var
        b : TSol;
        i, cnt : Integer;

begin
        ReadLn (n, m);

        for i := 1 to m do
                Read (a[i]);

        cnt := 1;
        for i := 1 to m do begin
                b[cnt] := a[i];
                Solution (cnt+1, a[i], b);
                b[cnt] := 0
        end
end.
Poma][a вне форума Ответить с цитированием
Старый 25.04.2013, 10:01   #28
1mutant1
Пользователь
 
Регистрация: 23.04.2013
Сообщений: 18
По умолчанию

Цитата:
Сообщение от 'Poma
Спасибо! Признаю, мой косяк
Да, не за что, только при данных 3 3 1 1 1 пустой вывод. Я малость сам пошаманил вроде задачу про отрезки довёл до ума
1mutant1 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Данное натуральное число N. Используя только элементарные арифметические операции (+, -, *, /) SystemsS Visual C++ 0 06.02.2013 12:43
Данное натуральное число N и действительные, не равны нулю числа a1, ., aN SystemsS Visual C++ 0 06.02.2013 12:42
Дано n вещественных чисел а1, а2,…,аn. Определите число соседств двух чисел разного знака (Паскаль) bambam Помощь студентам 1 29.11.2011 11:36
Определить является ли данное число совершенным.. Паскаль. Karabas Помощь студентам 6 23.12.2008 21:53
Из двух натуральных чисел, составить наибольшее число, сохраняя первоначальную последовательность.Паскаль Omedus Помощь студентам 8 19.11.2007 22:02