Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Assasins2009
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 4
#1

Получить новую строку, заменив в исходной все заглавные буквы строчными и наоборот. - Pascal

03.03.2009, 08:06. Просмотров 1362. Ответов 1
Метки нет (Все метки)

Дана строка содержащая текст, включабщий русские и английские слова. Получить новую строку, заменив в исходной все заглавные буквы строчными и наоборот.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.03.2009, 08:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Получить новую строку, заменив в исходной все заглавные буквы строчными и наоборот. (Pascal):

Получить новый текстовый файл, заменив в исходном все заглавные буквы строчными и наоборот
Дан файл, содержащий текст, включающий в себя русские и английские слова....

Написать программу, которая заменяет в тексте созданного файла все заглавные буквы строчными, а строчные – заглавными.
Написать программу, которая заменяет в тексте созданного файла все заглавные...

Дан текст из строчных и заглавных букв латинского алфавита. Заменить все строчные буквы заглавными, а заглавные - строчными
Дан текст из строчных и заглавных букв латинского алфавита. Заменить все...

Включить в новую строку только заглавные буквы из строки S и заменить их на строчные
Задана строка S='ABC*145*S!defgh1999IJK1mnopQrSTU345_-+='. Включить в новую...

Получить новую строку путем копирования из исходной 5 символов
Написать программу в которой вводится одна строка и выполняются следующие...

Получить новую строку, состоящую из символов исходной строки, расположенных в обратном порядке
Дано строку S. Получить новую строку, состоящую из символов выходного строки,...

1
schdub
Эксперт С++
3016 / 1361 / 415
Регистрация: 19.01.2009
Сообщений: 3,615
Завершенные тесты: 1
03.03.2009, 10:17 #2
Лучший ответ Сообщение было отмечено Assasins2009 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
var s      : string;
    len, i : integer;
 
function inv_char(ch:char) : char;
begin
  if (ch>='a') and (ch<='z') then ch := chr(ord('A')+ord(ch)-ord('a'))
  else  
  if (ch>='A') and (ch<='Z') then ch := chr(ord('a')+ord(ch)-ord('A'))
  else
  if (ch>='а') and (ch<='п') then ch := chr(ord('А')+ord(ch)-ord('а'))
  else
  if (ch>='р') and (ch<='я') then ch := chr(ord('Р')+ord(ch)-ord('р'))
  else
  if (ch>='A') and (ch<='П') then ch := chr(ord('а')+ord(ch)-ord('А'))
  else
  if (ch>='Р') and (ch<='Я') then ch := chr(ord('р')+ord(ch)-ord('Р'))
  else
  if ch='ё' then ch := 'Ё'
  else
  if ch='Ё' then ch := 'ё';
  
  inv_char := ch;
end;
 
 
begin
  WriteLn('Введите строку');
  ReadLn(s);
  
  len := length(s);
  
  for i:= 1 to len do
    s[i] := inv_char(s[i]);
    
  WriteLn('Получилась такая строка');
  WriteLn(s);  
  
  ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2009, 10:17
Привет! Вот еще темы с решениями:

Получить "сглаженные" значения a1,., a50, заменив в исходной последовательности все члены, кроме первого и последнего
Даны действительные числа a1,..., a50. Получить &quot;сглаженные&quot; значения a1,...,...

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

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

Преобразовать строку, заменив все двойные апострофы кавычками.
Дана строка s, содержащая менее чем 200 символов. Преобразовать данную...


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

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

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