История изменений

Исправление red75prim, 11.05.20 22:03 (текущая версия) :

О как. Получение значений неинициализированных переменных в типобезопасность похоже не входит.

with Ada.Text_IO; use Ada.Text_IO;

procedure Hello is
    type U16 is range 0..65535;
    
    procedure Oops(FromNowhere: out U16) is
    begin
        Put_Line("Oops");
    end Oops;

    FromNowhere: U16;
begin
    Oops(FromNowhere);
    Put_Line("Hello, world!" & U16'Image(FromNowhere));
end Hello;

Исправление red75prim, 11.05.20 21:59:

О как. Получение значений неинициализированных переменных в типобезопасность похоже не входит.

with Ada.Text_IO; use Ada.Text_IO;

procedure Hello is
    type U16 is range 0..65536;
    
    procedure Oops(FromNowhere: out U16) is
    begin
        Put_Line("Oops");
    end Oops;

    FromNowhere: U16;
begin
    Oops(FromNowhere);
    Put_Line("Hello, world!" & U16'Image(FromNowhere));
end Hello;

Исходная версия red75prim, 11.05.20 21:59:

О как. Получение значений неинициализированных переменных в типобезопасность похоже не входит.

with Ada.Text_IO; use Ada.Text_IO;


procedure Hello is
    type U16 is range 0..65536;
    
    procedure Oops(FromNowhere: out U16) is
    begin
        Put_Line("Oops");
    end Oops;

    FromNowhere: U16;
begin
    Oops(FromNowhere);
    Put_Line("Hello, world!" & U16'Image(FromNowhere));
end Hello;