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

Заменить все вхождения подстроки W в строке St на подстроку V - Turbo Pascal

28.03.2011, 07:30. Просмотров 650. Ответов 4
Метки нет (Все метки)

заменить все вхождения подстроки W в строке St на подстроку V
http://www.cyberforum.ru/turbo-pascal/thread2124518.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.03.2011, 07:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заменить все вхождения подстроки W в строке St на подстроку V (Turbo Pascal):

Введите строку и подстроку. Удвойте все найденные вхождения подстроки в строке. Выведите преобразованную строку
Введите строку и подстроку. Удвойте все найденные вхождения подстроки в строке....

Дана строка. Заменить в ней вхождения подстроки S1 на подстроку S2.
Дана строка, слова в которой разделены хотя бы одним пробелом. Заменить в ней...

В строке А заменить все вхождения «кот» на «пес»
В строке А заменить все вхождения «кот» на «пес». Вывести содержимое начальной...

Заменить в строке все вхождения ‘ph’ на ‘f’ и подсчитать количество замен.
Дана строка S. Заменить все вхождения ‘ph’ на ‘f’ и подсчитать количество...

Заменить все вхождения подстроки Str1 на подстроку Str2 (подстроки вводятся с клавиатуры)
Заменить все вхождения подстроки Str l на подстроку Str2 (подстроки вводятся с...

4
the_crow
последний из ворон
111 / 111 / 63
Регистрация: 02.02.2011
Сообщений: 334
28.03.2011, 08:22 #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
Program Stroka;
var w,v,st:string i,j:integer; f:boolean;
begin i:=1;
        write('w=');
        readln(w);
        write('v=');
        readln(v);
        write('st=');
        readln(st);   
        while i<length(st)-length(w)+2 do
        begin if st[i]=w[1] then
                begin f:=true;
                        for j:=1 to length(w) do
                            if  st[i+j-1]<>w[j] then f:=false;
                        if f=true then begin delete(st,i,length(w));
                                                   insert(v,st,i);
                                                   i:=i+length(v)-1;
                                           end;
                 end;
        i:=i+1;
        end;
        writeln(st);
        readln;
end.
Осторожно, не проверял=)
1
Da Bomb
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 9
29.03.2011, 07:17  [ТС] #3
тут какой то хаос)
исправь ошибки пожалуйста)
0
the_crow
последний из ворон
111 / 111 / 63
Регистрация: 02.02.2011
Сообщений: 334
29.03.2011, 09:31 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ошибка была одна: во второй строке после string потеряна точка с запятой.
А так - все работает, работает правильно и никакого хаоса.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var w,v,st:string; i,j:integer; f:boolean;
begin i:=1;
      write('w=');
      readln(w);
      write('v=');
      readln(v);
      write('st=');
      readln(st);
      while i<length(st)-length(w)+2 do
      begin if st[i]=w[1] then begin f:=true;
                               for j:=1 to length(w) do
                                   if  st[i+j-1]<>w[j] then f:=false;
                               if f=true then begin delete(st,i,length(w));
                                                    insert(v,st,i);
                                                    i:=i+length(v)-1;
                                              end;
                               end;
            inc(i);
      end;
      writeln('st=',st);
      readln;
end.
1
Da Bomb
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 9
29.03.2011, 09:47  [ТС] #5
спасибо)
0
29.03.2011, 09:47
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.03.2011, 09:47
Привет! Вот еще темы с решениями:

Строки. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'.
1. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'....

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

Процедура: заменить в символьной строке все вхождения одной подстроки на другую
Дано задание: &quot;Напишите программу, которая заменяет в символьной строке все...

В каждой строке массива заменить все вхождения подстроки «cat» на «dog»
Дан массив, состоящий из n элементов строкового типа. В каждой строке заменить...


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

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

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