Локализация имен

Лекция №13

Рассмотрим пример:

Найти периметры и площади трех равносторонних треугольников с заданными сторонами.

Описать процедуру TrianglePS(a, P, S), вычисляющую по стороне a равностороннего треугольника его периметр P и площадь.

Program Triangle;

const n=3;

var x,Square,Perimetr:real;

I:byte

procedure TrianglePS (a: real; var P, S: real);

Begin

P:=3*a;

S:=sqr(a)*sqr(3)/4

End;

Begin

for i:=1 to n do

Begin

write(‘Введите длину стороны треугольника: ');

Readln(x);

TrianglePS (x, Perimetr, Square);

writeln('Периметр: ', Perimetr:8:2);

writeln('Площадь: ',Square:8:2);

Writeln;

End;

End.

ЛОКАЛИЗАЦИЯ ИМЕН

Идентификатор (имя) называется глобальным по отношению к данной подпрограмме, если он объявлен в основной программе или в подпрограмме высшего уровня, которая включает в себя данную подпрограмму.

Идентификатор (имя) называется локальным по отношению к данной подпрограмме, если он объявлен внутри процедуры или функции

Областью действия (сферой видимости) идентификатора называется часть программы, где он может быть использован.

Область действия идентификаторов определяется местом их объявления.

Замечание: понятие "глобальные" и "локальные" следует понимать относительно – относительно конкретной процедуры или функции

Рассмотрим пример:

Program Scope;

Var A0, B0, C0: integer;

Procedure P1;

Var A1, B1, C1: integer;

Procedure P2;

Var A2, B2, C2: integer;

Begin

{ Допустимо использование как глобальных A0, B0, C0, A1, B1, C1

так и локальных А2, В2,С2 }

End;

Begin

{ Допустимо использование как глобальных А0, В0, С0,

так и локальных А1, В1, С1 }

End;

Begin

{ Допустимо использование только А0, В0, С0 }

End.

Дата добавления: 2015-07-26