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

Понедельник, 21.01.2019, 10:33
Меню сайта
Наш опрос
Есть ли в Вашем кабинете интерактивная доска?
Всего ответов: 223
Новости...
Конкурсы
Позитивный контент-2017

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

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

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

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

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

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

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

Задача 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. В тексте во втором предложении после слов «Ура» поставить «!!!».
Поиск
Календарь
«  Январь 2019  »
ПнВтСрЧтПтСбВс
 123456
78910111213
14151617181920
21222324252627
28293031


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

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


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







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