ptit probleme tout con +1 poukoi t'range plante ?

Marsh Posté le 30-08-2002 à 21:01:12

type CONTACT is new record
nom : string(1..20);
prenom : string(1..20);
tel : string(1..20);
end record;

si je fais:

put("Nom :" );
get_line(lenom,tn);
et pour stocker ca ds nouvo :
contact.nom(1..ta):=lenom(1..ta);
est ce que je suis oblige de rajouter qqchose ds mon record pour avoir pil poil ma chaine nom, ou je peux faire otrment ?

Message édité par swich le 30-08-2002 à 22:05:26

Reply

Marsh Posté le 30-08-2002 à 21:01:12

Reply

Marsh Posté le 30-08-2002 à 21:05:52

je vois pas tres bien ce que tu veux faire .... [:palpatine]

---------------
"OCPLB : On Casse Pas Le Binôme, 'moiselle Jade, Carlson & Peters, page 823 !"

Reply

Marsh Posté le 30-08-2002 à 21:09:37

y a des gens de blabla qui débarquent!

[:totoz]

Reply

Marsh Posté le 30-08-2002 à 21:12:29

ouai ct pas tres clair lol
bon je voudrai enregistrer une personne, donc Nom, prenom, tel
mais le pb c que tt les nom et prenoms auront pas la meme taille.
dc je voudrais pouvoir ecrire ds mon contact.nom simplement le nom rentre par l'utilisateur pour pouvoir le reutiliser plus tard.

Reply

Marsh Posté le 30-08-2002 à 21:27:14

voila ce que j'aimerai obtenir, mais ss devoir ajouter les espaces

Code :

with text_io;
use text_io;
procedure contact is
type CONTACT is record
nom : string(1..20);
prenom : string(1..20);
tel : string(1..20);
end record;
nouvo : contact;
lnom,pnom,lte : string(1..20);
tp,llte,tl : natural;
begin
put ("Nom" );
get_line(lnom,tl);
nouvo.nom(1..tl):=lnom(1..tl);
for i in tl+1..20 loop
nouvo.nom(i):=' ';
end loop;
put("prenom :" );
get_line(pnom,tp);
nouvo.prenom(1..tp):=pnom(1..tp);
for i in tp+1..20 loop
nouvo.prenom(i):=' ';
end loop;
put("tel :" );
get_line(lte,llte);
nouvo.tel(1..llte):=lte(1..llte);
for i in llte+1..20 loop
nouvo.tel(i):=' ';
end loop;
put(nouvo.nom);
new_line;
put(nouvo.prenom);
new_line;
put(nouvo.tel);
end;

Reply

Marsh Posté le 30-08-2002 à 22:06:47

dc je fais un t'range, et il me met : range attribut cannot be used in expression

alors que g fais :
i : integer ;
i:=t'range;

(t est declare comme suit :
t : array (1..3,1..1000) of string(1..20);

Reply

Marsh Posté le 30-08-2002 à 22:13:52

DarkLord a écrit a écrit :

y a des gens de blabla qui débarquent!

[:totoz]

je suis banni de blabla, et comme je connais bien Ada, je viens aider :jap: [:palpatine]

---------------
"OCPLB : On Casse Pas Le Binôme, 'moiselle Jade, Carlson & Peters, page 823 !"

Reply

Marsh Posté le 30-08-2002 à 22:15:16

swich a écrit a écrit :

dc je fais un t'range, et il me met : range attribut cannot be used in expression

alors que g fais :
i : integer ;
i:=t'range;

(t est declare comme suit :
t : array (1..3,1..1000) of string(1..20);

ca me parait bon ....
mais peut etre que ton probleme vient de l'affectation t(1..n) = bidule(1..n) ..mais faudrait que je regarde dans mes cours.

---------------
"OCPLB : On Casse Pas Le Binôme, 'moiselle Jade, Carlson & Peters, page 823 !"

Reply

Marsh Posté le 30-08-2002 à 22:16:47

a la limite tu peux parametrer ton type CONTACT. Son parametre serait la taille de ton attribut tableau.

---------------
"OCPLB : On Casse Pas Le Binôme, 'moiselle Jade, Carlson & Peters, page 823 !"

Reply

Marsh Posté le 31-08-2002 à 09:49:06

c'est quoi le problème ? c'est à la compile que ca marche pas ? c'est quoi le message d'erreur ?

Reply

Marsh Posté le 31-08-2002 à 09:49:06

Reply

Marsh Posté le 31-08-2002 à 11:07:34

benou a écrit a écrit :

c'est quoi le problème ? c'est à la compile que ca marche pas ? c'est quoi le message d'erreur ?

ben a la compile il me met : range attribut cannot be used in expression

fait chier pq c bien protaiqe le t'range pour savoir l'indice du dernier element du tablo

Reply

ptit probleme tout con +1 poukoi t'range plante ?

Sujets relatifs:

Leave a Replay