Как перенести значение из одной процедуры в другую? - PascalABC.NET

Формулировка задачи:

Есть две процедуры и мне надо перенести значение из одной локальной переменной в другую. Как это можно сделать?

Решение задачи: «Как перенести значение из одной процедуры в другую?»

Листинг программы

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.

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

10 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы