Посчитать в последовательности количество символов, не являющихся пробелами - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не являющихся пробелами.

Решение задачи: «Посчитать в последовательности количество символов, не являющихся пробелами»

textual
Листинг программы
var s: String; n, i, j: Integer;
begin
  repeat
    ReadLn(s);
    i:=1; j:=Length(s);
    while (i<=j) do
      if s[i]='.' then Break
      else if s[i]<>' ' then Inc(n);
  until (i<=j) and (s[i]='.');
end.

Объяснение кода листинга программы

  1. Объявлены четыре переменные: s — строка, в которую считывается последовательность символов; n — счётчик количества символов, не являющихся пробелами; i, j — счётчики, использующиеся для перемещения по строке.
  2. В цикле repeat-until происходит считывание последовательности символов в строку s и подсчёт количества символов, не являющихся пробелами: Внутри цикла while (i<=j) do выполняется условие, при котором, если очередной символ является точкой, то цикл прерывается, иначе если символ не является пробелом, то к счётчику n прибавляется единица.
  3. Цикл while выполняется до тех пор, пока счётчик i меньше или равен счётчику j, который инициализируется длиной строки s.
  4. После выполнения всех условий, программа завершается.

Оцени полезность:

8   голосов , оценка 3.75 из 5
Похожие ответы