Пример программы с использованием функции

---

Задача.

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

Обсудим план решения.

• Такая задача может встречаться неоднократно, поэтому целесообразно использовать подпрограмму, которую впоследствии использовать и в других программах.
• Поскольку результатом является число ( целое – сколько раз ), то задачу лучше решать при помощи функции (целочисленной). В качестве исходных данных ( параметров ) функция должна получать заданный символ и заданную строку.
• Располагая этой информацией, можно написать заголовок функции. Пусть имя функции будет SkolkoRaz . Тогда ее заголовок может иметь такой вид:
  Function SkolkoRaz( Simvol: Char; Const Stroka: String): Integer;
• Существенно, что заголовок можно написать раньше, чем тело (операторы). Благодаря этому большие программы можно разбить на подпрограммы и раздать программистам для разработки, при этом кому-то поручить разработку программы в целом – по известным заголовкам. Const перед параметром Stroka означает, что функция не может изменять значение параметра. Рекомендуется применять Const если параметр имеет тип String или array и не должен изменяться в подпрограмме ( значение можно только читать ).
• Теперь завершим описание:

  Function SkolkoRaz ( Simvol: Char;  Const Stroka: String): Integer;
  var ii, Scet: Integer;
  begin  Scet := 0;
   for ii := 1 to Length(Stroka) do
     If Simvol = Stroka[ii] then Inc(Scet);
    SkolkoRaz := Scet;
  end;
  

• Выполняемые действия вполне очевидны: нужно перебрать по-порядку все символы строки - Stroka[ii], причем каждый из них сравнивать с заданным. Если равны - увеличить на 1 значение счетчика Scet. Для перебора используем цикл for, где переменная цикла ii изменяется от 1 до длины строки - Length(Stroka). Последний оператор присваивает значение счетчика имени функции.
• Главная программа - вводит изучаемую строку, заданный символ, вызывает функцию и выводит результат.

  program podschet;
  Function SkolkoRaz ( Simvol: Char;  Const Stroka: String): Integer;
  var ii, Scet: Integer;
  begin  Scet := 0;
   for ii := 1 to Length(Stroka) do
     If Simvol = Stroka[ii] then Inc(Scet);
    SkolkoRaz := Scet;
  end;
  var ss: string; sim: char; 
  begin
   writeln('Введите строку:');
   readln(ss);
   write('Введите символ -> '); readln(sim);
   writeln('В строке: ',ss, ' символ ',sim,' встречается ',
   SkolkoRaz(sim,ss),' раз');
  end.
   -------
    Результат работы:
  Введите строку:
  sdghfdbverbvebrbv
  Введите символ -> g
  В строке: sdghfdbverbvebrbv символ g встречается 1 раз