Program CH 5Program 1 Var X integer Procedure

Program CH 5_Program 1; Var X: integer; Procedure Change; Begin X: =1; End; {change} Begin {main program} X: =0; Change; End. {main program } THE RESULT X = 0

global ﻭﺍﻟﻤﺘﻐﻴﺮ ﺍﻟﺜﺎﻧﻲ ﻳﺴﺘﺨﺪﻡ ﺩﺍﺧﻞ ﺍﻷﺠﺮﺍﺀ ﻭﺍﻟﺒﺮﻧﺎﻣﺞ ﺍﻟﺮﺋﻴﺴﻲ ﻋﺎﻡ Program CH 5_Program 2; Var X: integer; Procedure Change; Var X: integer; Begin X: =1; End; {change} Begin {main program} X: =0; Change; end. THE RESULT X = 1

Program CH 5_Program 4; Var P 1, p 2, p 3, p 4, y: hnteger; Procedure power(x: integer; var p: integer); Var I: integer; Begin P: =1; For i: =1 to x do P: =p*x; End; Begin {main program} Power (10, p 1); Power (8, p 2); Power (6, p 3); Power (4, p 4); Y: =p 1+p 2+p 3+p 4; Writeln(y); End

ﺍﻟﺪﻭﺍﻝ FUNCTIONS ﺍﻟﻔﺮﻕ ﺑﻴﻦ ﺍﻟﺪﻭﺍﻝ ﻭﺍﻷﺠﺮﺍﺀ ﻫﻮ ﺍﻥ ﺍﻟﺪﺍﻟﺔ ﺗﻌﻴﺪ ﻗﻴﻤﺔ ﺑﺄﺴﻤﻬﺎ ﻋﻨﺪ ﺗﻨﻔﻴﺬﻫﺎ Program CH 5_Program 9; Var Y: longint; Function power (m: integer): integer; Var I, p: integer; Begin P: =1; For i: =1 to m do P: =p*m; Power: =p; End; {end function} Begin {main program} Y: = power (10) + power (8) + power (6) + power (4); Writeln(y); ; End.