Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 30.03.2015
Сообщений: 39
1

В чем ошибка? Когда печатаю "а" или "б" все работает, а когда "А" или "Б" то он не меняет "А" на "Б"

31.03.2015, 18:10. Просмотров 802. Ответов 2
Метки нет (Все метки)

{Программа заменяет буквы "а" на буквы "б" в введенном тексте}
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  stroka : string[80];
  i      : integer;
begin
  WriteLn('Программа замены букв "а" на буквы "б" и наоборот ');
    WriteLn;
  WriteLn('Введите строку из русских букв');
  ReadLn(stroka);
  stroka:=trim(stroka);
    WriteLn;
    for i := 1 to Length(stroka) do
              if stroka[i] = 'а' then stroka[i] := 'б' else
              if stroka[i] = 'б' then stroka[i] := 'а';
              if stroka[i] = 'Б' then stroka[i] := 'А' else
              if stroka[i] = 'А' then stroka[i] := 'Б';
  WriteLn('Строка после замены: ',stroka);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2015, 18:10
Ответы с готовыми решениями:

Заменить в строке "." на ";", "." на ".", убрать лишние пробелы. Не могу доделать один кусочек
Не соображу, как уместить два действия так, чтобы работали оба, а именно, исходные "." заменить на...

Как перевести числа с "String" в "integer" или "Real"?
как перевести числа с "String" в "integer" или "Real"?

Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран
Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран....

Удалить из последовательности символов S все слова, оканчивающиеся группой букв, "кая" или "кое"
Даны натуральное число n, символы S1,... Sn. Будем рассматривать слова, образованные символами, ...

2
Модератор
61691 / 46182 / 31861
Регистрация: 18.05.2008
Сообщений: 111,382
31.03.2015, 18:30 2
Pascal
1
2
3
4
5
for i := 1 to Length(stroka) do
    if stroka[i] = 'а' then stroka[i] := 'б' 
    else if stroka[i] = 'б' then stroka[i] := 'а'
    else if stroka[i] = 'Б' then stroka[i] := 'А' 
    else if stroka[i] = 'А' then stroka[i] := 'Б';
0
0 / 0 / 0
Регистрация: 30.03.2015
Сообщений: 39
31.03.2015, 18:37  [ТС] 3
Спасибо за помощь)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2015, 18:37

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

Составьте программу замены в слове Х всех букв "а" и "я" на слог "по"
Составьте программу замены в слове Х всех букв "а" и "я" на слог "по". заранее спасибо!

Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"
Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"

Подсчитать количество слов, которые заканчиваются буквами "е" или "Е"
Дано некоторый текст. Группы символов, разделенных пробелами (одним или несколькими) и не содержите...

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


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

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

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