0 / 0 / 0
Регистрация: 19.06.2011
Сообщений: 25
1

Ввести строку и слово. Удалить слово из строки, если она в ней содержится.

22.06.2011, 13:27. Показов 2654. Ответов 1
Метки нет (Все метки)

Ввести строку и слово. Удалить слово из строки, если она в ней содержится.
вот что получилось:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
s: string;
l, i, j: integer;
begin
readln(s);
l:= length(s);
i:= 1;
j:= 0;
while i<= l do begin
if s[i] <> ' ' then begin 
j:= j+1;
i:= i+1;
end
else begin 
if j >= 1 then begin 
delete(s,i-j,j+1);
l:= length(s);              
end;
end;
end;
writeln(s);
end.
Но всё дело в том, что надо слачало ввести строку например: "мама мыла раму", а тотом ввести слово которое нужно удалить например "раму" помагите пожалуйста поправить програмку...
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2011, 13:27
Ответы с готовыми решениями:

Как удалить строку в случае если в ней содержится определенное слово?
Как удалить строку в случае если в ней содержится определенное слово? Если использовать встроенную...

Удалить всю строку, если в ней найдено определенное слово
Добрый день! Есть два слова &quot;Microsoft&quot; и &quot;Apple&quot;. Есть файл , в котором имеются строки: ...

Ввести строку и в ней найти первую и последнюю цифру и поменять эти цифры на слово: "Слово"
Ввести строку и в ней найти первую и последнюю цифру и поменять эти цифры на слово: &quot;Слово&quot;.

Ввести с клавиатуры строку символов, используя функции, и удалить каждое четное слово из строки
Всем доброго времени суток) Учусь на программиста, программируем на с++, на данный момент...

1
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
22.06.2011, 23:25 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
var
a,i:integer;
s,s1,s2:string;
begin
writeln('введите строку');
readln(s);
writeln('введите слово которое надо удалить');
readln(s1);
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
inc(a);
s2:=s2+s[i];
end;
if s[i]=' ' then begin
if s2=s1 then
delete (s,i-a,a);
s2:='';
a:=0;
end;
if s[1]=' ' then delete(s,1,1);
end;
for i:=1 to length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1);
writeln(s);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2011, 23:25

Ввести с клавиатуры строку символов, используя функции, и удалить каждое четное слово из строки
Всем доброго времени суток) Учусь на программиста, программируем на с++, на данный момент...

Строки. Определить длину строки, содержится ли в ней слово «мир», является ли строка перевертышем
Вводится произвольная строка символов. Определить 1)количество символов данной строки;...

Если функция находит в строке число, то вместо него она переписывает в выходную строку соответствующее по счету слово из входной строки
Функция переписывает строку. Если она находит в строке число, то вместо него она переписывает в...

Ввести строку. Найти в функции в ней слово минимальной длины
Ввести строку. Найти в функции в ней слово минимальной длины.


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

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

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