begin process at 2012 02 17 02:17:15
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 >  ALGO DE RÉDUCTION D'UNE RACINE SOUS FORME SCOLAIRE : VX = AVB. EN VB6.0 ET VB NET DANS LE MÊME ZIP .

ALGO DE RÉDUCTION D'UNE RACINE SOUS FORME SCOLAIRE : VX = AVB. EN VB6.0 ET VB NET DANS LE MÊME ZIP .


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Classé sous :reduction, racine, mathclassede3eme Niveau :Débutant Date de création :22/11/2005 Date de mise à jour :07/07/2007 15:42:25 Vu / téléchargé :5 364 / 227
Auteur : Lisa46

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

 Description

Réduction d'une racine carrée. Avec saisie d'un Entier Naturel . J'avais déjà déposé cette source réécrite plus siimple, en VB Basic 6.0 et en Vb Net 2003 dans le même Zip, pour économiser la place !
Le code ne demande que quelques lignes. Très très simple ! Mérite d'être mis vu... C'est bien la seule chose que j'ai vraiment inventée en VB!
Simple, mais encore fallait y penser, d'autres l'ont fait? Ainsi ou autrement, Oui!  Si on me dit "mais si tous le savent! Et ça sert à rien ! ", je demande un sondage LOL! Là je parie que non! :)
Donc niveau 3e ou seconde, mais rien de plus, il décompose sous la forme scolaire: Racine = aVx


 Conclusion

L'algo est simple: 4 lignes seulement?
Imaginez V72. Divid = 72. On pose  d=2 . On divise successivement par le carré de d, soit d2 = d², donc par 2², 3², 4², 5², etc.
Divid/d2 = q
Sortie de la boucle pour cet exemple, quand le PC atteint d = 8 la racine par défaut,(d2 = 64), ou quand le dividende Divid devient inférieur au diviseur. (Le PC choisira...)
Quand le quotient de Divid par un carré d2 est entier, il est mis en mémoire dans la variable qm = q .
Dans ce cas divid prend la valeur du quotient (Divid = q) et on refait la division par le même diviseur.
Sinon, on avance, on divise Divid par (d+1)², etc...
Le dernier qm mis en mémoire correpond ainsi au plus grand carré diviseur! Pour 72, qm est finalement qm = 2.
72/qm = 72/2 = 36 et V36 = 6. On a donc racine : 6Vqm = 6V2.
Si qm = 0, c'est que la racine est irréductible: aucun quotient entier trouvé par un carré.
La racine entière et celle de 0 et 1 sont traités avant, à part! Avec des exit sub.
Le côté rébarbatif est de rendre les label visibles et invisibles selon les cas!
A noter qu'en VB 6 il est facile de dessiner une racine sur la feuille, je n'ai pas trouvé avec VB Net (Je débute juste!) ! Plus simple est bien VB6, VB Net 2003, bof ! Et lourd !  Passez à Vb 2005 Express, gratuit...

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

24 novembre 2005 13:53:44 :
Modification d'un label.
05 janvier 2006 22:33:26 :
Simplification du code. Ajout d'un module de code avec mon algo en Public Sub. Mise en surbrillance du texte saisie à modifier (à mesure de mes légers progrés )
29 juin 2007 23:36:12 :
Pour annulation !
29 juin 2007 23:56:16 :
Pour annulation définitive
01 juillet 2007 14:28:03 :
En réactualisation! Merci de patienter !
01 juillet 2007 14:46:45 :
Pour réactualisation ce programme est en cours de réécriture! Merci de votre patience !
01 juillet 2007 14:53:43 :
En réécriture! Merci de patienter !
01 juillet 2007 14:55:17 :
Non disponible. Est en réécriture! Merci de votre compréhension !
03 juillet 2007 18:47:24 :
Réécrit simplement et sur une seule page! En VB 6.0 et en VB Net 2003. Les sources sont séparées dans 2 dossiers ! Ne vous offusquez pas si je glisse une pointe d'humour. Bien ici de détendre parfois l'ambiance dans ce forum sérieux. Je ne peux pas cocher source Net, vu qu'il ya les deux et que l'ancienne était VB 6.0...
03 juillet 2007 18:50:51 :
Correction d'une phrase explicative !
07 juillet 2007 15:42:25 :
J'ai très simplifié l'interface! Et rajouté la soure en VB Net 2003, en plus. Deux Dossiers distincts! Puis écrit une explication de mon code simple... Ce qui est simple est bien, rapide, et à la portée de tous!

 Sources du même auteur

