VPF::Работа с файлами - Форум программистов

OuTLaWGreed

Дата 18.12.2018, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 18.12.2018

Репутация: нет
Всего: нет

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

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

Hiori

Дата 27.12.2018, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 29.3.2016

Репутация: нет
Всего: нет

Цитата

Описать и проверить работу процедуры 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;

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »