Текущий архив: 2003.10.13;
Скачать: CL | DM;

Вниз

---!! Перебор символов !! ---   Найти похожие ветки 

← →
N0wheremany ©   (2003-10-02 10:38) [0]

Есть стока символов, максимольное выходное число символов (length) и минимальное!
Как осуществить перебор символов?
Пример:
строка 3123
мин 1
max 2

out

3
1
2
3
33
31
32
33 < что это убиралось
13
11
12
13 < и это тоже
..

---

← →
Woolen   (2003-10-02 10:50) [1]

Еще раз можно, только не так сумбурно?

---

← →
VAleksey ©   (2003-10-02 10:53) [2]

Rpocedure PereborStroki(const str:String)
Var
Ch:Char;
begin
for i:=1 to Length(Str) do
begin
Ch := Str[i];
....
// Делаем то что нужно
....
end;
end;

---

← →
han_malign ©   (2003-10-02 10:58) [3]

>Еще раз можно, только не так сумбурно?
- Дубли ему нужно выкидавать, из чисел, составленных из всех комбинаций заданных цифр.

З.Ы.
>N0wheremany ©
- Тебе задали - ты и думай, а мне в лом, мне в школе и в институте это уже обрыдло, да и работать надо...

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.035 c