Как перенести значение из одной процедуры в другую? - PascalABC.NET
Формулировка задачи:
Есть две процедуры и мне надо перенести значение из одной локальной переменной в другую. Как это можно сделать?
Решение задачи: «Как перенести значение из одной процедуры в другую?»
textual
Листинг программы
var gb: integer = 0; procedure p1; begin writeln(gb); gb := 12; end; procedure p2; begin writeln(gb); gb := gb+1; end; begin gb:= 1; p1; p2; p1; end.
Объяснение кода листинга программы
- Объявлена переменная
gb
типаinteger
со значением 0. - Объявлены две процедуры:
p1
иp2
. - В процедуре
p1
выводится значение переменнойgb
, затем она присваивается значение 12. - В процедуре
p2
выводится значение переменнойgb
, затем она присваивается значениеgb + 1
. - В основном блоке кода переменной
gb
присваивается значение 1, затем вызывается процедураp1
, затем процедураp2
, затем снова процедураp1
. - Код завершается ключевым словом
end
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д