Преобразования слова в другое

@sitler · Регистрация: 27.03.2016

Студворк — интернет-сервис помощи студентам

Составить программу, преобразующую слово 'Перепелица' в слово 'Пепел'.

Допустимые процедуры и функции:
- Процедуры: Delete, Insert, Str, Val
- Функции: Copy, Concat, Lenght, Pos, UpCase

@Puporev · 30.03.2016, 20:14

Pascal

1
2
3

s:='Перепелица';
delete(s,8,3);
delete(s,3,2);

@ВитГо · 31.03.2016, 07:37

угу, только в лазарусе наверное лучше использовать UTF8Delete иначе эффект будет как я уже описывал в Перебор символов строки в цикле

p.s. а вот в Delphi процедуры copy/delete/insert с UTF работают нормально (Учитывают что некоторые символы состоят из двух байт)

@sitler 0 / 0 / 0 Регистрация: 27.03.2016 Сообщений: 37
		1
	Преобразования слова в другое 30.03.2016, 19:45. Показов 932. Ответов 2 Метки нет (Все метки) Составить программу, преобразующую слово 'Перепелица' в слово 'Пепел'. Допустимые процедуры и функции: - Процедуры: Delete, Insert, Str, Val - Функции: Copy, Concat, Lenght, Pos, UpCase 0

@ВитГо 74 / 65 / 12 Регистрация: 09.02.2016 Сообщений: 880 Записей в блоге: 16
	31.03.2016, 07:37	3
	угу, только в лазарусе наверное лучше использовать UTF8Delete иначе эффект будет как я уже описывал в Перебор символов строки в цикле p.s. а вот в Delphi процедуры copy/delete/insert с UTF работают нормально (Учитывают что некоторые символы состоят из двух байт) 0

Опции темы