Procedure "div"
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 067 fois - Téléchargée 31 fois
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.
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
- Delphi div
- Div delphi - Meilleures réponses
- Document.body.div - Conseils pratiques - Javascript
- Div in java - Forum - Java
- Procedure remplir un tableau en c - Forum - C / C++ / C++.NET
- Div qui suit le scroll - Guide
- Procedure stockée sql server ✓ - Forum - SQL
Commentaires
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
++
- Messages postés
-
4580
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 9 janvier 2013
28nb:= 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.