Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Diviseur nouvelle méthode
Auteur Message
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Lun 22 Oct 2007, 18:51   Citer 

Encore un programme qui peut servir en spé maths. Il a déjà été fait, mais je crois qu'il est assez rapide pour me permettre de le mettre sur le forum. Pour savoir combien de pourcents de calculs il il reste, il faut appuyer sur [enter]. À savoir qu'il démarre de 100, et qu'il va jusqu'à 0. La liste des diviseurs s'affiche sur l'écran, et si elle dépasse de l'écran, il faut utiliser les flèches gauche et droite. La liste des diviseurs est consultable une fois le programme achevé dans la liste L1. Et puis ça donne également la somme de tous les diviseurs (utilie pour montrer certaines propriétés (ex : nb parfaits)).



Code
ClrHome
Input " NOMBRE : ",A
0->E
2->L
2->dim L1
1->L1(1
A->L1(2
1->I
2->D
If fPart (A/2)=/=0
Then
2->I
1->E
End
While D^2<=A
If fPart (A/D)=0
Then
If D^2 =/= A
Then
1+L->L
A/D->L1(L
End
L+1->L
D->L1(L
End
D+I-E->D
0->E
getKey->K
If K=105
Output (3,15,iPart (([racine de]A-D)/[racine de]A*100
End
SortA(L1
Output (2,1, " SUM=
Output (2,5,sum L1
Disp "
Pause L1



----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa