Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
лекции программирование ОЗО.doc
Скачиваний:
38
Добавлен:
13.04.2015
Размер:
363.01 Кб
Скачать

1) Program prim1;

var x, y, z: integer;

procedure newval;

var x, y: integer; {x и y- локальные параметры}

begin

x:=1; y:=1

end;

Begin x:=0; y:=0; {основная программа}

newval;

z:=x+y;

writeln(z)

End.

Результат z=0, так как x и y, используемые в основной программе, остаются равными нулю.

2) program prim2;

var x, y, z: integer;

procedure newval;

begin

x:=1; y:=1

end;

Begin

x:=0; y:=0;

newval;

z:=x+y;

writeln(z)

End.

Результат z=2, так как x и y – глобальные параметры.

35