begin process at 2010 02 10 10:01:38
  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 064
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 CONVERTISSEUR D'UN NOMBRE DÉCIMAL EN BINAIRE ET HEXADECIMAL par ludokk
Source avec Zip Source avec une capture PREMIER OU PAS? par ludokk
Source avec Zip Source avec une capture CONJECTURE DU CARRÉ DES FACTEURS par Bacterius
Source avec Zip Source avec une capture GÉNÉRATEUR DE NOMBRES PSEUDO-ALÉATOIRES par Bacterius
Source avec Zip Source avec une capture ALGORITHME DE HASH LEA 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


BORDERLANDS pour Windows
Entre 50€ et 50€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
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,452 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)