Итак, продолжаем публиковать исходники к уроку №18 - символьный тип данных Char? в прошлый раз я выкладывал исходник программы Паскаль, которая выводила латинский алфавит. Сегодня же расскажу про исходник Pascal, который подсчитывает количество упоминаний символа, указанного Вами в введенной строке.
Исходный код программы Паскаль:
var a, b: char; //описание переменных
k:integer;
Begin
readln (b); //Считывание символа, с которым нужно сравнивать
while a<> '.' do begin ///Цикл с предусловием - WHILE, пока не точка
read (a); //Считывание символа, который сравниваем
if a=b then k:=k+1; //Если символ a равен b, то увеличиваем число на 1
end; //Конец цикла
writeln (k); //Вывод количества
end. //Конец программы
k:integer;
Begin
readln (b); //Считывание символа, с которым нужно сравнивать
while a<> '.' do begin ///Цикл с предусловием - WHILE, пока не точка
read (a); //Считывание символа, который сравниваем
if a=b then k:=k+1; //Если символ a равен b, то увеличиваем число на 1
end; //Конец цикла
writeln (k); //Вывод количества
end. //Конец программы
Решение, поставленной выше задачи на Паскаль, очень просто. Для того, чтобы посчитать сколько раз повторяется определенный символ в строке нужно:
1. Считать его (b)
2. Создать цикл с предусловием "Если символ не точка, то выполняем"
3. Считать символ из строки в цикле (a)
4. Сравнить символ со считанным ранее
5. Если a=b, то прибавить к счётчику (k) единицу
6. Вывести счётчик (количество)
Скачать исходник: kolichsymbol.pas
Про дисковые массивы Вы можете почитать на altastor.ru.