Ada

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Tableau à taille défini par l'user au runtime

hahahafr

Machete don't text

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

Publicité

Profil supprimé

bonjour,

Fait voir ton code. [:dawa]

hahahafr

Machete don't text

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

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

Profil supprimé

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.

hahahafr

Machete don't text

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

Profil supprimé

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é.

hahahafr

Machete don't text

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

Profil supprimé

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;

hahahafr

Machete don't text

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

Message cité 1 fois

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

hahahafr

Machete don't text

hahahafr a écrit :

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

Oui ça marche, parfait.

Publicité

hahahafr

Machete don't text

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

Profil supprimé

Oui.

hahahafr

Machete don't text

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

hahahafr

Machete don't text

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

hahahafr

Machete don't text

C'est sale cela dit.

Message cité 1 fois

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

Profil supprimé

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

hahahafr

Machete don't text

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;

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

hahahafr

Machete don't text

Excuses-moi, je parlais pour moi. Merci pour l'aide.

Message cité 1 fois

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

Profil supprimé

hahahafr a écrit :

Excuses-moi, je parlais pour moi. Merci pour l'aide.

C'est Ada. [:dawa]

FORUM HardWare.fr

Programmation

Ada

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

Sujets relatifs
Régler la taille de la zone de graphique	Variable tableau / Range("A1:A" & i) = montab - ne fonctionne pas
[RESOLU] Recuperer tableau associatif de ma session	problème exercice tableau
diviser tableau en plusieurs pages	modifier directement tableau page web
Copy de tableau de caractère dans un tableau de caractère.	HTML/CSS : Centrage tableau bug
Comment lire un tableau dans le registre
Plus de sujets relatifs à : Tableau à taille défini par l'user au runtime

Page générée en 0.111 secondes