From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.7 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC,SUBJ_ALL_CAPS autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,409d3c67c89c6b67,start
X-Google-Attributes: gid103376,public
From: jj091849@er.uqma.ca
Subject: PARAMETER MISMATCH
Date: 1998/02/17
Message-ID: <34E9D6D3.6396@er.uqma.ca>#1/1
X-Deja-AN: 325938295
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset=iso-8859-1
MIME-Version: 1.0
NNTP-Posting-Date: Tue, 17 Feb 1998 13:28:41 EST
Reply-To: jj091849@er.uqma.ca
Newsgroups: comp.lang.ada
Date: 1998-02-17T00:00:00+00:00
List-Id: <comp.lang.ada>


Bonjour j'ai une petit programme qui a une erreur de 
parameter mismatch � la lige 49 
getelem (elem,s_elem,aut_elem,ref_elem :OUT string); 
j'aimerais savoir si vous piuver m'aider ?
Merci 
===============================================
 WITH Text_Io; USE Text_IO;   
procedure identif is  
 PACKAGE ES_Entiers IS NEW Text_io.Integer_IO(Num=> Integer);   
 

elem:string(1..32);
s_elem:string(1..32);
aut_elem:string(1..32);
ref_elem:string(1..32);
str1:string(1..12);
l1,l2,l3,l4:natural:=0;


       

PROCEDURE getelem (ka: In natural;
                str1 :In string;
                elem,s_elem,aut_elem,ref_elem :OUT string) IS
   begin 
    elem:=   "                                 ";
    s_elem:= "                                 ";
    aut_elem:="                                 ";
    ref_elem:="                                 ";
    l1:=0;l2:=0;l3:=0;l4:=0;

    put(elem);
    new_line;
    get_line(elem,last=>l1);
    skip_line;
    put("source : ");
    get_line(s_elem,last=>l2);
    skip_line;
    if ka=1 then
        put("auteur ");
        get_line(aut_elem,last=>l3 );
     end if;   
        
    put("referances : ");
    get_line(ref_elem,last=>l4);
end getelem;

   ka:natural:=0;

begin 
 
    put("ka : ");
    es_entiers.get(ka);
    str1:="prenom      ";
    getelem (elem,s_elem,aut_elem,ref_elem :OUT string); 
        
   end identif;