Programmes Basic: Divison Euclidienne, Primalité et D
Posté le 11/11/2007 20:13
Yo!
Alors je sais bien que le Basic c'est dépassé vieux jeu et tout...
Mais mon lycée est choisi pour tester l'epreuve experimental de BAC cette année (Maroc), c'est-a-dire que bientot au Bac on aura une epreuve de maths sur 4 points ou on demandera par exemple: "Vous avez une demi-heure pour rediger un programme qui fait la Divison Euclidienne et le faire fonctionner sur votre machine."
Le problème est que je galère...
pour deux raisons, d'abord je suis pas bon du tout, j'y connais presque rien et surtout, les programmes dans mon livre de Spé sont écrit pour le Basic des graph... Sur ma belle classpad je sais pas comment faire...
Je voulais donc vous demander un coup de main pour m'aider a faire marcher ces qques programmes:
Tout d'abord mon propre programme de Divison Euclidienne qui ne fonctionne pas pour b<0 ou quand la divison tombe juste... (je sais qu'on peut le faire avec div(a,b) merci bcp d'ailleur pour ce truc, mais faut le faire en basic):
(Je l'ai bricolé seul, je sais que ça craint... aidez moi!!!
)
Lbl go
Input a
input b
If b>0
Then
intg(a/b)=>q
(a-bXq)=>r
Print q
Print r
Wait 3 //Ca c'est pour relancer le programme
Goto go
ElseIf b<0
Then
intg((a/b)+1)=>q
(a-bXq)=>r
Print q
Print r
IfEnd
Wait 3
Goto go
Toute aide sera la bienvenue...
Maintenant je voulais un coup demain pour transformer ces codes de graph en Basic Classpad:
Test Primalitée:
?->A
If Frac(A/2)=0
Then "A non premier"
Stop
IfEnd
Intg((racineA)->N
For 3->I To N Step 2
If Frac (A/I)=0
Then "A non premier"
Stop
IfEnd
Next
"A premier"
et Decomposition facteurs premiers:
?->A
While Frac(A/2)=0
2(triangle noir)
WhileEnd
Intg(racineA)->N
For 3->I To N Step 2
While Frac (A/I)=0
I(triangle noir)
A/I->A
WhileEnd
Next
If A (different) 1
Then A
IfEnd
Je mentirai en disant que je sais absolument pas faire, mais il me manque trop de choses... C'est quoi Frac, Next sur la classpad?
Enfin bon, si quelqu'un a l'obligeance de bien vouloir m'aider, merci d'avance.
Tchuss!
