Главная » Free Pascal » Расширенный вызов функций Free Pascal

0

Подобно языку С++ в программах на языке Free Pascal допускается вызов функций с игнорированием возвращаемого значения. Такой прием имеет смысл, когда функция помимо вычисления возвращаемого значения производит какие-то полезные дополнительные действия. В листинге 9.16 таким дополнительным дей- ствием в функции f_ex(y) является изменение аргумента y, если его значение от- рицательно.

   Листинг 9 .1 6 .  Программа  fun_ext                                             

program fun_ext;

{$X+}         {включение режима расширенного синтаксиса}

function f_ex(var x : integer):integer; begin

Result:=-1;

if x<0 then x:=0

else Result:=x+10;

end; var

y : integer=1; begin

writeln(‘y = ‘,y:3,’ f_ex(y) = ‘,f_ex(y)); y:=2*f_ex(y)-100;

writeln(‘y = ‘,y:3);

f_ex(y);    {расширенный вызов}

writeln(‘y = ‘,y:3,’ f_ex(y) = ‘,f_ex(y)); readln;

end.

Результаты работы программы fun_ext приведены на рис. 9.10.

Рис. 9.10. Расширенный вызов функции

Источник: Кетков, Ю. Л., Свободное программное обеспечение. FREE PASCAL для студентов и школьников, Ю. Л. Кетков, А. Ю. Кетков. — СПб.: БХВ-Петербург, 2011. — 384 с.: ил. + CD-ROM — (ИиИКТ)

По теме:

  • Комментарии