Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 105 fois - Téléchargée 31 fois
procedure TForm1.Button1Click(Sender: TObject); var result,nb,divi:integer; begin result:=0; nb:= strtoint(edit1.text); divi:=strtoint(edit2.text); while nb > divi do begin nb:=nb-divi; inc(result); end; label1.caption := inttostr(result); end;
while nb > divi do
Par exemple 45 DIV 5 donne normalement 9 mais avec cette procedure cela donne 8 ce qui est faut!
Il vaudrais mieux la remplacer par:
while nb >= divi do
++
nb:= strtointDef(edit1.text, 0);
Comme celà, c'est complètement blindé.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.