Ada

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : ptit probleme tout con +1 poukoi t'range plante ?

swich

snps

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

Publicité

botman

Cubeur

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

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

darklord

You're welcome

y a des gens de blabla qui débarquent!

[:totoz]

swich

snps

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.

swich

snps

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;

swich

snps

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);

botman

Cubeur

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 !"

botman

Cubeur

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 !"

botman

Cubeur

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 !"

benou

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

Publicité

swich

snps

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

FORUM HardWare.fr

Programmation

Ada

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

Sujets relatifs
[C/C++ sous UNIX] problème de buffer avec fgets et cin !	[CSS + XHTML strict] Problème de tableau dans un cellule d'un tableau.
Problème avec des espaces...	[php]problème entre php et iss
Asp - Access- Probleme avec INSERT	problème de requête (interbase - delphi)
probleme d'affichage d'un fond sur une page wen	problème sous delphi tous est inactif....
Alors la Big Probleme de chez big probleme	<DIV> : problème de position absolue et relative [résolu]
Plus de sujets relatifs à : ptit probleme tout con +1 poukoi t'range plante ?

Page générée en 0.038 secondes