Как перенести значение из одной процедуры в другую? - 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.

Объяснение кода листинга программы

  1. Объявлена переменная gb типа integer со значением 0.
  2. Объявлены две процедуры: p1 и p2.
  3. В процедуре p1 выводится значение переменной gb, затем она присваивается значение 12.
  4. В процедуре p2 выводится значение переменной gb, затем она присваивается значение gb + 1.
  5. В основном блоке кода переменной gb присваивается значение 1, затем вызывается процедура p1, затем процедура p2, затем снова процедура p1.
  6. Код завершается ключевым словом end.

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы