Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Lamike
0 / 0 / 0
Регистрация: 25.09.2013
Сообщений: 36
1

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

10.11.2013, 16:36. Просмотров 887. Ответов 2
Метки нет (Все метки)

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


помогите пожалуйста
заранее спасибо*
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2013, 16:36
Ответы с готовыми решениями:

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

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

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

Вывести одну гласную латинскую букву из первой строки, две из второй, ... i гласных латинских букв из строки н
Разработать функцию MakeStr(S:string; N:integer):string, возвращающую строку из...

Найти букву в тесте и вывести следующую за ней
Нужно написать программу которая бы искала заданную букву в строке и выводила 1...

2
erl27
895 / 743 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
10.11.2013, 16:52 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  S: string;
  i: byte;
  
begin
  writeln('Введите строку:');
  readln(S);
  for i := 1 to Length(S) do
    inc(s[i]); //увеличиваем код i-го символа s[i] на 1
  writeln;
  writeln('Результат: ', S);
end.
0
Romalei
109 / 50 / 55
Регистрация: 17.09.2013
Сообщений: 298
14.12.2013, 19:07 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

все очень просто, для этого существуют ASCII коды
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
s:string;
i,x:integer;
begin
writeln('Ââåäèòå ñòðîêó:'); readln(s);
for i:=1 to length(s) do
 if (s[i]<>'Z') and (s[i]<>'z') then
   begin
    x:=ord(s[i]);
    inc(x);
    s[i]:=chr(x);
   end;
writeln(s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 19:07

Дана строка символов. Замените в ней букву а на букву о до первой точки
Дана строка символов. Замените в ней букву а на букву о до первой точки.

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

Каждую из малых латинских букв, предшествующих первому вхождению символа *, заменить на цифру 3
Если в тексте нет символа *, то оставить этот текст без изменения, иначе каждую...


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

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

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