Нужна такая прога:)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Bayazid, 14 Jan 2009.

  1. Bayazid

    Bayazid Banned

    Joined:
    26 Nov 2005
    Messages:
    141
    Likes Received:
    24
    Reputations:
    -2
    Срочно нужно создать програмку. Кто может, буду очень благодарен.

    Задача следующая...


    1 7
    2 8
    3 9
    4 10
    5 11
    6 12

    Из каждого ряда можно взять одну цифру и составить всевозможные варианты... Например, 1.2.3.4.5.6 - это один вариант, 1.2.3.4.5.12 - это другой вариант , 1.2.3.4.11.6 ну и т.д. грамотность написания программы не нужна, главное написать всевозможные варианты, т.е. результат... Очень надо... Отблагодарю огромным количеством репутаций.

    И еще:) Было бы отлично, если можно будет в программу ввести количество чисел (в нашем случае их 12) построенные в два столбца (как в нашем случае) и выводить результат по выше приведенному алгоритму...
    Буду просто счастлив ...

    Спасибо за внимание.
     
  2. crystalbit

    crystalbit Elder - Старейшина

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    88
    Reputations:
    8
    накалякал)
    вроде то что надо
    тыц
    (с исходниками на дельфи)

    запускаешь, вводишь n - общее количество чисел (в обоих столбцах)
    при n=10, n=20 достаточно быстро
    если 30, то ждать секунд 20, чем больше - тем дольше, в геометрической прогрессии

    потом всё в файле out.txt
     
    1 person likes this.
  3. Bayazid

    Bayazid Banned

    Joined:
    26 Nov 2005
    Messages:
    141
    Likes Received:
    24
    Reputations:
    -2
    Спасибо...
    Не мог бы ты немножко усовершенствовать его?))

    Тоже самое для 3 столбцов можно?)
     
  4. MongBa†

    MongBa† Banned

    Joined:
    16 May 2008
    Messages:
    13
    Likes Received:
    9
    Reputations:
    0
    держи 3 столбца..
    Кстати, хорошая реализация, все четко, ничего лишнего..
    Можно было бы без использования компонента

    with TStringList.Create do begin
    Text:=s;
    SaveToFile('out.txt');
    Free;
    end;

    на

    assignfile(fil,'out.txt');
    rewrite(fil);
    write(fil,s);
    closefile(fil);
    // добавить в var - fil:text;

    Но эт чисто символически или под Паскаль ..
     
    2 people like this.
  5. crystalbit

    crystalbit Elder - Старейшина

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    88
    Reputations:
    8
    клац
    для произвольного количества столбцов, вдруг завтра уже для четырех понадобится))
    вводим сначала общее количество элементов n, потом количество столбцов m
    если n не делится на m, остаток отбросится
    [от лишних модулей SysUtils и Classes избавился]

    upd
    точняк, исправил ссылку
     
    #5 crystalbit, 15 Jan 2009
    Last edited: 15 Jan 2009
    1 person likes this.
  6. Bayazid

    Bayazid Banned

    Joined:
    26 Nov 2005
    Messages:
    141
    Likes Received:
    24
    Reputations:
    -2
    MongBat, спасибо... пригодилось.

    Crystalbit, ты на слово ''клац'' не ту ссылку вставил :)