Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Jessy James
2 / 3 / 0
Регистрация: 24.06.2013
Сообщений: 336
1

Строки. Заменить каждую букву на следующую, последняя переходит на место первой

24.01.2014, 22:09. Просмотров 1061. Ответов 3
Метки нет (Все метки)

Задано предложение, состоящее из слов, разделенных одним или несколькими пробелами (без знаков препинания), предложение заканчивается точкой. Вывести на экран все слова, преобразовав их следующим образом: заменить каждую букву на следующую, последняя переходит на место первой (абвгд -> дабвг).
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.01.2014, 22:09
Ответы с готовыми решениями:

Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту
Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на...

Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (например, a-b, b-c, z – a).
Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на...

Процедура: заменить в текстовом файле каждую цифру на следующую по величине ('9' заменить на '0')
Используя подпрограмму-процедуру, заменить в текстовом файле каждую цифру на...

Заменить в строке каждую 3-ую на следующую и вывести на экран
Помогите решить задачу, пожалуйста. Строки А) Ввести с клавиатуры строку...

Заменить каждую 3 букву на знак %
Нужно заменить каждую 3 букву в тексте на знак %. Помогите пожалуйста

3
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26485 / 17786 / 7037
Регистрация: 22.10.2011
Сообщений: 31,303
Записей в блоге: 6
25.01.2014, 04:57 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  s : string;
  i, prev : integer;
begin
  write('s = '); readln(s);
 
  prev := 0;
  for i := 1 to length(s) do // Перебираем все символы строки
  begin
    if s[i] in [' ', '.'] then // если очередной символ = пробелу или точке - значит, слово закончилось
    begin
      if i - prev > 1 then // проверяем, что это не был двойной пробел, что действительно было слово
        write(s[i - 1], copy(s, prev + 1, i - prev - 2), ' '); // и если так - то слово - от prev + 1 до i - 1, выводим то,что нужно
      prev := i; // и запоминаем конец этого слова для поиска следующего ...
    end;
  end;
end.
, например...
1
Jessy James
2 / 3 / 0
Регистрация: 24.06.2013
Сообщений: 336
25.01.2014, 06:22  [ТС] 3
А поясните пожалуйста вот этот фрагмент программы, не совсем понятно.)))
Pascal
1
2
3
4
5
if s[i] in [' ', '.'] then
    begin
      if i - prev > 1 then
        write(s[i - 1], copy(s, prev + 1, i - prev - 2), ' ');
      prev := i;
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26485 / 17786 / 7037
Регистрация: 22.10.2011
Сообщений: 31,303
Записей в блоге: 6
25.01.2014, 15:26 4
Комментарии добавлены
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2014, 15:26

Строки и модули. Каждую встреченную букву "б" заменить сочетанием "ку"
модуль1(ор) unit op; interface type str= string; implementation end. ...

Заменить в тексте каждую цифру на следующую по величине цифру
Дан текстовый файл f. Заменить в тексте каждую цифру на следующую по величине...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru