IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Ada Discussion :

Erreur de Typage ADA


Sujet :

Ada

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Février 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2011
    Messages : 7
    Points : 5
    Points
    5
    Par défaut Erreur de Typage ADA
    Bonjour à tous ,

    Je suis débutant en programmation ada, je suis en auto-formation , je viens d'écrire un programme qui lit un entier et dit cet entier est premier ou pas?
    Seulement à la compilation j'obtiens que vous trouverez plus bas .
    Merci de bien vouloir m'aidez , car j'ai parcouru le passage types du manuel de Barnes (ADA 95 ) .Mais ça n'a pas marché.
    Merci d'avance.
    Voici le programme en question.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    ----------------------------------------------------------------------	    
    with ada.text_io , ada.Integer_text_io , Ada.Numerics.Elementary_Functions ;
     
     
    use  ada.text_io , ada.Integer_text_io , Ada.Numerics.Elementary_Functions ;
     
     
     
     
    PROCEDURE  N_premier  IS 
     
     
                   n ,d: Integer ;
     
              BEGIN
     
                  WHILE ( n < 3 ) LOOP
     
    	            put("Saisissez un entier au moins 3." ) ;
     
    	            get (n) ; 
     
    	      END LOOP;
     
    	           d:= 2 ;
     
    		WHILE (n MOD d  AND  d <= sqrt(n) ) LOOP 
     
     
     
    		       d:=d+1 ;
     
    		END LOOP ;
     
    		       IF (n MOD d)  THEN
     
    			   put( n ) ; put("n'est pas premier.") ;
     
    		           ELSE put( n ) ; put("est premier.") ; 
     
     
    	  	      END IF ;
     
     
    END N_premier;
     
    ----------------------------------------------------------------------
    A la compilation j'obtiens.
    gnatmake N_premier.adb

    gcc -c N_premier.adb

    N_premier.adb:15:12: warning: file name does not match unit name, should be "n_premier.adb"

    N_premier.adb:32:26: expected type "Standard.Boolean"
    N_premier.adb:32:26: found type "Standard.Integer"
    N_premier.adb:32:48: expected type "Standard.Float"
    N_premier.adb:32:48: found type "Standard.Integer"

    N_premier.adb:40:30: expected a boolean type
    N_premier.adb:40:30: found type "Standard.Integer"
    gnatmake: "N_premier.adb" compilation error

  2. #2
    Membre averti Avatar de Blackknight
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Février 2009
    Messages
    214
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2009
    Messages : 214
    Points : 383
    Points
    383
    Par défaut
    Bonjour,
    un des gros avantages du compilateur Ada est qu'il te donne plein d'informations. Lis-les bien et tu comprendras ce qu'il attend.
    Ta première erreur vient du fait que dans une boucle While, on attend une condition et une condition est toujours une expression booléenne.
    Dans ton cas, je doute énormément que le résultat de l'opération
    soit de ce type.
    Deuxième problème sur la même ligne. Relis et tu verras que le retour de sqrt n'est pas un entier mais un flottant. En conclusion, ta comparaison n'est pas autorisée sans faire un transtypage ce que je te déconseille au passage. Il y a une autre solution.
    Enfin, la dernière erreur est du même acabit puisqu'il s'agit d'un if et donc d'une condition booléenne.

Discussions similaires

  1. Erreur de typage
    Par Nutsh dans le forum Débuter
    Réponses: 1
    Dernier message: 26/02/2012, 18h13
  2. erreur compilation Paquettages ADA.
    Par barry_mohamed91 dans le forum Ada
    Réponses: 1
    Dernier message: 17/02/2011, 22h17
  3. Erreur de typage
    Par baolen dans le forum ASP
    Réponses: 1
    Dernier message: 24/03/2007, 16h45
  4. Réponses: 2
    Dernier message: 04/12/2006, 20h00
  5. [C#] Erreur de typage
    Par esperances dans le forum Windows Forms
    Réponses: 2
    Dernier message: 27/09/2004, 14h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo