Par exemple {k*a,k*b,k*7} renvoi k
? D’avance merci.
π
? 
.

Define listfact(list)=
Func
:Local factc,i
:factc:=list[1]
:For i,1,dim(list)
: factc:=polyGcd(factc,list[i])
: Disp factc
:EndFor
:Return factc
:EndFunc
?





Return to Programmation TI-Basic
Users browsing this forum: No registered users and 0 guests