|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2018, 15:32 | #1 |
Регистрация: 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. |
17.10.2018, 15:37 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Pascal ABC или Pascal ABC.Net ?
а что такое "номера символов в юникоде" ? Ну, допустим, даны такие три строки: QUICK BROWN FOX JUMPS OVER LAZY DOG. quick brown fox jumps over lazy dog. Наша Маша краше вашей. Покажите, что должно получится в итоге? |
17.10.2018, 15:39 | #3 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,709
|
Ord(ch) - Ord('A')
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создать файл произвольных символов/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 |