begin process at 2012 05 27 18:08:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 > PROCEDURE "DIV"

PROCEDURE "DIV"


 Information sur la source

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Niveau :Débutant Date de création :25/04/2002 Date de mise à jour :25/04/2002 22:06:53 Vu :2 828
Auteur : g0belin

Ecrire un message privé
Site perso
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

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

  • 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; 
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;



 Sources du même auteur

Source avec Zip Source avec une capture CHIFFRE ARABE --> CHIFFRE ROMAIN
Source avec Zip Source avec une capture CALCULE DE PI PAR LA METHODE DE MONTECARLO
Source avec Zip CHERCHEUR & VERIFICATEUR DE NB 1ER
Source avec Zip CANVAS | RECTANGLE D'UN TIMAGES
Source avec Zip Source avec une capture JEU: TROUVER LE NOMBRE INCONNU DE 0-100
Toutes les sources de g0belin

 Sources de la même categorie

Source avec Zip Source avec une capture MANIPULATION TRÉS RAPIDE DE TRÉS GRANDES NOMBRES ENTIERS + F... par kamel78
Source avec Zip CONVERSION OF (HEX BIN OCT) TO EACH OTHER par MSBMW
Source avec Zip Source avec une capture RESOLUTION EQUATIONS DEGRE "N" + CALCULETTE SCIENTIFIQUE par pseudo3
Source avec Zip Source avec une capture DEUX BIBLIOTHÈQUES POUR CALCULER AVEC DES ENTIERS TRÈS GRAND... par Rekin85
Source avec Zip Source avec une capture MOTEUR PHYSIQUE 2D CHIPMUNK.. EN DELPHI! par Bacterius
Toutes les sources de la catégorie Maths

Commentaires et avis

Commentaire de Delphiprog le 25/04/2002 22:18:22 administrateur CS

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é.

Commentaire de g0belin le 25/04/2002 22:25:50

ok merci je ne  connaissais pas la transformation StrToIntDef
++

Commentaire de slowpoke le 14/05/2002 14:11:54

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

Commentaire de g0belin le 14/05/2002 17:31:16

a oui bon c bizzard je verifierai merci

Commentaire de g0belin le 14/05/2002 17:31:17

a oui bon c bizzard je verifierai merci

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Motorola MILESTONE
Entre 489€ et 489€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)