// fltk 7Fl_Tile 34 291 948 322 [ // fltk N4xcas7EditeurE 34 291 948 321 1073 , potence:= (a,b,n)-> { local L1,L2; b0:=b; b:=iquo(a,b0); a:=irem(a,b0); L1:=[b]; L2:=[a]; for (k:=1;(k<=n) && (a!=0);k:=k+1) { b:=iquo(a*10,b0); a:=irem(a*10,b0); L2:=append(L2,a); L1:=append(L1,b); }; return([L1,L2]); }; division:= (a,b,n,t)-> { local L1,L2,p,q,r; L1:=[iquo(a,b)]; r:=irem(a,b); for (k:=1;(k<=n) && (r!=0);k:=k+1) { q:=iquo(r+10^t); if (q==0) { p:=1; } else { p:=floor((ln(q))/(ln(10))+1); }; ; for (j:=p+1;j<=t;j:=j+1) { L1:=append(L1,0); }; L1:=append(L1,q); r:=irem(r*10^t,b); }; return(L1,r); }; rationnel:= (l1,l2)-> { local pui,s1,s2,n,p,np,pui; pui:=10; s2:=size(l2); n:=l2[0]; for (k:=1;k