Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Написать программу "тест по таблице умножения" https://www.cyberforum.ru/ turbo-pascal/ thread794361.html
Написать программу "тест по таблице умножения".Программа должна спрашивать у пользователя ответ на произведение двух чисел.Оба числа загадываются компьютером автоматически с помощью...
Turbo Pascal copy
3:writeln('‚ўҐ¤ЁвҐ ўаҐ¬п ®вЇа*ў«Ґ*Ёп ',mas.mNum,'-®Ј® Ї®Ґ§¤*:'); readln(mas.mTimeO); x:=copy(mas.mTimeO,1,2); val(x,p,code); if (p>23)or (p<00) then begin writeln('‚ бгвЄ*е 24 з*б*....
Движение в паскале Turbo Pascal
Если какая нибудь процедурка, которая будет передвигать мой шарик по елипсу? P.S.Просто у меня задание нарисовать Строение атома (ядро и вокруг него что бы атомы вертелись). Если кому не тяжело и...
Turbo Pascal Нарисовать диагональ экрана, состоящую из 15 разноцветных шестигранников Нарисовать диагональ экрана, состоящую из 15 разноцветных шестигранников https://www.cyberforum.ru/ turbo-pascal/ thread794243.html
Turbo Pascal Количество знаков после точки https://www.cyberforum.ru/ turbo-pascal/ thread794176.html
Как определить количество знаков после точки в числе с плавающей точкой? P.S. Прошу прощения за то, что подобные темы уже были.
Есть какие-нибудь эквиваленты FloatToStr? Turbo Pascal
В Turbo Pascal нет процедуры FloatToStr. Есть какие-нибудь эквиваленты?
Выбрать алгоритм, составить блок-схему и программу для вычисиления в точках наибольшего и среднего значений функции Turbo Pascal
Выбрать алгоритм, составить блок-схему и программу для вычисления в точках х, = а + i-h, i = 0, 1, 2..., n, h - (b - а)/п промежутка наибольшего и среднего значений функции y=((sin^2...
Turbo Pascal Все элементы матрицы, лежащие на второстепенной диагонали заменить суммой элементов, стоящих в четных строках и имеющих дробную часть Все элементы матрицы X (n x n), лежащие на второстепенной диагонали заменить суммой элементов, стоящих в четных строках и имеющих дробную часть. https://www.cyberforum.ru/ turbo-pascal/ thread794089.html
Turbo Pascal Сформировать одномерный массив, состоящий из положительных элементов, располагающихся в нечетных столбцах матрицы https://www.cyberforum.ru/ turbo-pascal/ thread794088.html
Сформировать одномерный массив, состоящий из положительных элементов, располагающихся в нечетных столбцах матрицы X (n x m).
Turbo Pascal Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов. https://www.cyberforum.ru/ turbo-pascal/ thread794086.html
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
25.02.2013, 14:55 0

Преобразовать строку символов, удалив из нее все символы, не являющиеся буквами

25.02.2013, 14:55. Просмотров 1014. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
for i:=length(s) downto 1 do
if not(s[i] in bk) then delete(s,i,1)
else if s[i] in ['a'..'z'] then s[i]:=upcase(s[i])
else if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё';
write(s);
readln
end.


Вернуться к обсуждению:
Преобразовать строку символов, удалив из нее все символы, не являющиеся буквами
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2013, 14:55

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

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

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

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

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

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