damomospike
Messages postés25Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention19 janvier 2005
-
19 janv. 2005 à 21:19
JulioDelphi
Messages postés2226Date d'inscriptiondimanche 5 octobre 2003StatutMembreDernière intervention18 novembre 2010
-
19 janv. 2005 à 22:11
bonjour a tous!
voila je voulais apprendre à creer ma propre procedure, en cherchant j'ai a peut prés trouvé se qu'il falait faire mais y me manque quelque chose puisque mon code plante!
le voici:
cs_sim51
Messages postés240Date d'inscriptiondimanche 31 octobre 2004StatutMembreDernière intervention31 décembre 20062 19 janv. 2005 à 22:09
Heu j'ai oublié aussi de te dire qu'il fallait aussi écrire quand tu
implémente ta procédure d'écrire Tform1.cucou(nbr1, nbr2: integer ; var
result: integer);
begin
result := nbr1*nbr2;
end;
En effet tu as déclaré ta procédure en privé ( si tu l'avais mise en public tu n'aurais pas eu ce prob )
N'oubliez pas de cliquer sur réponse acceptée si la réponse vous convient !!!
cs_sim51
Messages postés240Date d'inscriptiondimanche 31 octobre 2004StatutMembreDernière intervention31 décembre 20062 19 janv. 2005 à 22:07
C'est normal, tu utilise mal le mot var dans les procédures. En effet
tu dois l'utiliser quand tu change la valeur de la variable dans ta
procédure. Or tu ne change pas tes Nb1 et Nb2 tandis que tu change ton
result.
Donc au lieu de procedure cucou(var nbr1: integer ; nbr2: integer ; result: integer) tu dois mettre
procedure cucou( nbr1: integer ; nbr2: integer ; var result: integer)
( tu peux même écrire
procedure cucou( nbr1,nbr2: integer ;var result: integer))
Tu avais une erreur car puisque nbr2
était déclaré comme étant une variable, quand tu appelais ta procédure
cucou(3,4,nbr), 3 et 4 son des integers et pas des variables !!
Je te conseil de revoir tes cours de pascal
ou d'acheter un livre sur le pascal, pour apprendre les bases ( il y a
une section livre sur le site ).
Voilà, bon courage et bonne prog !!
N'oubliez pas de cliquer sur réponse acceptée si la réponse vous convient !!!