Je dois faire un projet info en ada mais je seche completement donc si vous avez des suggestions ca pourrait m'aider. Voila le sujet:
 
Partie1:
Pour gérer le traffic maritime un port veut connaitre la longueur de quai prevu pour chaque emplacement: ecrire l'algorithme qui a partir de la longueur du bateau determine l'emplacement le plus adapté
 
Partie2:
Chaque emplacement est represente par une structure indiquant la longueur du quai, la profondeur de l'eau, le type d'equipement et un bolleen qui precise si la place est libre ou pas. Le type d'equipement est un entier qui code les possibilites(ex: 1=cerealier,2=voilier...). On veut effectuer les operation:
-ajouter un emplacement
-connaissant le numero d'un emplacement, afficher ses informations
-affecter un emplacement a un bateau a partir de ses caracteristiques.
-afficher tous les emplacements avec tous les renseignements.
 
voila merci bcp.

ben, commence...

http://www.netalya.com/fr/Algo-intro.asp

 

 
C'est quoi ce sujet, on est dans un langage tellement fortement typé que ça en devient indéce"nt. On crée un type énuméré !
 

c surtout pour la premiere question que je bloque: ajouter un emplacement.
Je vois pas trop ce que je dois faire(tableau ou pas...).
 
Sinon la premiere partie pas de probleme.

sinon personne ne peut m'aider pour ajouter un emplacement???

non, on est des maichants.
 
 
ou alors, tu nous montre ce que tu as fait et le point où ça bloque dans ton code.

voila ma premiere partie qi marche impec:
 
with Text_Io;use Text_Io;
procedure Projet is
   --determine le meilleur eplacement du quai suivant la longueur du bateau.
   Package entier_Es is new Integer_Io(Integer);use Entier_Es;
   --donnees:
   Longueur:Integer;
   longueur2:integer;
   --traitement:
   procedure Meilleur_Emplacement(Longueur: out Integer;longueur2:out integer)is
      --determine un emplacement suivant la longueur du bateau.
   begin
      Put("Bienvenue dans notre port" );
      New_Line;
      Put("Afin de determiner le meilleur emplacement veuillez saisir la longueur en metre de votre bateau" );
      Get(Longueur);
      Put("Afin de confirmer veuillez retaper la taille du bateau" );
      Get(Longueur2);
      if Longueur/=Longueur2 then
            Put("Veuillez entrer les memes valeurs SVP" );
         else
         if Longueur<5 then
            Put("Le meilleur emplacement pour votre bateau est le numero 1" );
         elsif Longueur<10 then
            Put("Le meilleur emplacement pour votre bateau est le numero 2" );
         elsif Longueur<15 then
            Put("Le meilleur emplacement pour votre bateau est le numero 3" );
         elsif Longueur<20 then
            Put("Le meilleur emplacement pour votre bateau est le numero 4" );
         elsif Longueur>20 then
            Put("Le meilleur emplacement pour votre bateau est le numero 5" );
         end if;
      end if;
       
   end Meilleur_Emplacement;
   
   --algo principal:
begin
   Meilleur_Emplacement(Longueur,longueur2);
end Projet;
 
 

mais je bloque sur le debut de la deuxieme partie

nul
 
- décorrèle la saisie des infos avec la résolution du problème
- pas la peine de doubler la saisie, ça fait plus chier qu'autre chose
- au lieu d'utiliser une série de if , utilise des ranges
- ça manque d'exception. Que se apsse-t'il s'il n'y a pas d'emplacement pour un bateau ?
- je suis contre les use, mais c'est une question de gout
- pouraquoi les taille d'emplacement dsont précablées à ce point ?

ok je vois ce que tu veux dire
 
mais bon la premiere partie c juste une approche.
-ok pour doubler la saisie ca sert a rien. Je vais la changer.
-que dois faire pour deja fixer le nombre de place pour un emplacement?
-la taille des emplacements c nous qui choisissons: ce n'est pas la l'interet du projet.
 
Sinon que me conseilles tu pour ameliorer tous ca?