Discussion :

[yp036871]

Voilà j'ai un fichier texte du genre :

REMARK ASPIRIN
ATOM 1 C 1 -1.920 -1.004 -1.604 1.00 -1.00
ATOM 2 C 1 -1.388 -2.184 -1.008 1.00 -1.00
ATOM 3 C 1 -0.076 -2.184 -0.476 1.00 0.00
… etc…
ATOM 20 H 1 -1.020 2.392 1.312 1.00 0.00
ATOM 21 H 1 0.352 1.460 2.092 1.00 0.00
TER 22 1
END
Je dois récupérer les informations dans des vecteurs jusqu'à la valeur "TER". On me donne comme aide le bout de code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Var f :text ;
	s : char ;   			{ caractère destiné à recevoir le symbole chimique }
	x, y, z : real ;			{ coordonnées cartésiennes de l’atome }
	ch1 : packed array [1..13] of char ;	{ 13 caractères précédent le symnole chimique }
	ch2 : packed array [1..18] of char ; {18 caractères suivant le symnole chimique et précédent les coordonnées}
 
readln(f, ch1,s,ch2,x,y,z) ;

Il suffira de tester ch1[1] pour détecter la valeur sentinelle.

Lors de la compilation de mon programme, il ressort l'erreur que les variables ch1 et ch2 ne peuvent lue ou ecrite dans un fichiers. coment puis-je faire autrement pour passer au-dessus des espaces entre les dnnées intéressantes?

[M.Dlb]

Non TP ne sait pas écrire des tableaux dans un fichier, ni même les lire...
Il faut donc passer par des procédures... Par exemple, une procédure qui lit un à un les caractères et les place dans le tableau de son choix...

a+

[yp036871]

J'ai trouvé la solution, j'utilise free pascal comme compilateur et ça marche.
Merci