http://www.adaconcept.com/programs/elfedesesatadas.adb
--Rotter Gyorgy
--tomb elfedese fuggvennyel
--parameteratadas bemutatasa
with Ada.Text_IO;
use Ada.Text_IO;
procedure elfedesesatadas is
type TombTipus is array (1..5) of integer;
t: TombTipus := (others => 7);
--ha [*] -ot ide tesszuk, le sem fordul!!! ne hidd el, probald ki!!! :)
begin
declare
-- itt fedjuk el a t tombot (azaz innentol nem erhetjuk el a t nevvel, egeszen a blokk vegeig)
--mert a fuggveny neve is t, meg parameter meg... :) :)
function t(x: Integer) return Integer is --| [*]
begin --|
return x; --|
end t; --|
begin
Put("blokkon belul t(2)=" & integer'image(t(2))); -- =2
New_Line;
end;
Put("blokkon kivul t(2)=" & integer'image(t(2))); -- =7
----------------------------------------------------
declare
i:integer := 7; -- i=7
procedure kibemeno(x:in out integer) is
begin
put("belul i=" &integer'image(i)); -- i=7
x:=0;
put(" belul x=" & integer'image(x)); -- x=0
put(" belul i=" &integer'image(i)); -- i=7 !!!!!!!!!!
end kibemeno;
begin
new_line;
kibemeno(i);
new_line;
put("kivul i=" &integer'image(i)); -- i=0
new_line;
end;
end elfedesesatadas;