Question

How to use global variable in Pascal

Answer 1

program GlobalVariableExample;

var
  Counter: Integer; // Global variable

procedure IncrementCounter;
begin
  Counter := Counter + 1;
  WriteLn('Counter value: ', Counter);
end;

begin
  Counter := 0; // Initialize the counter
  
  IncrementCounter; 
  IncrementCounter; 
  IncrementCounter;
  IncrementCounter;
end.



(*
run:

Counter value: 1
Counter value: 2
Counter value: 3
Counter value: 4

*)

 

70+ SQL courses for beginners and professionals