Константы в Pascal

Константы — это некие данные, которые не меняются на протяжении всего времени выполнения программы.
Они нужны для удобного представления каких либо значений. Или для наглядности, например определить версию программы. В дальнейшем если захочется поменять это значение, не надо будет выискивать его по всему коду.
Константы в Pascal бывают 3 видов Константы, Зарезервированные константы, и Типизированные константы. Они объявляются в начале программы и не должны менять своего значения на протяжении всего цикла работы программы.

Обычные константы.

В основном используются обычные константы они объявляются в разделе описания констант const.
Эти константы нельзя изменить, на протяжении всего цикла программы.(Однако можно переопределить на момент выполнения функции или процедуры).
Пример:

program Constants;
const
version='1.00';
begin
Writeln(version);{В консоли будет результат "1.00"}
end.

program Constants;

const

version='1.00';

begin

Writeln(version);{В консоли будет результат "1.00"}

end.

Зарезервированные константы.

Зарезервированные константы уже определены и их можно начать использовать без объявления. Таких констант всего 3:

Идентификатор	Тип	Значение	Описание
True	boolean	True	«Истина»
False	boolean	False	«Ложь»
Maxint	integer	32767	Максимальное целое

Однако будьте осторожны если используете чужой код. Эти константы можно переназначить.
Пример:

Program Bad_Constan;
const
TRUE=FALSE;
begin
Writeln(TRUE); {В результате на консоль отправится результат FALSE }

Writeln(MAXINT);
end;

Program Bad_Constan;

const

TRUE=FALSE;

begin

Writeln(TRUE); {В результате на консоль отправится результат FALSE }

Writeln(MAXINT);

end;

Типизированные константы.

Это константы у которых тип определён явно. Из за этого есть возможность сменить значение этой константы в теле программы. Однако в Delphi для этого надо внести директивы компилятору: {$J+}
Пример:

 program Constants;
{$APPTYPE CONSOLE} //в Delphi Директива компилятору, что программа консольная
{$J+}        //в Delphi Директива компилятору, что можно менять значения типизированных констант
uses
SysUtils;
const
version:string ='1.00';
begin
version:='';
Writeln(version);
Readln;
end.

program Constants;

{$APPTYPE CONSOLE} //в Delphi Директива компилятору, что программа консольная

{$J+} //в Delphi Директива компилятору, что можно менять значения типизированных констант

uses

SysUtils;

const

version:string ='1.00';

begin

version:='';

Writeln(version);

Readln;

end.

Константы в Pascal

Обычные константы.

Зарезервированные константы.

Типизированные константы.

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

Добавить комментарий Отменить ответ