Procedure "div"

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 994 fois - Téléchargée 31 fois

Commenter

Contenu du snippet

He oui, la procedure div un petit exercice qui m'a fait quand même un peu reflechir.

Le principe est assez simple, on soustrai un nombre de fois x le diviseur au nombre de base et se nombre x est le réultat.

Source / Exemple : 


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;

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 24 -
Impossible de planter sauf si les propriétés Text des TEdit contiennent autre chose que des chiffres. Aussi je suggère de remplacer les fonction StrToInt par des StrToIntDef :
nb:= strtointDef(edit1.text, 0);
Comme celà, c'est complètement blindé.
Signaler
g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010
 -
ok merci je ne connaissais pas la transformation StrToIntDef
++
Signaler
cs_slowpoke
Messages postés
1
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
14 mai 2002
 -
Erreur à la ligne

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
Signaler
g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010
 -
a oui bon c bizzard je verifierai merci
Signaler
g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010
 -
a oui bon c bizzard je verifierai merci
S'inscrire maintenant

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.

Du même auteur (g0belin)