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

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

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

Задача 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. Подсчитать, сколько раз встречается в тексте слово «кот».