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

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

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

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

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

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

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

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

Сложные варианты 

Задача 1.  Определить, является введенное слово «перевертышем» (потоп, казак).

USES Crt;
 VAR
   A, B : STRING [20];  I, N: BYTE;
BEGIN
  ClrScr;
  Write('Введите слово  ');  ReadLn(A);
  N:=Length(A);
  FOR I:=N DownTo 1 DO
      B:=B+A[I];
   IF B=A THEN Write('Перевертыш') ELSE Write('Не перевертыш');
END.

Задача 2. Подсчитать количество слов, в которых буква «а» входит не менее двух раз (слова разделены пробелом).

USES Crt;
VAR
  A : STRING [255];  KS, KB, I, N : INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст ');  ReadLn(A);
  A:=A+' ';
  N:=Length(A);
  KB:=0; KS:=0;  I:=1;
  While (I<=N) DO Begin
     While (A[I]<>' ') DO Begin
        IF (A[I]='a') OR (A[I]='A') THEN KB:=KB+1;
        I:=I+1;
     End;
     IF KB>2 THEN KS:=KS+1;
     KB:=0;
     I:=I+1;
  End;
  WriteLn(' Количество слов, в которых буква "а" встречается не менее двух раз =  ',ks)
END.

Задача 3. Найти слово в тексте, содержащее наибольшее количество букв «м».

USES Crt;
VAR
  A, D : STRING [255];  I, KB, MKB, K, MK, NP, MNP : INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите текст');  ReadLn(A);
  I:=1; KB:=0; MKB:=0; NP:=1;
  While(I<=Length(A)) DO Begin
      While(A[I]<>' ') DO Begin
          IF A[I]='м' THEN KB:=KB+1;
          K:=K+1;  I:=I+1;
      End;
      IF MKB<KB THEN Begin  MKB:=KB;  MNP:=NP;  MK:=K;  End;
      NP:=I+1; KB:=0; K:=0;
      I:=I+1;
  End;
  D:=Copy(A,MNP,MK);
  WriteLn('Слово с максимальным количеством букв "м" -  ',D);
END.

Задача 4. Проверить правильность написания круглых скобок.

Var
   A:String[50];
   K,I,N:Integer;
BEGIN
   WriteLn(‘Введите тест’);
   ReadLn(A);
   N:=Length(A);
   FOR I:=1 TO N DO Begin
      IF A[I]=’(‘ THEN=N+1;
      IF A[I]=’)‘ THEN N:=N-1;
      IF N<0 THEN Begin WriteLn(‘Неверно’); Break; End;
   End;
   IF N=0 THEN WriteLn(‘Верно’) ELSE WriteLn(‘Неверно’);            
END.
.....................................................................................................................................
Практические задания
.....................................................................................................................................

  1. Вывести на экран самое длинное слово из введенного текста.
  2. Определить, имеются ли в строке символов все буквы, входящие в введенное слово.
  3. Из текста удалить все слова, начинающиеся и оканчивающиеся на одну и ту же букву.
  4. В тексте найти и подсчитать количество слов, у которых первый и последний символы совпадают между собой (слова разделены пробелами).  

 

Поиск
Календарь
«  Июнь 2019  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930


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

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


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







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