Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 23.05.2011, 19:11   #1 (permalink)
Павел-14
Новичок
 
Регистрация: 23.05.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Подскажите, что неправильно?

он не меняет когда пишешь 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.
Павел-14 вне форума   Ответить с цитированием

Старый 23.05.2011, 19:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме так же есть эти топики, возможно в них имеется решение вопроса

Неправильно считает сумму после минимального элемента
Неправильно выбрана мощность привода

Старый 23.05.2011, 20:20   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

А Вас не сильно затруднит для начала сформулировать решаемую задачу? Или Вы полагаете, мы тут от скуки изнываем, и возможность по неработающему коду восстановить условия задачи для нас - что манна небесная? Спасибо, конечно, но Вы, уж извините, не совсем правы.
Vladimir_S вне форума   Ответить с цитированием
Старый 24.05.2011, 00:14   #3 (permalink)
Павел-14
Новичок
 
Регистрация: 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.
Павел-14 вне форума   Ответить с цитированием
Старый 24.05.2011, 09:51   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Если будете продолжать забивать форум клонами своего сообщения, будете удалены вместе со всеми постами. Сами видите, что творится - наше доблестное студенчество проспало и провеселилось весь семестр, а теперь, когда на носу зачеты и экзамены, попросыпались, и поперла лавина: "Спасите, помогите, я в Паскале ни бум-бум!". Помогаю по мере сил. Будет время - посмотрю Вашу задачку. Имейте терпение.
Vladimir_S вне форума   Ответить с цитированием
Старый 24.05.2011, 12:16   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:45.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.