Оберон-клуб «ВЄДАsoft»

 
MODULE Proba; 
 
IMPORT KernelLog;
 
VAR glob : ARRAY 2 OF SIGNED8;
 
 
PROCEDURE Колдуй(VAR param: SIGNED8);
BEGIN
KernelLog.String("Изначально glob[1] есть ");
KernelLog.Int(glob[1],0); KernelLog.Ln;
param := 7;
KernelLog.String("Поменяли param внутри процедуру и glob[1] стал ");
KernelLog.Int(glob[1],0); KernelLog.Ln;
END Колдуй;
 
PROCEDURE Дей*();
BEGIN
KernelLog.String("==============="); KernelLog.Ln;
Колдуй(glob[1]);
KernelLog.String("Вернулись из процедуры и glob[1] ожидаемо стал ");
KernelLog.Int(glob[1],0);
END Дей;
 
END Proba.Дей ~
 

Изначально glob есть 0
Поменяли param внутри процедуру и glob стал 7
Вернулись из процедуры и glob ожидаемо стал 7