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

Вторник, 19.03.2019, 07:02
Меню сайта
Наш опрос
В какой социальной сети Вы проводите больше времени?
Всего ответов: 231
Новости...
Конкурсы
Позитивный контент-2017

Победитель Общероссийского рейтинга школьных сайтов
Знак качества Просвещения

Фонд 21 века
Рейтинг образовательных сайтов mega-talant.com
Эволюция - бесплатные конкурсы для педагогов и школьников
Фонд 21 века
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Besucherzahler
счетчик посещений
Среднее и дошкольное образование Центр профессионального роста Содружество

Проголосуй за наш сайт
Каталог webplus.info
Форма входа

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

Удаление символов

Задача 1. Удалить лишние пробелы между словами, оставив по одному.

USES Crt;
VAR
  S:STRING[255];  I,K: INTEGER;
BEGIN
  ClrScr;
  Write('Введите текст   ');  ReadLn(S);
  I:=1;
  While(I<=Length(s)) DO Begin
     IF Copy(S,I,2)='  ' THEN Begin  
                                                 Delete (S,I,1); 
                                                 I:=I-1;   
                                               End;
     I:=I+1;
  End;
  Write(S);
END.

Задача 2. В тексте удалить все слова, заканчивающиеся на букву «е».

USES Crt;
VAR
S: STRING [250];  PS,N,I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите текст  ');   ReadLn(S);
   S:= ' '+S+' ';
   FOR I:=1 TO Length(S) DO Begin
     IF S[I]=' ' THEN Begin
                                  PS:=I-1;
                                  IF S[PS]='E' THEN WHILE(S[PS]<>' ')  DO Begin
                                                                     Delete(S,PS,1);   PS:=PS-1;
                                                                  End;
      End;
   End;
   WriteLn(‘ Измененный текст:’);   Write(S);
END.

Задача 3.  Из текста удалить каждое второе слово. Слова разделены пробелом.

USES Crt;
Type  MAS= STRING [20];
VAR
  A : MAS;
  I,K: INTEGER;
BEGIN
 ClrScr;
 Write('Введите текст  ');  ReadLn(A);
 i:=1;
 While (I<=Length(A)) DO Begin
    IF A[I]=' ' THEN  Begin
                                  K:=I+1;
                                 While (A[K]<>' ') DO  Delete(A,K,1);
                                  I:=I+1;
    End;
    I:=I+1;
  End;
 WriteLn(‘Измененный текст:’); Write(A);
END.
.....................................................................................................................................
Практические задания
.....................................................................................................................................

  1. В третьем предложении текста удалить все слова «мир».
  2. Из строки символов удалить все гласные буквы.
  3. Из строки символов удалить заданное слово.
  4. Удалить все символы «!», следующие за вторым предложением.
Поиск
Календарь
«  Март 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031


Социальные сети
Портфолио

Полезные ссылки
  • Учительский портал
  • Педсовет.ORG
  • Дневник.ру
  • ProШколу.ru
  • Pedsovet.su
  • Завуч.инфо
  • Методисты.ру
  • Методсовет
  • УчМет
  • ИнформатикУрок
  • Менеджер образования
  • Сеть творческих учителей
  • Сообщество учителей ИКТ


  • Узнай свой IP адрес
    Перечень олимпиад на 2017-2018 учебный год







    Портал о суевериях, поверьях и приметах народов России