numbers - adaの数字の中の1桁を参照するにはどうすればよいですか？

Question

1234のような番号を持っている場合、その番号の2桁目を具体的に参照するにはどうすればよいですか？数値は変数として格納され、var、width=>2は12になります。2を分離する方法が必要です。

Answer 1

Put別の方法として、への書き込みのバリエーションも検討してStringください。

with Ada.Integer_Text_IO;
with Ada.Text_IO;
...
declare
   Var : constant Integer := 1234;
   Result : String(1 .. 4);
begin
   Ada.Integer_Text_IO.Put(Result, Var);
   Ada.Text_IO.Put(Result(2));
end;

Answer 2

var、width=>2の意味がわかりません。これはAdaではありません。

変数がのサブタイプである場合、次のIntegerように言うことができます。

declare 
   Var_As_String := Integer'Image(Var);
   Second_Digit : Character := Var_As_String(3);
begin
   -- Use second digit here.
end;

インデックスは3、の結果でImage最初の文字がマイナス記号またはスペースのいずれかであるためであることに注意してください。