|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
23.05.2011, 19:11 | #1 (permalink) |
Новичок
Регистрация: 23.05.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Подскажите, что неправильно?
program zamena; var s,s1,s2:string; i:integer; begin writeln('введите строку:'); readln(s); s1:=''; s2:='bc'; writeln ('s2:',s2); while pos ('ab' , s)<>0 do begin s:=s1+ copy (s,1,pos('ab',s)-1) +'bc'; delete(s1,1,pos ('ab',s)+1); end; s:=s+s1; writeln('s:',s); end. |
23.05.2011, 19:11 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме так же есть эти топики, возможно в них имеется решение вопроса Неправильно считает сумму после минимального элемента Неправильно выбрана мощность привода |
23.05.2011, 20:20 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А Вас не сильно затруднит для начала сформулировать решаемую задачу? Или Вы полагаете, мы тут от скуки изнываем, и возможность по неработающему коду восстановить условия задачи для нас - что манна небесная? Спасибо, конечно, но Вы, уж извините, не совсем правы.
|
24.05.2011, 00:14 | #3 (permalink) |
Новичок
Регистрация: 23.05.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Подскажите, что не правильно
написать функцию замены в данной строке S подстроки S1 на подстроку S2
она не меняет когда пишешь ababab program zamena; var s,s1,s2:string; i:integer; begin writeln('введите строку:'); readln(s); s1:=''; s2:='bc'; writeln ('s2:',s2); while pos ('ab' , s)<>0 do begin s:=s1+ copy (s,1,pos('ab',s)-1) +'bc'; delete(s1,1,pos ('ab',s)+1); end; s:=s+s1; writeln('s:',s); end. |
24.05.2011, 09:51 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Если будете продолжать забивать форум клонами своего сообщения, будете удалены вместе со всеми постами. Сами видите, что творится - наше доблестное студенчество проспало и провеселилось весь семестр, а теперь, когда на носу зачеты и экзамены, попросыпались, и поперла лавина: "Спасите, помогите, я в Паскале ни бум-бум!". Помогаю по мере сил. Будет время - посмотрю Вашу задачку. Имейте терпение.
|
24.05.2011, 12:16 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вот Вам вариант отлаженной программы, решающей Вашу задачу. Вводятся:
1. Исходная строка. 2. Что заменить. 3. Чем заменить. В конце выводится преобразованная строка. Код:
program zamena; var s,s1,s2:string; i,ppss:integer; begin writeln('String:'); readln(s); writeln('Substring to replace:'); readln(s1); writeln('Substring for replacement:'); readln(s2); while pos(s1,s)>0 do begin ppss:=pos(s1,s); delete(s,ppss,length(s1)); insert(s2,s,ppss); end; writeln('Result:'); writeln(s); readln end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|