Заменить в строке слово tooth на слово teeth

@хвоя · Регистрация: 10.03.2017

Author24 — интернет-сервис помощи студентам

Дана строка символов. Необходимо заменить в ней слово tooth на слово teeth. Написать подпрограмму, которая заменяет в строке одну подстроку на другую.
1. Составить алгоритм решения задачи и написать программу, которая его реализует.
2. Написать требуемую функцию и изменить решение задачи таким образом, чтобы использовать в нём новую подпрограмму.
3. Заменить функцию процедурой и вновь изменить решение задачи.

@Puporev · 10.03.2017, 07:49

1.

Pascal

uses crt;
var s:string;
    i:integer;
begin
clrscr;
writeln('Введите строку, содержащую слова tooth');
readln(s);
for i:=length(s)-4 downto 1 do
//если сочетание tooth и оно ограничено пробелами или началом(концом строки)
if (copy(s,i,5)='tooth')and((i=1)or(s[i-1]=' '))and((i+4=length(s))or(s[i+5]=' '))then
 begin
  delete(s,i+1,2);
  insert('ee',s,i+1);
 end;
write(s);
readln
end.

2.

Pascal

uses crt;
function zamena(s:string):string;
var i:integer;
begin
for i:=length(s)-4 downto 1 do
if (copy(s,i,5)='tooth')and((i=1)or(s[i-1]=' '))and((i+4=length(s))or(s[i+5]=' '))then
 begin
  delete(s,i+1,2);
  insert('ee',s,i+1);
 end;
zamena:=s;
end;
var s:string;
begin
clrscr;
writeln('Введите строку, содержащую слова tooth');
readln(s);
write(zamena(s));
readln
end.

3.

Pascal

uses crt;
procedure zamena(var s:string);
var i:integer;
begin
for i:=length(s)-4 downto 1 do
if (copy(s,i,5)='tooth')and((i=1)or(s[i-1]=' '))and((i+4=length(s))or(s[i+5]=' '))then
 begin
  delete(s,i+1,2);
  insert('ee',s,i+1);
 end;
write(s);
end;
var s:string;
begin
clrscr;
writeln('Введите строку, содержащую слова tooth');
readln(s);
zamena(s);
readln
end.

@хвоя 0 / 0 / 0 Регистрация: 10.03.2017 Сообщений: 1
		1
	Заменить в строке слово tooth на слово teeth 10.03.2017, 07:10. Показов 2719. Ответов 1 Метки нет (Все метки) Дана строка символов. Необходимо заменить в ней слово tooth на слово teeth. Написать подпрограмму, которая заменяет в строке одну подстроку на другую. 1. Составить алгоритм решения задачи и написать программу, которая его реализует. 2. Написать требуемую функцию и изменить решение задачи таким образом, чтобы использовать в нём новую подпрограмму. 3. Заменить функцию процедурой и вновь изменить решение задачи. 0

	10.03.2017, 07:49

Заменить в строке слово tooth на слово teeth

Решение