Source avec Zip Source .NET (Dotnet) MANIPULER LES CHAÎNES ET TRIER UNE LISTE DE NOMS
Source avec Zip . INSCRIPTION À UN SÉMINAIRE OU NOTATION ENREGISTRABLE QUEL...
Source avec Zip PETIT TRAITEMENT DE TEXTE
Source avec Zip PETIT PROGRAMME POUN ENTRAÎNER LE COLLÈGIEN AUX FRACTIONS. P...
Source avec Zip RÉSOUDRE GRAPHIQUEMENT ET NUMÉRIQUEMENT UN SYSTÈME À 2 INCON...
Toutes les sources de Lisa46

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) CRYPTOGRAPHIE AFFINE par Tigrou66
Source avec Zip Source avec une capture SCANNER FLEX par lajouad
Source avec Zip EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge
Source avec Zip Source .NET (Dotnet) SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5
Toutes les sources de la catégorie Maths

 Sources en rapport avec celle ci

Source .NET (Dotnet) RESOLUTION D'UNE EQUATION DU TROISIEME DEGRE par comemich
Source avec Zip Source avec une capture APPROXIMATIONS DE E, PI ET DE TOUT LES RADICAUX par Julien39
Source avec Zip PETIT PROGRAMME POUN ENTRAÎNER LE COLLÈGIEN AUX FRACTIONS. P... par Lisa46
Source avec Zip Source .NET (Dotnet) RACINE(S) D'UN POLYNOME DU SECOND DEGRÉ par tiboooo
Source avec Zip TRÈS RAPIDEMENT LA RACINE CARRÉE par djotto

Commentaires et avis

Commentaire de Lisa46 le 23/11/2005 18:33:01

PS:
On m'a posé la question: pourquoi Max= racine par défaut de Delta.
(Nombre entier)
d2= max² < Delta, on a aussi: (max+1)² > Delta.
Il faut arrêter la recherche ici.
C'es tout!
Merci.
Lisa

Commentaire de Lisa46 le 26/11/2005 14:00:30

Remarque:
Dans mon 2e degré, je saisis aussi les fractions.
Mais ici, on peut allonger le code pour au moins saisir les décimaux.
Par exemple à l'ordi, faire écrire 4.5 => 450/100 et obtenir:

V450/V100; on réduit V450 et V100 et on a :
=> 15V2/10.....ou 1.5V2....etc...
simplifier quand il y a lieu!
Il y a un plus de travail, mais très faisable ! Et encore autre chose...

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

racine carrée [ par gogoprog ] Bonjour,est-ce que quelqu'un sait comment calculer une racine carrée?merci d'avance calcule de la racine carre [ par bouazizsalah ] Salut:j'aimerais connaitre la methode pour calculer une racine carre sans passer par la commande sqr de v.b chassan q'en employant le theoreme de pita Racine Carre !!! [ par thejojo79 ] Salut je cherche un Algo pur le calcul de la racine carre ! Si vous une bonne adresse ,l'algo ou meme une bride d'info a ce sujet merci Merci !!!!!!! Action sur le bouton reduction du form [ par pisko ] salut,je voudrais lorsque l'on clique sur le bouton reduction de mon form envoyer l'icone dans le systray.Pas de probleme pour le systray par contre j Reduction de feuille [ par guillaume79 ] Comment réduire une appli dans la bare des taches en cliquant sur un bouton ?Merci d'avance. racine carré [ par sebcasanova ] Quel est la fonction pour caculer la racine carré d'un nombre(je suis entrain d'essayer de crée un mini prog sur le calcul de discriminant, et un peut Evenement "reduction" [ par asterik ] @sterikje souhaite declencher un evenement lorsque l'utilisateur reduit la Form mais le pb c kil n'existe pas d'evenement Form_Minimize !!! comment fa application racine vb.net [ par ErB ] comment trouver la racine de l'application en VB.NET ?Application.StartupPath me donne le /bin .... Reduction application [ par globule ] Bonjour, Mon projet contient plusieurs formulaires modales. Lorsque je veux réduire un formulaire, ce dernier n'apparaît pas dans la barre des taches, Pb reduction d'application [ par globule ] Je viens de me rendre compte que lorsqu'on change le titre d'un formulaire de notre application (pas le principal, mais un secondaire) par programmat


Nos sponsors


Sondage...

Comparez les prix


Mio - Moov V735 - GPS Europe - Ecran 7"
Entre 305€ et 375€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Monument Valley Utah known as The Mittens
Photo Iguassu Falls is the largest series of waterfalls on the planet, 

Visiter la photothèque
 
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 : 1,591 sec (4)

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)