prg v200 - Page 1

Bonjour à tous,
j'ai quelques problèmes dans mon prog et je ne comprends pas pkoi ca ne marche pas, le voici :

diviseur()
Prgm
Prompt n
For d,1,sqrn(n),1
iPart(n/d)=0
Disp d,n/d
EndFor
EndPrgm

Merci de votre aide

Ca veut dire koi qu'il marche pas ??
Le résultat est faux, t'as une erreur au lancement (si oui, c kel erreur ?), ... ??

Sinon, prompt, ça renvois pas une chaine ??

Je ne vois pas a quoi il sert ton programme.

Dans ta boucle for, il faut que les parametres soient des entiers naturels. C'est pas le cas de sqrn(n).
De plus la ligne iPart(n/d)=0 ne fait rien du tout.

Dans ta boucle for, il faut que les parametres soient des entiers naturels. C'est pas le cas de sqrn(n).

En fait nan !

Une fenêtre d'erreur affiche le message "Domain error".
J'ai toutefois creusé l'idée de Galmiza et en fait quand la racine carrée est un entier le programme fonctionne.

Par ailleurs ce modeste programme a pour but de donner les diviseurs d'un nombre. Ce programe est réalisé dans le cadre de mon cours de spé maths et comme je suis un pur nb en programmation et dans mon lycée les ti ne sont pas du tout monnaie courante je dois me débrouiller tout seul pour adapter les progs du livre pour les ti 83 qui ne sont pas compatibles avec la V200. Voila tout

Le mien.

div_n(x)
Func
Local  x,i,l,y,z
{}»l:1»y
For  i,1,iPart(§(x))
If x/i=iPart(x/i) Then
i»l[y]:y+1»y
If  IsPrime(x/i):Exit
EndIf
EndFor
If  §(x)=i:y-1»y
dim(l)»z
For  i,1,z
x/(l[z-i+1])»l[y]
y+1»y
EndFor
Return  l
EndFunc

(§ = racine carrée)

Divis()
Prgm
ClrIO
Local b,c,d,e,f,g,i,l,n,h
0»e
newList(e)»d
newList(e)»f
Input "Donner un nombre :",n
string(factor(n))»b
ClrIO
While dim(b)>0
1+e»e
inString(b,"*")»g
If g=0 Then
b»c
""»b
Else
left(b,g-1)»c
mid(b,g+1)»b
EndIf
inString(c,"^")»h
If h=0 Then
expr(c)»d[e]
1»f[e]
Else
expr(left(c,h-1))»d[e]
expr(mid(c,h+1))»f[e]
EndIf
EndWhile
{1}»l
For i,1,e
matÐlist(seq(d[i]^x*l,x,0,f[i]))»l
EndFor
SortA l
Disp "Les "&string(dim(l))&" diviseurs de "&string(n)&" sont :"
Pause l
DispHome
EndPrgm


Ð --> Le petit triangle

C'est un des programmes les plus rapides du genre en plus

EDIT : A partir de 400, la différence est sensible.
A partir de 25000, elle est très visible

Euh... les diviseurs, c par exemple quand n=10, ça doit afficher 10 5 1 et 0, c ça ??
Dans ce cas, ce serait pas plus simple de faire :

:endprgm

[nosmile]:diviseur(n)
:prgm
:n-1->m
: for t,1,m
:  mod(t,n)->x
:  if x=n
:   Disp t
: endfor

[/nosmile]

HS:y a plus [nosmiley]
HS2:bon, ben en fait, ct [nosmile]

pour 10, on doit pouvoir rajouter 2, non ? par contre 0, je suis moins convaincu..
si a divise b, on devrait pouvoir affirmer sans trop de risques que (b/a) divise b, non ?
et si y en a un plus petit que sqrt(n), alors l'autre est plus grand que sqrt(n)
=> on peut arrêter la boucle à int(sqrt(n)) en les donnant par paires

0 n'est jamais un diviseur (sauf à la limite pour 0 lui-même, mais c'est discutable).

même pour 0 lui-même je suis pas franchement convaincu

Flanker>oui, exact, 2 fait partis de la liste.

Sinon, ça tombe bien, mon algo affiche pas 0

Merci à tous pour vos progs.
J'aimerais néanmoins que vous m'expliquiez pourquoi mon programme ne marche pas et ce qu'il faudrait changer tout en restant dans le meme esprit a savoir, simplicité pour que je puisse au fur et a mesure programmer par moi meme.

bah... iPart(n/d)=0, je vois pas trop ce que tu as voulus faire, là.
à la limite, si t'av mis if iPart(n/d)=0, ça aurait un sens.

En fait la ligne "iPart(n/d)=0" doit etre remplacée par "If fPart(n/d)=0"
Est ce qu'il y a une incompatibilité parce que en tout ca la meme erreur revient tt le tps?

Bah... iPart(), je crois que c pour isoler les différent bloc d'une expression. Et il me semble que iPart necessite 2 argument, mais bon, g jamais utiliser cette fonction, donc je te dis ça de tête.

ipart c pas pour renvoyer la partie entiere d'un nb ?
(comme int sauf pour les nbs negatifs je crois)

A ui, exact, je confond avec part()

Mais d'aprés le manuel, ça marche sur les nombre négatifs aussi.

c "If fPart" en fait, exit iPart,...

oui, ca marche pour les nbs negatifs mais ca ne renvoit pas la meme chose que int() (à moins que ce ne soit floor() ou ceiling meme yen a tellement) (putain de 4eme bouton de souris de ce cybercafé soit dit en passant )