¿Cómo se generan enteros utilizando el método Put_Line?

Question

No puedo obtener este programa para compilar porque no parece imprimir variables enteras junto con cadenas en el método Put_Line. He revisado el código fuente en línea y funciona cuando lo hacen, así que, ¿dónde me estoy equivocando? Gracias por tu ayuda.

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 1

El problema es que usted está utilizando & con cadenas y números enteros. Pruebe uno de los siguientes:

Reemplazar Number dentro del parámetro de opción de venta con Integer'Image(Number)

O romper el Put_Line en los componentes que desea; por ejemplo:

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

Answer 2

Prueba esto:

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

Answer 3

Eres ya tienen with y use cláusulas de Ada.Integer_Text_IO, pero no estás de utilizarlo.

cambiar esta situación:

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

a esto:

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

(No me suelo poner múltiples sentencias en una sola línea, pero en este caso tiene sentido.)

Tenga en cuenta que Integer'Image antepone enteros no negativos a un espacio, algo que siempre me ha parecido enormemente molesto; Ada.Integer_Text_IO.Put no hace eso (a menos que lo solicite).

Usted podría definen sobrecargado "&" funciones, algo como esto:

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 "&"; 

lo que haría que su llamada original Put_Line válido, pero el múltiplo Put llamadas son probablemente mejor estilo.

Answer 4

Sobre la base de la respuesta (y un comentario en otra pregunta) de Keith Thompson, aquí es un programa completo de Ada que pueden cadenas de salida y enteros con &, utilizando Put_Line, pero sin los espacios que Integer'Image de otro modo Prefijo:

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;