Дан символ C и строка S. Удвоить каждое вхождение символа C в строку S. (делфи7)

[nadyaH]

CopyStringWithDuplicate

как работает эта часть программы?
программа выдаёт не правильный ответ.
я поняла что смысл задачи такой:
ввожу символ : р
и слово : пророк
ответ :прроррок.

[Serge_Bliznykov]

Сообщение от nadyaH

CopyStringWithDuplicate

как работает эта часть программы?

Вызывается функция с двумя параметрами.
В самой функции создаётся новая строка (это переменная result - переменная, которая означает возвращаемое значение, раз у нас функция типа string function .... : string, то и эта переменная типа string - эта переменная создаётся автоматически в Delphi) , куда переписываются (в цикле) символы исходной строки. При этом выполняется проверка, если символ исходной строки равен второму параметру функции, то в выходную строку он добавляется ДВА раза (вместо result:=result+c+c
можно написать и result:=result+s[i]+s[i] - т.к. s[i] у нас равно с, то это даст абсолютно идентичный результат).
Ещё вопросы?

Сообщение от nadyaH

программа выдаёт не правильный ответ.
я поняла что смысл задачи такой:
ввожу символ : р
и слово : пророк
ответ :прроррок.

Вы правильно поняли.

вот только не обратили внимание на:

function CopyStringWithDuplicate ( const S : string; const C : string ) : 
...
edit3.Text:= CopyStringWithDuplicate( Edit1.Text, Edit2.Text);

первым параметром идёт строка S, вторым - нужный символ C
поэтому нужно в Edit1 занести слово (например, пророк)
а в Edit2 - нужный символ (например, р)
в Edit3 получится результат - строка с продублированным символом.