Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.10.2018, 15:32   #1
_PoLL_
 
Регистрация: 17.10.2018
Сообщений: 3
Восклицание Pascal ABC замена символов их номером в алфавите

1. Замените заглавные буквы строчными, строчные –
заглавными.
2. Буквы, стоящие в алфавите после М замените в
строке соответствующими цифрами их порядкового
номера в алфавите.
3. В качестве пароля выберите нечетные символы в
строке.


как описать 2 действие никак не могу понять

//uses crt;

var s1:string;
i:integer;

begin
write ('Строку ');
readln(s1);
for i:=1 to Length(s1) do
begin
if LowerCase(s1[i]) = s1[i] then
begin
s1[i]:=UpCase(s1[i]);
if (ord(s1[i])>1040)then;
end
else
if UpCase(s1[i]) = s1[i] then
begin
s1[i]:=LowerCase(s1[i]);
if (ord(s1[i])>1072) and (ord(s1[i])<1084)then;
end
else
s1[i]:=s1[i];
end;


writeln(s1);

end.

Последний раз редактировалось _PoLL_; 17.10.2018 в 15:45.
_PoLL_ вне форума Ответить с цитированием
Старый 17.10.2018, 15:37   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Pascal ABC или Pascal ABC.Net ?

а что такое "номера символов в юникоде" ?

Ну, допустим, даны такие три строки:

QUICK BROWN FOX JUMPS OVER LAZY DOG.

quick brown fox jumps over lazy dog.

Наша Маша краше вашей.


Покажите, что должно получится в итоге?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.10.2018, 15:39   #3
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Ord(ch) - Ord('A')
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создать файл произвольных символов/pascal abc tinager2011 Помощь студентам 0 06.04.2014 13:28
Построить список символов, содержащий входной текст. Pascal ABC _T_A_H_K_ Помощь студентам 1 12.01.2014 12:52
Pascal ABC.Тема:Обработка символов и срок. sfuwf Помощь студентам 2 21.10.2013 13:28
перелічувальний тип даних (роздрукувати назву деталі за номером) pascal ABC программирование Помощь студентам 1 23.04.2013 08:23
Замена символов в Pascal Cruzel Помощь студентам 1 21.12.2011 00:10