Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Miza01
0 / 0 / 3
Регистрация: 22.01.2013
Сообщений: 44
#1

Задана строка с элементами латинского алфавита - Pascal ABC

03.03.2013, 12:14. Просмотров 276. Ответов 1
Метки нет (Все метки)

Задана строка с элементами латинского алфавита. Если элемент заглавная буква, то после него поставить прописную, а если прописная заглавную.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.03.2013, 12:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Задана строка с элементами латинского алфавита (Pascal ABC):

Дана строка S. Выяснить есть ли в ней прописные и строчные буквы латинского алфавита. Если есть, то вывести эти буквы
Задача №1 Дана строка S. Выяснить есть ли в ней прописные и строчные буквы...

Заменить буквы латинского алфавита на соответствующие им буквы русского алфавита
Дана строка символов, состоящая из произвольного текста на английском языке,...

Вычислите количество букв латинского алфавита от «А» до «Z»
Пользователь вводит 4 символа. (Char). Вычислите среди них количество букв...

Реализовать стек, содержащий символы латинского алфавита
Реализовать стек, содержащий символы латинского алфавита. Проверить,...

Дана последовательность содержащий букву латинского алфавита
плз помогите решить задачу срочно !!! Дана последовательность символов...

Кодирование букв латинского алфавита последовательностью из нулей и единиц
Помогите написать код, используя процедуры: Распечатать один из способов...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
03.03.2013, 13:32 #2
Лучший ответ Сообщение было отмечено Miza01 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var s:string;
    i:byte;
begin
writeln('Введите строку содержащую большие и малые латинские буквы');
read(s);
i:=1;
while i<=length(s) do
if s[i] in ['a'..'z'] then
 begin
  insert(UpCase(s[i]),s,i+1);
  i:=i+2
 end
else if s[i] in ['A'..'z'] then
 begin
  insert(chr(ord(s[i])+32),s,i+1);
  i:=i+2;
 end
else i:=i+1;
write(s);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2013, 13:32
Привет! Вот еще темы с решениями:

Вывести н последних строчных букв латинского алфавита в обратном порядке
Дано целое число н (1&lt;=н&lt;=26).вывести н последних строчных букв латинского...

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

Вывести из строки на печать только строчные буквы латинского алфавита
1)дана строка из 20 символов. Вывести из нее на печать только строчные буквы...

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


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

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

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