Procedure "div"

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

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)