Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Assasins2009
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 4
#1

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

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

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

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

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

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

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

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

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

1
schdub
2974 / 1319 / 244
Регистрация: 19.01.2009
Сообщений: 3,471
Завершенные тесты: 1
03.03.2009, 10:17 #2
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
Привет! Вот еще темы с ответами:

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

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

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

Из строки сформировать новую строку, содержащую символы цифр исходной строки - Pascal
Из введенной символьной строки выбрать все цифры и сформировать другую строку из этих цифр, сохранив их последовательность.


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

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

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