4. Задачи на вставку символов.

1. В тексте исправить ошибки в словах длиный и Генадьевич.

Var

St: Sring[255];

I,P: Byte;

Begin

WriteLn(‘Введите строку символов ‘);

ReadLn(St);

I:=1;

While I<=Length(St) Do Begin

If Copy(St,I,8)=’ длиный ‘ Then Insert(‘н’,St,I+4);

If Copy(St,I,12)=’ Генадьевич ‘ Then Insert(‘н’,St,I+3);

I:=I+1;

End;

2. В заданном тексте проверить наличие запятой перед каждым союзом «но». При отсутствии – вставить.

Var

St: Sring[255];

I,K: Byte;

Begin

WriteLn(‘Введите текст ‘);

ReadLn(St);

S:=’, но ’;

I:=1;

While I<=Length(St) Do Begin

If (Copy(St,I,4)=’ но ’) and (St[I-1]<>’,’) Then Begin

Delete(St,I,4);

Insert(S,St,I);

I:=I+4;

End;

I:=I+1;

End;

WriteLn(St);

End.

3. В текст вставить символ пробел после каждого имеющегося символа пробел.

USES Crt;

VAR

A : STRING [255]; I: INTEGER;

BEGIN

ClrScr;

WriteLn('Введите текст'); ReadLn(A);

I:=1;

While (I<=Length(A)) DO Begin

IF A[I]=' ' THEN Begin Insert (' ',A,I); I:=I+1; End;

I:=I+1;

End;

WriteLn(‘Измененный текст:’); WriteLn(A);

END.

Примеры для самостоятельного решения:

1. Исправить ошибки в тексте: в словах «рож», «мыш», «доч», в конце поставить «ь».

2. В тексте в последнем предложении после слова «мама» вставить «и папа».

3. В тексте после слов «например» поставить «,».

4. В тексте во втором предложении после слов «Ура» поставить «!!!».

24