Заменить заданную подстроку в исходной строке на другую заданную подстроку

@MC_Shinoda · Регистрация: 18.04.2010

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

Всем привет. Вот программа: Заменить заданную подстроку в исходной строке на другую заданную подстроку. Заменяемая и заменяющая подстрока задаются строками которые могут иметь резную строку.
Я ее решил:

Pascal

Program NAH;
Type TArray=array[1..20] of string;
Var  StrArray:TArray;
     rez,s,ish,zam,ev1,ea:string;
     i,j,n,b,zn,dl,ap:integer;
Begin
ReadLn(S);
Write('Введите заменяемую подстроку: '); Read(ish); Write('На: '); ReadLn(zam);
n:=length(s);
b:=0;
For i:=1 to n do
begin
if (s[i]=' ') or (s[i]=',') or (s[i]='.') then b:=b+1;
end;
For j:=1 to b do
For i:=1 to n do
if (s[i]=' ') or (s[i]=',') or (s[i]='.') then
   begin
   StrArray[j]:=Copy(s,1,i);
   Delete(s,1,i);
   break;
   end;
For i:=1 to b do
begin
zn:=Length(StrArray[i]);
ev1:=copy(StrArray[i],1,zn-1);
   if ev1=ish then
      begin dl:=length(StrArray[i]);
            delete(StrArray[i],1,dl-1);
            insert(zam,StrArray[i],1);
      end;
end;
For i:=1 to b do
rez:=rez+StrArray[i];
WriteLn(Rez);
end.

Но она у меня для частного случая, к примеру я введу кот сел в котелок. и заменю кот на кошка то выдаст все правильно кошка сел в котелок. А вот если человек забудет ввести в конце точьку, то у меня программа начинает, последнее слово, кудато девать. В чем у меня тут проблема? Я енту задачу уже многими способами решаю эту я сегодня придумал, и не могу додуматся куда последнее слово она девает.

@ChameleoN · 30.11.2010, 18:19

а у тя прога точку за слово считает

@MC_Shinoda · 30.11.2010, 18:57 **[ТС]**

Сообщение от ChameleoN

а у тя прога точку за слово считает

а как в условие поставить чтобы слово последнее считал без точьки.

@ChameleoN · 30.11.2010, 18:58

if слово <> '.' then

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	30.11.2010, 18:19	2
	а у тя прога точку за слово считает 0

@MC_Shinoda 11 / 11 / 3 Регистрация: 18.04.2010 Сообщений: 94
	30.11.2010, 18:57 [ТС]	3
	Сообщение от ChameleoN а у тя прога точку за слово считает а как в условие поставить чтобы слово последнее считал без точьки. 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	30.11.2010, 18:58	4
	if слово <> '.' then 0

Опции темы