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

Удалить из строки S1 подстроки, совпадающие с S2 - Turbo Pascal

25.02.2011, 19:46. Просмотров 1198. Ответов 1
Метки нет (Все метки)

Даны две строки: S1 и S2. Удалить из строки S1 первую (последнюю или все) подстроки, совпадающие с S2. Если таких подстрок нет, то вывести S1 без изменений
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.02.2011, 19:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удалить из строки S1 подстроки, совпадающие с S2 (Turbo Pascal):

Удалить из строки S1 все подстроки, совпадающие с S2.
При составлении программы использовать стандартные процедуры и строки Даны...

Удалить из строки S все подстроки, совпадающие с S0
Решите, пожалуйста, эту задачу. Даны строки S и S0. Удалить из строки S все...

Даны две строки: S1 и S2. Удалить из строки S1 все подстроки, совпадающие с S2
8. Даны две строки: S1 и S2. Удалить из строки S1 все подстроки, совпадающие с...

Удалить из строки S1 первый, последний и все подстроки, совпадающие с S2
Даны две строки: S1 и S2. Удалить из строки S1 первый, последний и все...

Удалить из строки S все подстроки, совпадающие с S0
Очень срочно нужно,завтра контрольная.помогите пожалуйста.Даны строки S и S0....

Удалить из строки S1 первый, последний и все подстроки, совпадающие с S2...
Даны две строки: S1 и S2. Удалить из строки S1 первый, последний и все...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
26.02.2011, 11:50 #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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
var s1,s2,s:string;
    c,w:char;
    i:byte;
begin
clrscr;
writeln('Введите строку, из которой будем удалять:');
readln(s1);
writeln('Введите строку, которую будем удалять:');
readln(s2);
if pos(s2,s1)=0 then
 begin
  writeln('Второй строки нет в первой');
  write(s1);
 end
else
 begin
  repeat
   clrscr;
   writeln('Какие вхождения удалить?');
   writeln('1-первое');
   writeln('2-последнее');
   writeln('3-все');
   writeln('другое-выход');
   readln(w);
   case w of
   '1':begin
       s:=s1;
       delete(s,pos(s2,s),length(s2));
       write(s);
       readln;
       end;
   '2':begin
       s:=s1;
       i:=length(s)-length(s2)+1;
       if copy(s,i,length(s2))=s2 then delete(s,i,length(s2))
       else
        begin
         while(copy(s,i,length(s2))<>s2) do
         i:=i-1;
         delete(s,i,length(s2));
        end;
       write(s);
       readln;
       end;
   '3':begin
       s:=s1;
       while pos(s2,s)>0 do
       delete(s,pos(s2,s),length(s2));
       write(s);
       readln;
       end;
    else exit;
    end;
   until not(w in ['1'..'3']);
  end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 11:50
Привет! Вот еще темы с решениями:

Удалить из строки S1 первую\последнюю\все подстроки, совпадающие с S2
Даны две строки:S1 и S2. Удалить из строки S1 первую\последнюю\все подстроки,...

Написать программу,которая удаляет из введенной строки все подстроки совпадающие с заданной
Написать программу,которая удаляет из введенной строки все подстроки...

В программе вводится строка. Требуется удалить из строки все слова, совпадающие с заданным.
напишите пожалуйста с комментариями, я паскаль плохо знаю, мне иногда трудно...

Удалить из строки все вхождения заданной подстроки
Даны подстрока и строка. Удалить из строки все вхождения заданной подстроки ...


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

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

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