Кабинет Информатики

Обработка строк

Вставка символов

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

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.

Задача 2. Третье предложение в тексте заключить в скобки. 

USES Crt;
VAR
  A: STRING [200]; I,K,F: INTEGER;
BEGIN
 ClrScr;
 Write('Введите текст  '); ReadLn(A);
 I:=1; K:=0; F:=0;
 While (I<=Length(A)) DO Begin
    IF A[I]='.' THEN  K:=K+1;
    IF (K=2) AND (F=0) THEN Begin  Insert('(',A,I+1);  F:=1;  End;
    IF (K=3) AND (F=1) THEN Begin  Insert(')',A,I+1);  F:=0;  End;
    I:=I+1;
  End;
  WriteLn(‘Измененный текст:’);  WriteLn(A);
END.

Задача 3. Исправить ошибки в тексте. Во все слова «длиный» вставить букву «н».

USES Crt;
VAR
  S : STRING [50];  PZ, I: INTEGER;
BEGIN
  ClrScr;
  WriteLn(‘Введите текст’);  ReadLn(S);
  FOR I:=1 TO Length(S) DO
    IF Copy(S,I,6)='длиный' THEN Insert('н',S,I+3);
  WriteLn(‘Измененный текст:’); WriteLn(S);
END.
.....................................................................................................................................
Практические задания
..................................................................................................................................

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