С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Лаураа
0 / 0 / 0
Регистрация: 28.03.2017
Сообщений: 21
1

Стереть все символы, которые не состоят из букв и все маленькие буквы поменять на одинаковые заглавные буквы

28.03.2017, 16:16. Просмотров 757. Ответов 1
Метки нет (Все метки)

Дана строка символов. Стереть все символы, которые не состоят из букв и все маленькие буквы поменять на одинаковые заглавные буквы.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2017, 16:16
Ответы с готовыми решениями:

Заменить в тексте все большие латинские буквы на маленькие, не изменяя все остальные символы
Цель работы: Сформировать понятие величин строкового типа. Научиться составлять...

Дана строка S. Поменять в ней все прописные буквы на заглавные и наоборот
Дана строка S. Поменять в ней все прописные буквы на заглавные и наоборот.

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

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

Заглавные буквы на маленькие
Наверное поднадоел, но все же, как написать то? нельзя использовать элементы...

1
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
28.03.2017, 17:14 2
Лучший ответ Сообщение было отмечено Лаураа как решение

Решение

Вам именно Pascal ABC нужен? Если вдруг ABC.Net, то вот аналогичная тема: В строке символов удалить всё, кроме букв, и перевести буквы в верхний регистр

Добавлено через 4 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
    i:byte;
begin
  readln(s); i:=0;
  repeat
    inc(i); s[i]:=UpCase(s[i]);
    if not (s[i] in ['A'..'Z','А'..'Я',' ']) then begin
      delete(s,i,1); dec(i);
    end;
  until i=length(s);
  write(s);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.03.2017, 17:14

Вывести на экран все слова, состоящие из K букв, в которых есть по крайней мере две одинаковые буквы, стоящие рядом
Напишите пожалуйста программу В алфавите языке племени «тумба-юмба» четыре...

Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B
Здравствуйте,помогите пожалуйста написать программу .Напишите программу,...

Вывести все введенные маленькие английские буквы.
Ввести фразу из английских букв (больших и маленьких). Вывести все введенные...


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

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

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