Put_Lineメソッドを使用して整数を出力する方法は？

Question

Put_Lineメソッドの文字列とともに整数変数を出力しないように見えるため、このプログラムをコンパイルできません。私はソースコードをオンラインで見てきました。ご協力いただきありがとうございます。問題は、あなたが文字列と整数で&を使用していることである

Put_Line(Integer'Image(Number) & " x " & Integer'Image(Count) & " = " & Integer'Image(Result)); 

Answer 1

：

with Ada.Text_IO;      use Ada.Text_IO; 
with Ada.Integer_Text_IO;   use Ada.Integer_Text_IO; 

procedure MultiplicationTable is 

    procedure Print_Multiplication_Table(Number :in Integer; Multiple :in Integer) is 
     Result : Integer; 
    begin 
     for Count in 1 ..Multiple 
     loop 
      Result := Number * Count; 
      Put_Line(Number & " x " & Count & " = " & Result); 
     end loop; 
    end Print_Multiplication_Table; 
    Number : Integer; 
    Multiple : Integer; 

begin 
    Put("Display the multiplication of number: "); 
    Get(Number); 
    Put("Display Multiplication until number: "); 
    Get(Multiple); 
    Print_Multiplication_Table(Number,Multiple); 
end MultiplicationTable;` 

Answer 2

はこれを試してみてください。 次のいずれかを試してみてください。

Integer'Image(Number)

とプットのパラメータ内Numberを交換するか、あなたがしたいコンポーネントにPut_Lineを破ります。例：

-- Correction to Put_Line(Number & " x " & Count & " = " & Result); 
Put(Number); 
Put(" x "); 
Put(Count); 
Put(" = "); 
Put(Result); 
New_Line(1); 

Answer 3

あなたは既にAda.Integer_Text_IOためwithとuse句を持っている、しかし、あなたが実際にそれを使用していません。

変更この：これに

Put_Line(Number & " x " & Count & " = " & Result); 

：

Put(Number); Put(" x "); Put(Count); Put(" = "); Put(Result); New_Line; 

（私は通常、1行に複数の文を入れていないだろうが、この場合には、それは理にかなっています。）

Integer'Imageは空白で非負の整数を前に付加していることに注意してください。 Ada.Integer_Text_IO.Putはそれをしません（あなたがそれを求めない限り）。

あなたはこのよう"&"機能、何かを過負荷に定義することができます。

元 Put_Line呼び出しが有効になるだろう

function "&"(Left: String; Right: Integer) return String is 
begin 
    return Left & Integer'Image(Right); 
end "&"; 

function "&"(Left: Integer; Right: String) return String is 
begin 
    return Integer'Image(Left) & Right; 
end "&"; 

が、複数のPutの呼び出しは、おそらくより良いスタイルです。

Answer 4

キース・トンプソンからの回答のビル（および他の問題のコメントが）、ここではそのPut_Lineを使用して&持つことができ、出力文字列と整数、フルエイダプログラムがあるが、それInteger'Imageはなりそうプリペンドスペースなし：

with Ada.Text_IO; use Ada.Text_IO; 
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO; 

procedure Main is 

function lstrip(S: String) return String is 
begin 
    if S(S'First) = ' ' then 
     return S(S'First+1 .. S'Last); 
    else 
     return S; 
    end if; 
end; 

function "&"(Left: String; Right: Integer) return String is 
begin 
    return Left & lstrip(Integer'Image(Right)); 
end "&"; 

function "&"(Left: Integer; Right: String) return String is 
begin 
    return lstrip(Integer'Image(Left)) & Right; 
end "&"; 

begin 
    Put_Line("x=" & 42); 
end Main;