Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Работа с файлами

Автор: OuTLaWGreed 18.12.2018, 23:08

type текст= file of char;
Описать и проверить работу процедуры replace(t,c), заменяющей последнюю литеру непустого текста t на литеру с.

Помогите сделать работу. Заранее спасибо за помощь!

Автор: Hiori 27.12.2018, 08:25

Цитата

Описать и проверить работу процедуры replace(t,c), заменяющей последнюю литеру непустого текста t на литеру с.

ааа... поясните, пожалуйста, причем тут file of char?

по поводу процитированного текста (проверка только ради Вашего условия непустого текста):

Код

function replace( source: string; ch: Char ): string;
begin
    Result := '';
    if( Length( source ) > 0 )then
        Result := Copy( source, 1, Length( source ) - 1 ) + ch;
end;

если есть конкретное ТЗ от преподавателей - выкладывайте, всем будет гораздо проще