Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Напишите программу, которая переводит неотрицательное целое число в четырёхзначный шестнадцатеричную систему https://www.cyberforum.ru/ pascalabc-net/ thread1408942.html
Напишите программу, которая переводит переданное ей неотрицательное целое число в четырёхзначный шестнадцатеричный код, сохранив лидирующие нули. Используйте процедуру. Входные данные Входная...
PascalABC.NET Исправить ошибки в программе "Складской учет"
Ребят, у меня в Паскале готовая прога, но выдает ряд ошибок и не запускается. Там складской учет. Помогите исправить ошибки. Для профи работы минут на 15, думаю. Заранее благодарю.)
PascalABC.NET Задать два перечислимых типа: первый - коды цветов, второй - названия цветов
Задать два перечислимых типа: первый коды цветов, второй - названия цветов. Вводится имя цвета, выводится его тип. Помогите плз, ломаю голову не могу понять как сделать :wall:
PascalABC.NET Что за классы System, System.Drawing, System.Windows.Forms Народ, объясните пожалуйста что за классы: System, System.Drawing, System.Windows.Forms. В справке как-то ничего не нашел. Если там есть, то "тыкните" меня в нее. Можете как-нибудь поподробней... https://www.cyberforum.ru/ pascalabc-net/ thread1408861.html
PascalABC.NET Открытие файла через OpenFileDIalog и записать имя файла в переменную https://www.cyberforum.ru/ pascalabc-net/ thread1408298.html
Можно ли в формах Pascal ABC Net, открыв файл через openfiledialog, записать в строковую переменную полное имя файла?
PascalABC.NET Галка "Удалять exe" ставится автоматом
Хочу получить файл в EXE формате, удаляю стрелку на "Удалять Exe файл", но он, при закрытии настроек, сразу же восстанавливается. Что делать?
PascalABC.NET Посчитать общую сумму снятого налога и вывести фамилию работника, которому начислена минимальная зарплата
В файле записано: фамилия работника, начисленная зарплата, снятый налог. Посчитать общую сумму снятого налога и вывести фамилию работника, которому начислена минимальная зарплата.
PascalABC.NET Изобразить фигуру, вращающуюся в плоскости экрана вокруг своего центра В идеале эта фигура - равнобедренный треугольник, но мне подойдет любой пример, т.к. не могу разобраться =( https://www.cyberforum.ru/ pascalabc-net/ thread1408173.html
PascalABC.NET Поменять последний элемент массива, кратный своему порядковому номеру с первым элементом https://www.cyberforum.ru/ pascalabc-net/ thread1407986.html
Всем добрый вечер! Столкнулся с проблемой, нужно поменять последний элемент, кратный своему порядковому номеру с первым элементом одномерного числового массива! Буду благодарен за помощь в решении...
PascalABC.NET Выяснить, есть ли в двумерном массиве хотя бы один столбец, содержащий более двух одинаковых элементов Здравствуйте! Нужно составить программу, позволяющую выяснить, есть ли в двумерном массиве хотя бы один столбец, содержащий более двух одинаковых элементов. Если нетрудно, приведите, пожалуйста,... https://www.cyberforum.ru/ pascalabc-net/ thread1407974.html
0 / 0 / 0
Регистрация: 30.03.2015
Сообщений: 39
0

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

31.03.2015, 18:10. Просмотров 832. Ответов 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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.