Песни о Паскале

N:=0; { обнуляем счетчик }
for i:=1 to Length(str) do
      if str[i]=ch then N:= N+1;
Count:= N; { передаем результат через имя функции }
end;
var S: string;
begin {--- главная программа ---}
S:='PASCAL';
Writeln( Count(S, 'A'));
Writeln( Count('BANAN', 'N') + Count('BANAN', 'B'));
Readln;
end.

Возврат строк

Вернемся к программе «P_20_1», заменяющей символы «A» на символы «B». Помните сколько крови она попортила прежде чем заработать? Заменив процедуру Scan на функцию с тем же именем, мы решим проблему возврата результата. Результат, разумеется, должен иметь строковый тип. Обратите внимание на то, что ключевые слова VAR или CONST в заголовке не указаны, а потому параметр arg можно употребить в теле функции в качестве локальной переменной.

{ P_23_2 – замена символов в строке с применением функции }
function Scan(arg : string): string;
var k: integer;
begin
      for k:=1 to Length(arg) do
      if arg[k]=’A’ then arg[k]:=’B’; { замена в параметре arg }
      Scan:= arg;
end;
var S: string; k: integer;
begin {--- главная программа –--}
      for k:=1 to 3 do begin
      Write(’Введите строку: ’); Readln(S);
      Writeln(Scan(S));
      end;
      Readln;
end.

Когда результат не важен

Хорошая функция возвращает правильный результат, а отличная делает ещё что-нибудь полезное. Программисты нередко поручают одной функции несколько дел, вот пример: напишем функцию Swap (обмен) булевого типа, принимающую ссылки на две переменные. Функция должна сравнить эти переменные и вернуть TRUE, если первая из них окажется больше второй. Мало того, в этом случае она должна обменять значения этих переменных (как в процедуре Swap, рассмотренной ранее). Короче, функция будет такой.

function Swap( var a1, a2 : integer) : Boolean;
var t: integer;
begin
      if a1 > a2
      then begin
      { обмен значений переменных }