Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Замена в строке

Страницы: 1
Замена в строке
#1
09.02.2010 20:08:52
Подскажите как заменить в строке abc на def. Написал, такой код
Код
var s,s1:string; i:integer;
begin
writeln ('Введите строку');
readln (s);
s1:='def';
for i:=1 to length(s) do
if s='abc' then begin delete(s,i,3);
insert(s1,s,i);
end;
write (s);
end.

Но проблема в том что он хотя и заменяет abc на def, но если в строке пишем babc то ничего не происходит.
 
 
#2
09.02.2010 20:16:17
Зачем снова изобретать велосипед? Есть же функция Replace.
 
 
#3
09.02.2010 20:19:25
Пользуйтесь
Код
var s,s1:string; i:integer;
begin
writeln ('Введите строку');
readln (s);
s1:='def';
s:=s.Replace('abc',s1);
write (s);
end.
 
 
#4
09.02.2010 20:30:03
Цитата
Алексей Смирнов пишет:
Зачем снова изобретать велосипед?

Это учебное задание и по условию эту функцию использовать нельзя.
 
 
#5
09.02.2010 20:39:32
Тогда так
Код
var s,s1:string; i:integer;
begin
writeln ('Введите строку');
readln (s);
s1:='def';
for i:=1 to length(s) do
begin
if(i<length(s)-1)then
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then
begin 
s[i]:='d';
s[i+1]:='e';
s[i+2]:='f';
end;
end;
write (s);
end.
 
 
#6
09.02.2010 21:03:05
Спасибо. Поправил немного ваш код.
Код
var s:string; i:integer;
begin
writeln ('Введите строку');
readln (s);
for i:=1 to length(s) do begin
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then begin delete(s,i,3);
insert('def',s,i);
end;
end;
writeln (s);
end.
 
 
#7
09.02.2010 21:10:47
У вас будет выход за границы строки если она заканчивается, например, на "а".
 
 
#8
09.02.2010 21:20:39
А как это исправить?
 
 
#9
09.02.2010 21:37:00
достаточно написать так
Код
var s:string; i:integer; 
begin 
writeln ('Введите строку'); 
readln (s); 
for i:=1 to length(s)-2 do begin 
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then begin delete(s,i,3); 
insert('def',s,i); 
end; 
end; 
writeln (s); 
end.
 
 
#10
03.06.2010 17:06:18
Цитата
Алексей Смирнов пишет:
Зачем снова изобретать велосипед? Есть же функция Replace.

Можно подумать когда Вы учились Вам не давали подобные задания? smile:)
пока ты не доволен жизнью - она проходит...
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)