Помогите исправить аналог функции Copy на паскале(турбо)

Question

Примечание реализация без дополнительных строк Вот мой код:

function mycopy(s: string; start: byte; len: byte): string;
var
  i: byte;
begin
  s:='';
  i:=1;
  while  (start<=length(s)) do begin
  s:=s+s[start];
  inc(start);
  inc(i);
  end;
  mycopy:=s;
end;

пример запуска:

в отмеченной области должен выводится текст, но как видим ничего выводится.

Answer 1

Ошибок сразу несколько:

Вы сразу заменяете входную строку s: string; пустой строкой s:='';
Вы берёте символ для копирования из самой же результирующей строки s:=s+s[start];
Переменная i инкрементируется, но вообще никак не используется

Исправить ошибку можно если сделать для результата переменную с другим именем, не таким же, как аргумент функции. Наверное, вы можете формировать результат в переменной mycopy, в которой он в итоге и должен оказаться.

БЛОГ НА HUSL

Помогите исправить аналог функции Copy на паскале(турбо)

Ответы (1 шт):