Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Lun 22 Oct 2007, 18:51
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 !!!
