SoloCodigo

Hola Jose Manuel,
                           Aqui te adjuto los ficheros sin errores

Comienzo por el .ads de especificacion


Aitor Fernández

2º fichero: Cuerpo del paquete

3º Procedimiento principal
Aitor

Hola Jose Manuel

No se lo que te pasará con tu codigo, pero yo he cogido tu codigo, le he añadido un par de cosas y funciona correctamente. Te adjunto a este mensaje y a los sucesivos dos los ficheros tal y como a mi me funcionan

Si otro particular Atentamente

Aitor

1º Declaracion del paquete.

Gracias a todos. Finalmente consegui solucionar el problema

Hola a todos,
                    Estoy haciendo una practica para la facultad y tengo un problemilla. La practica es sobre busqueda local pero con el algoritmo no tengo ningun problema. Mi problema viene al leer los datos del fichero de datos. Los datos que tengo que leer son numeros enteros seperados por 1 o varios espacios. Yo tengo hecho ya un codigo, pero ese codigo solo funciona cuando hay un unico espacio de separacion. Quisiera saber si me podeis ayudar a programar un codigo que lea de un fichero numeros enteros que pueden ser de varias cifras, normalmente cuatro o mas, y los guarde en un Array de Structs de c con campos de tipo entero (coordenada_x y coordenada_Y). Os mando un fichero de datos de mi problema para que os hagais una idea de lo que quiero. El pimer componente de cada fila del fichero es un identificador que no me importa para nada.

Hola Keseki,
                  Aqui te envio un codigo para leer un fichero de texto caracter a caracter y guardarlo en un vector.

with Ada.Text_Io;
use Ada.Text_Io;
procedure Leer_fichero is
f:File_Type;
C:Character;
i:integer:=0;
begin
Open (f,In_File,"nombre_Fichero.txt");
while not End_Of_File(f) loop
  while not End_Of_LIne(f) loop
    get (f,C);
    i:=i+1;
  end loop;
end loop;
declare
  type Vector_Numeros is array (1..i) of integer;
  Vect:Vector_Enteros;
  i:=1;
  while not End_Of_File loop
    while not End_Of_Line loop
      get(f,C);
      vect(i)=Character'Pos©-Character'Pos(0);
      i:=i+1;
    end loop;
  end loop;

Deberia funcionar esto

Atentamente

Hola amigo,
                  Aqui te va el segundo fichero

Puedes instalarte el compilador de Ada y mirar en la ayuda en la que viene muy detallado todos los metodos de cada paquete. El compilador de Ada se llama gnat y la version que te menciono tiene el entorno ADAGuide, a traves del cual tu podras encotrar toda la ayuda que necesitas.

Espero haberte servido de ayuda

Hola Tronk. Aqui te adjunto unos ficheros donde puedes encontrar tu problema resuelto.

Tienes que escribir esto en otro fichero llamado tipos.ads

package tipos is

type Nodo;
type A_Nodo is access Nodo;
type Nodo is record
Num:Natural;
sig:A_Nodo;
end record;

A continuacion escribe un fichero llamado Operaciones_Lista.ads donde pongas

with Tipos;
use Tipos;
Package Operaciones_lista is

Procedure Insertar_Elemento (L:in out A_Nodo;E:in Natural);

end Operaciones_Lista;

Si haces esto todo irá bien y el código del fichero adjunto se encargará de insertar el elemento al final de la lista.

Si quieres te envio tambien el codigo de un fichero de prueba por si quieres probar el programa (Yo ya lo he probado y funciona, creeme). El codigo es el que sigue.

with Ada.text_Io,Ada.Integer_Text_Io,Tipos,Operaciones_Lista;
use Ada.text_Io,Ada.Integer_Text_Io,Tipos,Operaciones_Lista;
Procedure prueba is

L:A_Nodo:=New Nodo;
Aux:A_Nodo;
Elem:natural:=5;
begin
L.Num:=4;
L.Sig:=NUll;
for i in reverse 1..3 loop
Aux:=New Nodo;
Aux.Num:=i;
Aux.sig:=L;
L:=Aux;
end loop;

Insertar_Elemento(L,Elem);

Put (" La lista resultado es: ");

Aux:=L;

While Aux/=Null loop

Put (Aux.Num,width=>0);
Put (",");
Aux:=Aux.sig;

end loop;

end Prueba;

La salida correcta de este programa es:
La lista resultado es:1,2,3,4,5,
Asi podras comprobar que efectivamente el fichero adjunto ha cumplido con su cometido.

Ha sido un placer ayudarte

Atentamente

Dime de que va tu practica y te intentare echar una mano.
aitorfer@tefonica.net

Hola Compis de foro,
                               Estoy haciendo una practica que implementa en Ada el algoritmo de busqueda local aplicado al problema de la planificacion  de tareas en una maquina.

En esta practica, para saber la factibilidad de una solucion (una solucion es una organizacion concreta de las tareas en las maquinas, siendo la optima la que minimice el tiempo de ejecucion de la ultima tarea) hay que tener en cuenta que se pueden producir interbloqueos entre las tareas que se ejecutan en diferentes maquinas. Mi representacion del problema es la siguiente

type opTarea is
record

tiempo: natural;
maquina:natural;

end record;

type Datos1 is array (1..Maxoperaciones) of opTarea;
type Datosp is array (1..Maxtareas) of Datos1;

type Solucion is array (1..Maxoperaciones)(1..Maxtareas) of integer;

Me gustaria saber si alguien podria ser tan amable como para proporcionarme un codigo fuente con el que pudiera llevar a cabo en Ada la labor de control de interbloqueos que se me requiere.

Atentamente

Hola Gelete

Una forma de borrar la pantalla aunque es un poco chapucera es realizar tantos new_line como filas podemos encontrar en la pantalla+1

gandalelgris