Технология обработки символьной информации - Pascal

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

1.Практическое задание: технология обработки символьной информации, задание на разработку программы по подсчету количества появлений конкретного символа в заданном фрагменте текста Завтра Экзамен... Привидите пожалуйста пример такой программы - она вроде простая...

Решение задачи: «Технология обработки символьной информации»

Листинг программы

var s:string;i, c:integer;ch:char;
begin
readln(s);readln(ch);c:=0;
for i:=0 to length(s)-1 do
if s[i]=ch then inc(c);
write(c);readln;
end.

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

Переменная s инициализируется как пустая строка.
Переменная i инициализируется как 0.
Переменная c инициализируется как 0.
Переменная ch инициализируется как пустой символ.
Ввод строки с помощью функции readln(s).
Ввод символа с помощью функции readln(ch).
Переменная c инициализируется как 0.
Используя цикл for от 0 до длины строки минус 1, проверяем каждый символ строки.
Если символ равен переменной ch, то увеличиваем значение переменной c на 1.
Выводим значение переменной c с помощью функции write(c).
Ввод символа с помощью функции readln.
Код завершается.