Урок 12. Составление алгоритмов обработки строковых величин

Пример 1. Программа, которая проверяет, является ли строка записью числа. Если да, то находит сумму цифр числа, иначе выводит сообщение о том, что строка числом не является.

var St: string;
    n, k, s: integer;
begin
  writeln('введите текст');
  readln(St);
  n := length(St);
  k := 0; S := 0;
  for var i := 1 to n do
  begin
    if (st[i]>='0') and (st[i]<='9') then
    begin
      k := k + 1;
      s := s + StrToInt(st[i]);
    end;
  end;
  if k = n then
    writeln('сумма цифр =', S)
  else
    writeln('текст не число');
end.

Пример 2. Программа, которая заменяет в тексте каждую цифру 2 словом “два”.

Var st: string; 
    i: integer;
Begin
  writeln('введите строку');
  readln(st); 
  i := 1;
  while i <= length(st) do
  begin
    if (st[i] = '2') then
    begin
      //замена символов
      delete(st, i, 1);
      insert('два', st, i);       
    end;
    //переход к следующему символу
    i := i + 1;
  end;
  writeln('преобразованная строка: ');
  writeln(st);
End.

Пример 3. Программа, которая определяет, сколько гласных букв содержится в строке.

var
  s, g: string;
  n, k, p: integer;
begin
  writeln('введите слово');
  readln(s);
  n := length(s);
  g := 'ЁУЕЭОАЫЯИЮёуеэоаыяию';
  for var i := 1 to n do
  begin
    p := pos(s[i], g);
    if p <> 0 then
      k := k + 1;
  end;
  writeln('количество гласных - ', k);
end.

---

Задания

Задание 1. Составьте программу, вычисляющую, сколько раз в строке s встречается слово t. Строка s и слово t вводится с клавиатуры.

Задание 2. С клавиатуры вводится строка s. Составить программу, позволяющую найти количество цифр в строке.

Задание 3. Составьте программу, которая преобразует ваше имя в последовательность кодов символов.

Например.
Андрей → 192 237 228 240 229 233

Задание 4. Напишите программу, которая удалит из текста все гласные буквы.

Задание 5. С клавиатуры вводится строка с грамматическими ошибками. Составьте программу, позволяющую проверить правописание.  Выведите на экран количество допущенных ошибок и исправленную строку.

Пример ввода:
чащя, пуща, чяшка, чайник, гущя

Пример вывода:
Количество ошибок – 3
чаща, пуща, чашка, чайник, гуща

---

Дополнительное задание

Напишите программу для решения задачи. Строка представляет собой запись следующего вида: “(a*b+3)/c”. Выделить из записи числа и найти результат арифметических операций. Числа a, b и с – являются целыми и состоят не более чем из трех цифр.

Указание. При решении задачи обратите внимание на пример 9.14 на стр. 60 из учебного пособия.

---

Домашнее задание

§ 9.2-9.3 учебного пособия, ответить на вопросы

---

Форма отправки файлов

Форма видна только зарегистрированным пользователям.