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