Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 58
1

Дано слово. Переставить его s букву

26.12.2013, 10:26. Показов 1267. Ответов 1
Метки нет (Все метки)

Дано слово. Переставить его s-ю букву на место k-й (s > k). При этом k-ю,
(k +1)-ю, …, (s-1)-ю буквы сдвинуть вправо на одну позицию.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2013, 10:26
Ответы с готовыми решениями:

Дано слово. Переставить его первую букву на место последней
Дано слово. Переставить его первую букву на место последней.

Строки. Дано слово, переставить его букву с номером S после номера K
Дано слово ,переставить его букву с номером S после номера K?

Дано слово переставить его последнею букву на место первой при этом первая в вторая буква и т.д. сдвигается вправо.
Дано слово переставить его последнею букву на место первой при этом первая в вторая буква и т.д....

Дано слово. Переставить его последнюю букву на место k-й. При этом k-ю, k+1-ю, …, предпоследнюю буквы сдвинуть вправо на одну позицию.
Помогите пожалуйста с задачей: Дано слово. Переставить его последнюю букву на место k-й. При этом...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,637
Записей в блоге: 7
26.12.2013, 13:53 2
Лучший ответ Сообщение было отмечено volvo как решение

Решение

На форме - 3 Edit-а (первый - сама строка, второй - значение s, третий - значение k), и кнопка вот с таким обработчиком нажатия:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
  st, sub: string;
  s, k: integer;
begin
  st := Edit1.Text;
  s := StrToInt(Edit2.Text);
  k := StrToInt(Edit3.Text);
 
  sub := UTF8Copy(st, s, 1);
  UTF8Delete(st, s, 1);
  UTF8Insert(sub, st, k);
  ShowMessage('Результат: ' + st);
end;
На ошибки (неправильно введенное число, значения s и k, большие чем длина строки, и т.д.) не проверял... Если все вводить правильно - должно работать... Не забудь подключить LCLProc, я раньше показывал, как это сделать...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2013, 13:53

Дано слово. Переставить в обратном порядке его буквы.
Дано слово. Переставить в обратном порядке его буквы.

Дано слово из 12 букв. Переставить его буквы особым способом
Дано слово из 12 букв. Переставить его буквы следующим способом: первая, двенадцатая, вторая,...

Дано слово из 12 букв. Переставить его буквы следующим способом
Помогите решить Дано слово из 12 букв. Переставить его буквы следующим способом: первая,...

Дано слово. Поменять местами его вторую и пятую букву
Дано слово. Поменять местами его вторую и пятую букву. Вроде бы легкое задание, но при помощи...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru