Tableau à taille défini par l'user au runtime

Marsh Posté le 01-12-2011 à 11:01:00

Bonjour, je suis étudiant novice en ADA et j'ai un problème: je souhaiterai créé un tableau qui aurai une taille fixe, mais que je ne connais pas avant l'execution. Comment faire? Je tourne en rond pour l'instant avec les non-contraint.

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 01-12-2011 à 11:01:00

Reply

Marsh Posté le 01-12-2011 à 11:53:47

bonjour,

Fait voir ton code. [:dawa]

Reply

Marsh Posté le 01-12-2011 à 11:55:32

Je l'ai pas sous la main, je le poste vers 14h. Merci.

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 01-12-2011 à 11:58:34

De toute manière on a pas 36 possibilités.

Pour déclarer une zone déclarative en cours d'implémentation c'est le mot clef "declare".
Et tu déclare ton tableau avec les bornes.

Reply

Marsh Posté le 01-12-2011 à 12:18:13

Tu veux dire dans le begin?

Code :

procedure main is
  n : Integer;
begin
  get(n);
declare
  tab : tableauNonContraint(1..n);
  -- comment clore cet déclaration?

Message cité 1 fois
Message édité par hahahafr le 01-12-2011 à 12:19:49

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 01-12-2011 à 12:20:55

hahahafr a écrit :

Tu veux dire dans le begin?

Code :

procedure main is
  n : Integer;
begin
  get(n);
declare
  tab : tableauNonContraint(1..n);
  -- comment clore cet déclaration?

Avec un nouveau begin et un end associé.

Reply

Marsh Posté le 01-12-2011 à 12:42:44

Comme ceci?

Code :

procedure main is
  n : Integer;
begin
  get(n);
declare
  tab : tableauNonContraint(1..n);
begin
  for i in tab'range loop
    get(tab(i));
  end loop;
end main;

Message cité 1 fois

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 01-12-2011 à 12:49:29

hahahafr a écrit :

Comme ceci?

Code :

procedure main is
  n : Integer;
begin
  get(n);
declare
  tab : tableauNonContraint(1..n);
begin
  for i in tab'range loop
    get(tab(i));
  end loop;
end main;

Non, il manque un end.

Comme ça :

Code :

procedure main is
  n : Integer;
begin
  get(n);
  declare
    tab : tableauNonContraint(1..n);
  begin
     for i in tab'range loop
       get(tab(i));
     end loop;
   end;
end main;

Reply

Marsh Posté le 01-12-2011 à 13:01:33

Ok merci beaucoup je teste ça tout à l'heure.

Message cité 1 fois

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 01-12-2011 à 13:43:35

hahahafr a écrit :

Ok merci beaucoup je teste ça tout à l'heure.

Oui ça marche, parfait.

Reply

Marsh Posté le 01-12-2011 à 13:43:35

Reply

Marsh Posté le 01-12-2011 à 15:51:23

Ce code est-il correct?

Code :

procedure main is
  -- var
begin
  -- do something
  declare
    -- var
  begin
    -- do something
  end;
  declare
    -- var
  begin
    -- do something
  end;
end main;

Message édité par hahahafr le 01-12-2011 à 15:51:32

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 01-12-2011 à 15:56:28

Oui.

Reply

Marsh Posté le 07-12-2011 à 17:26:02

En fait chaque bloc begin -> end; est indépendant vis-à-vis des variables. Apparement ils ne partagent pas les variables. C'est vraiment embettant.

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 07-12-2011 à 17:34:13

Simple en fait:

Code :

procedure main is
  -- var
begin
  -- do something
  declare
    -- var
  begin
    -- do something
  declare
    -- var
  begin
    -- do something
  end;
  end;
end main;

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 07-12-2011 à 17:34:28

C'est sale cela dit.

Message cité 1 fois

---------------
Feed-back hahahafr Achat/Vente

Reply

Marsh Posté le 07-12-2011 à 18:01:12

hahahafr a écrit :

C'est sale cela dit.

Sale toi même. Non mais tu t'es vu ?
Tu demande des idée aux autre et tu critique ... Tu te prend pour quoi ?
Allé, à la revoyure.

Message cité 1 fois

Reply

Marsh Posté le 07-12-2011 à 18:02:42

Voici mon code, si vous avez des idées pour améliorations je suis preneur. Merci.

Code :

with entrees_sorties; use entrees_sorties;
 
procedure exo3 is
  tailleTableau : Integer;
  type TableauDEntiers is array (Positive range <> ) of Integer;
  nbDeMultDe3 : Integer := 0;
begin
  get(tailleTableau);
  while (tailleTableau < 1) loop
    put("Entrez un entier positif : " );
    get(tailleTableau);
  end loop;
declare
  tab : TableauDEntiers(1..tailleTableau);
begin
  for i in tab'range loop
    get(tab(i));
    if (tab(i) mod 3 = 0) then
      nbDeMultDe3 := nbDeMultDe3 + 1;
    end if;
  end loop;
 
declare
  tabRes1 : TableauDEntiers(1..nbDeMultDe3);
  tabRes2 : TableauDEntiers(1..(tailleTableau - nbDeMultDe3));
  compteurRes1 : Integer := 1;
  compteurRes2 : Integer := 1;
begin
  for i in tab'range loop
    if (tab(i) mod 3 = 0) then
      tabRes1(compteurRes1) := tab(i);
      compteurRes1 := compteurRes1 + 1;
    else
      tabRes2(compteurRes2) := tab(i);
      compteurRes2 := compteurRes2 + 1;
    end if;
  end loop;
  put("Il y a " & Integer'Image(nbDeMultDe3) & " multiples de 3 : " );
  for i in tabRes1'range loop
    put(Integer'Image(tabRes1(i)) & ", " );
  end loop;
  put(" et " & Integer'Image(tabRes2'length) & " non multiples : " );
  for i in tabRes2'range loop
    if (i /= tabRes2'length) then
      put(Integer'Image(tabRes2(i)) & ", " );
    else
      put(Integer'Image(tabRes2(i)) & "." );
    end if;
  end loop;
end;
end;
end exo3;