URL: https://linuxfr.org/users/montaigne/journaux/pb-de-p%C3%B4inteur-en-pascal
Title: pb de pôinteur en pascal
Authors: Ontologia
Date: 2003年09月27日T14:26:04+02:00
Tags: 
Score: 0
Ya t'il un pascaleux dans le coinb ? Ca existe encore ? ;o) 
 
j'ai un petit problème : j'ai ecrit un réseau de neurone avec un objet neurone. 
lorsque je fait pointer une variable pointeur (Pneurone) sur un tableau de Pneurone et que j'accède ensuite à une varaible de l'objet via ptneurone, ça plante... 
 
comprend pas... 
 
Ptneurone := Reseau[indice]^ 
 
J'ai bien initialisé chaque pointeur, chaque liens. 
 
sa structure est la suivante : 
Type 
PNeurone = ^Neurone; 
Neurone = object { Objet neurone} 
constructor init(var Consdendrites : synapses;var sortie :Taxone); 
function process : Taxone; 
dendritesVal : array[1..250] of real{Taxone} ; 
dendrites : array[1..250] of Pneurone ; 
NeuroneID : string; 
NeuroneNum : integer; 
ValeurAxone : Taxone; 
Destructor apoptose; 
End; { prêt à l'addenda} 
 
 
 
Procedure ProcessReseau(var ResNeurone : ReseauNeurone; MatriceLettre : MatriceLecture); 
var iti, ity,cpt, num : integer; 
Ptneurone : Pneurone; (un pointeur sur l'object neurone) 
resultante : Taxone; 
 
Begin 
 
new(ptneurone); (avec ou sans, ça change rien) 
 
For iti := 1 to 24 do 
for ity := 1 to 24 do 
Begin 
resultante := ResNeurone[iti*24+ity]^.process; 
writeln('Neurone : ',iti*24+ity,' valeur :', resultante); 
for cpt := 1 to 200 do 
BEgin 
Ptneurone := ResNeurone[iti*24+ity]^.dendrites[cpt]; 
**Il plante ici					 num := ptneurone^.neuronenum;** 
writeln('Résultante',resultante,' | cpt: ', cpt); 
//writeln(Ptneurone^.dendrites[cpt]^.ValeurAxone); 
// := resultante; 
ENd; 
End; 
End; 
 
Le problème est le suivant : chaque accès à une valeur de ptneurone^.VARIABLE contenue dans l'objet ---> segmentation fault....
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/users/montaigne/journaux/pb-de-p%C3%B4inteur-en-pascal.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/users/montaigne/journaux/pb-de-p%C3%B4inteur-en-pascal.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>