Tengo que hacer una práctica que debería ser relativamente sencilla, que trata unos grafos conexos, con unos pesos , etc.. La historia es que lo tenemos que hacer en ADA , algo en lo que nunca nos han explicado absolutamente nada.
He conseguido leer de un fichero y que me lo muestre por pantalla. El siguiente paso es que quiero con los datos de ese fichero , rellenar un array bidimensional.
El error me al compilar cuando quiero asignar el valor que leo , en la posicion del array(x,y). Vamos , que no se como asignar el valor que he leido a la posición del array que quiero.
WITH Text_IO;
USE Text_IO;
procedure Main is
f: Text_IO.File_Type;
N: Integer;
-- Instanciación del paquete genérico Text_IO.Integer_IO
-- con el tipo Integer.
package Int_IO is new Text_IO.Integer_IO (Integer);
nodos:Integer;
x:Integer;
y:Integer;
type A is range 0..100;
type B is range 0..100;
type tabla is array(POSITIVE range <>,
POSITIVE range <>) of INTEGER;
begin
Text_IO.Open(File => f,
Mode => Text_IO.In_File,
Name => "enteros.txt",
Form => "");
Int_IO.Get (File => f,
Item => nodos);
while not Text_IO.End_Of_File (f) loop
Int_IO.Get (File => f,
Item => N);
x:=N;
Int_IO.Get (File => f,
Item => N);
y:=N;
Int_IO.Get (File => f,
Item => N);
tabla(x,y):= x;
Int_IO.Put (N);
end loop;
Text_IO.Close(File => f);
null;
end Main;
A ver si me podeis echar una mano , gracias.
