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

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

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

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


помогите пожалуйста
заранее спасибо*
http://www.cyberforum.ru/pascalabc/thread406992.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2013, 16:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ввести строку, состоящую из латинских букв. Заменить каждую букву строки на букву, следующую за ней по алфавиту (Pascal ABC):

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

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

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

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

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

2
erl27
892 / 741 / 831
Регистрация: 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
Сообщений: 296
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
Если в тексте нет символа *, то оставить этот текст без изменения, иначе каждую...

Заменить в третьем по счёту слове первую букву на последнюю букву этого же слова
помогите выбивает ошибки сдать до завтра надо!!!!!!! var s,pr:string; ...

Составьте алгоритм, который каждую встреченную в слове букву «с» заменял бы на сочетанием букв «ха»
Драсте всем!!! Помогите с 4 задачами.:cry::cry::cry: 1) Составьте алгоритм,...


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

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

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