brother - кодирование это взять chr от числа?

> brother, алгоритм программы таков:

это ты мне рассказываешь?

Я тебе его привел, чтобы ты просмотрел, буде у тебя возникнет все же желание помочь и ткнул носом в ошибки алгоритма.

Меня ткнул носом, ессно.

> и ткнул носом в ошибки алгоритма.

ого О_о

И все-таки...

brother, давай я напишу измененный текст процедуры, а ты посмотришь его? Пожалуйста.

давай без давай? ;))))
зы пробуй)))

procedure TForm1.makecomb(s: string);
var i:integer;
   res:string;
begin
for I := 64 to 67 do
begin
 if i<>64 then
  res := s + chr(i);
 memo1.Lines.Add(res);
end;
inc(counter);
if counter>3 then exit;
makecomb(res);
end;

эта процедура неверна, но уже что-то. Она выдает

(пустая строка)
A
B
C

CA
CB
CC

CCA
CCB
CCC

> какие правила кодирования?


Оч простые : нулевому значению N-ричного разряда соответствует символ 'A', единичному значению - 'B', двойке - 'C', .. и т.д.

> Откуда вы вообще взяли, что здесь должно быть кодирование?


Ты с дуба упал ?

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

Вот эта самая '10' и есть результат кодирования того что ты насчитал)

Я понимаю, почему процедура выдает неверный результат. Рекурсия должна вызываться иначе. Но как?

А мог, кстати, записать 'X', или '12', или '1010', или 'A', или '100' - и все записи будудт верными, и все они еть результат кодированного представления "десятки" в той или иной СС !!!

Сергей, рассмотри мой вариант с рекурсией.

Зачем ?
К решению задачи эти потуги отношения не имеют.

А если я хочу решить эту задачу с помощью рекурсии?

А если я хочу решить эту задачу с помощью рекурсии?

Решай)
Я разве против ?
Но способствовать ничем не оправданному ослиному упрямству у меня желания нет.

Для иследования рекурсии необходимы:
1. View, Debug Windows, Call Stack
2. Клавиша F7
3. Клавиша Shift+F8

Имеются?

Твой вариант, с кодированием, мне кажется довольно сложным. Разве рекурсия не будет проще?