С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 28.10.2020
Сообщений: 4
1

Удалить из строки все пары символов «PQ» и подсчитать количество удалённых пар

17.11.2020, 19:14. Показов 1493. Ответов 4

Author24 — интернет-сервис помощи студентам
Дана строка-предложение на английском языке. Преобразовать строку так, чтобы удалились все пары символов «PQ» и подсчитать количество удаленных пар.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Блог
17.11.2020, 19:14
Ответы с готовыми решениями:

Удалить из строки все вопросительные знаки, вывести строки до и после изменения, количество удаленных символов
Удалить из строки все вопросительные знаки. Вывести на экран символьную строку до и после...

В строке удалить все буквы "а" и подсчитать количество удаленных символов
В строке удалить все буквы "а" и подсчитать количество удаленных символов.

В строке удалить все буквы "а" и подсчитать количество удаленных символов
помогите найти. В строке удалить все буквы "а" и подсчитать количество удаленных символов.

Удалить символ «двоеточие» и подсчитать количество удалённых символов
Дан массив символов. Удалить символ «двоеточие» и подсчитать количество удалённых символов.

4
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.11.2020, 19:31 2
Pascal
1
2
3
4
5
6
7
k:=0;
for i:=length(s)-1 downto 1 do
if copy(s,i,2)='PQ' then
 begin
  k:=k+1;
  delete(s,i,2);
 end;
1
308 / 289 / 116
Регистрация: 23.01.2018
Сообщений: 933
18.11.2020, 00:14 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const PQ = 'PQ';
 
var s: string;
var k: integer;
var p: byte;
 
begin
    readln(s);
    k := 0;
    while true do begin
        p := pos(PQ, s);
        if p = 0 then break;
        delete(s, p, length(PQ));
        inc(k);
    end;
    writeln(s);
    writeln(k);
end.
0
3048 / 1668 / 656
Регистрация: 19.03.2019
Сообщений: 5,373
18.11.2020, 10:37 4
Вадим Тукаев, неверно и не оптимально (не эффективно).
зачем каждый раз искать строку через pos ?
что будет для строки 'PPPQQQ' ? сколько здесь сочетаний PQ ?

и чем не понравился простой, надёжный, быстрый и корректно работающий код Puporev из поста #2?
1
308 / 289 / 116
Регистрация: 23.01.2018
Сообщений: 933
18.11.2020, 11:46 5
Цитата Сообщение от mr-Crocodile Посмотреть сообщение
и чем не понравился простой, надёжный, быстрый и корректно работающий код Puporev из поста #2?
Я и не говорил, что не понравился. Просто пришёл в голову другой способ. Как мне казалось, если не лучше, то по крайней мере проще. Насчёт некорректности и неоптимальности - согласен. Что-то я перемудрил. Мне частенько приходит в голову решение на другом языке, я пытаюсь его переложить на нужный и получается коряво. Строки везде по-разному устроены.
1
18.11.2020, 11:46
BasicMan
Эксперт
19315 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
Блог
18.11.2020, 11:46
Помогаю со студенческими работами здесь

В строке удалить символ двоеточие и подсчитать количество удаленных символов
в строке удалить символ двоеточие и подсчитать количество удаленных символов Добавлено через 10...

В строке удалить символ двоеточие (:) и подсчитать количество удаленных символов
люди помогите пожалуйста запутался совсем голова уже кипит а в лабораторных не понятно как делать и...

В строке удалить символ двоеточие ( : ) и подсчитать количество удаленных символов
В строке удалить символ двоеточие ( : ) и подсчитать количество удаленных символов.

В строке удалить символ двоеточие и подсчитать количество удалённых символов
В строке удалить символ двоеточие и подсчитать количество удалённых символов Нужно с...

В строке удалить символ двоеточие : и подсчитать количество удаленных символов
Помогите пожалуйста решить задачу по делфи. в строке удалить символ двоеточие : и подсчитать...

В строке удалить символ двоеточие (:) и подсчитать количество удалённых символов
В строке удалить символ двоеточие (:) и подсчитать количество удалённых символов


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru