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

Вторник, 19.03.2019, 06:46
Меню сайта
Наш опрос
Для чего нужно портфолио?
Всего ответов: 122
Новости...
Конкурсы
Позитивный контент-2017

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

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

Онлайн всего: 4
Гостей: 3
Пользователей: 1
Amidas
Besucherzahler
счетчик посещений
Среднее и дошкольное образование Центр профессионального роста Содружество

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

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

Подсчет и вывод символов

Задача 1. Подсчитать сколько букв «о» в тексте

USES Crt;
VAR
A: STRING [255];  KB N, I: BYTE;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  KB:=0;
  FOR I:=1 TO N DO
      IF (A[I]=’o’) OR (A[I]=’O’) THEN KB:=KB+1;
   WritLn(‘ Количество букв «о» =’,KB);
END.

Задача 2. Определить среднюю длину слова в тексте.

USES Crt;
VAR
  A: STRING [240];  KS, KB, N, I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  KS:=0; KB:=0;
  FOR I:=1 TO N DO
    IF (A[I]=' ') OR (A[I]=',') OR (A[I]='.') THEN KS:=KS+1 ELSE KB:=KB+1;
  IF (A[N]<>' ') AND (A[N]<>'.') AND (A[N]<>',') THEN KS:=KS+1;
  WriteLn('Средняя длина слова = ',KB/KS:3:0);
END.

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

USES Crt;
VAR
  A: STRING [240];  KS, N, I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите тест ');  ReadLn(A);
  N:=Length(A);
  IF A[1]=’А’ THEN KS:=1 ELSE KS:=0;
  FOR I:=2 THEN N
     IF  (COPY(A,I,2) =’ а’) OR (COPY(A,I,2)=’ А’ THEN KS:=KS+1;
  WriteLn(‘Количество слов, начинающихся на букву «а» =’,KS);
END.
.....................................................................................................................................
Практические задания
.....................................................................................................................................

  1. Подсчитать, сколько слов в тексте оканчивается на букву «а».
  2. Подсчитать, сколько букв «т» в последнем предложении.
  3. Подсчитать, сколько раз встречается в тексте слово «кот».
Поиск
Календарь
«  Март 2019  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031


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

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


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







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