Система программирования Turbo Pascal

viagra Сайт досуга www.dosug-irkutsk.com | Сайт интим досуга в Красноярске prostitutki-krasnoyarsk.net


 

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


В Турбо Паскале есть возможность вызывать функцию и не использовать то значение, которое она возвращает. Иными словами, вызов функции может внешне выглядеть как вызов процедуры, например:

{$Х+} {Включаем расширенный синтаксис}

Function My.Func (var x : Integer) : Integer; 

begin

if x<0 then x:=0 

else MyFunc := x+10 

end; {MyFunc} 

var

i : Integer; 

begin {main} 

i := 1;

i := 2*MyFunc(i) -100; {Стандартный вызов функции} 

MyFunc ( i ) {Расширенный синтаксис вызова} 

end. {main}

Расширенный синтаксис делает использование функций таким же свободным, как, например, их использование в языке Си, и придает Турбо Паскалю дополнительную гибкость. С помощью расширенного синтаксиса нельзя вызывать стандартные функции. Компиляция с учетом расширенного синтаксиса включается активным состоянием опции EXTENDED SYNTAX диалогового окна OPTIONS/COMPILER (см. прил.1) или глобальной директивой компилятора {$Х+}.

 

Назад Начало